VB程序设计实验单元一.docxVIP

《VB程序设计》实验单元一 实验报告 专业班级： 姓名 学号 指导教师： 王自强 完成时间: 2015年3月21日星期六 实验一 VB环境和可视化编程基础 、 实验目的 了解 Visual Basic 的安装 掌握启动与退出 Visual Basic 3掌握建立、编辑和运行一个简单应用程序的全过程 4掌握基本控件的使用 、实验环境 、实验内容 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数 Form_Click 事件对提示：对窗口编写两个事件： Form_Load Form_Click 事件对 文本框计数。 对文本框计数：Text仁Val(text1)+1 。 四、实验步骤 1、 绘制Label1的caption输入“你单击窗体的次数：” 2、 绘制text。编程为： Private Sub Form_Click() =Val + 1 End Sub Private Sub Form_Load() Illi End Sub 3、text 的 font size 设置为“一号 五、实验结果 《VB程序设计》实验单元一 实验报告 专业班级： 网媒 1403班 姓名 凌紫怡 学号 0320 指导教师： 王自强 完成时间:2015年3月21日星期六_ 实验一 VB环境和可视化编程基础 二、 实验目的 了解 Visual Basic 的安装 掌握启动与退出 Visual Basic 3掌握建立、编辑和运行一个简单应用程序的全过程 4掌握基本控件的使用 二、实验环境 三、实验内容 2、命令按钮、字号、内容和格式的复制练习 按钮1:使得Text1中的文本按要求改变。 按钮2:将Text1中选定的文本复制到 Text2. 控件名 属性 Form1 Caption=实验 2 Label1 复制文本 Label2 输入文本 Text1 Text= “ VB功能强大，但要下功夫学习才能 学好。” Text2 Text= Comma nd1 Caption= ”隶书 25 磅” Comma nd2 Capti on=复制= 四、实验步骤 1、Iabel1 的caption 输入“复制效果；Iabel2 的caption 输入“输入文本” 2 2、绘制两个 text o Private Sub Text1_Click() = VB 功能强大，但要下功夫学习才能学好。 End Sub Private Sub Text2_click() _ Illi End Sub 3、以及两个 Command Comma nd 的 caption 输入“隶书 25 磅;Comma nd2勺 caption 输入“复制 =”。 Private Sub Comma nd1_Click() = 隶书 = 25 End Sub Private Sub Command2_Click() End Sub 五、实验结果 实验二 VB 语言基础和顺序结构 一 、实验目勺 1 、掌握正确书写表达式、赋值语句勺规则 2、 掌握常用函数勺使用 3、 掌握InputBox 与MsgBox的使用 4、 掌握 Print 和 Format 勺使用 实验环境 三、 实验内容 1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积 四、实验步骤 1、绘制一个 label ， caption 为 r 。 2、绘制四个 text ，编写程序代码为： Private Sub Text1_Change() Illi Illi Illi End Sub 3、绘制三个 comma nd comma nd1 的 capti on 为圆的面积;comma nd2的 capti on 为圆 的周长;command3的caption 为圆的体积。 编写程序代码为： Private Sub Command1_Click() a = = a * * End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() a = = 4 / 3 * a * * * End Sub 五、实验结果 实验二 VB 语言基础和顺序结构 一 、实验目的 1、掌握正确书写表达式、赋值语句的规则 2、掌握常用函数的使用 3、 掌握InputBox 与MsgBox的使用 4、 掌握 Print 和 Format 的使用 二、 实验环境 三、 实验内容 2、随机产生一个 3 位正整数，然后逆序输出，产生的随机数与逆序数同时显示。 例如 735, 输出 537. 提示：利用“ Mod和“”将一个3位数分离出3个1位数，然后连接成一个逆序 的 3 位数。 四、实验步骤 1 、绘制一个 text ，并编写程序代码： Private Sub Text1_