《VB程序设计》实验单元一.docVIP

《VB程序设计》实验单元一 《VB程序设计》实验单元一 PAGE / NUMPAGES 《VB程序设计》实验单元一 适用标准文档 《VB程序设计》实验单元一 实验报告 专业班级：姓名学号指导教师： 王自强达成时间： 2015 年 3 月 21 日礼拜六 实验 一 VB环境和可视化编程基础 一、实验目的 1 认识 Visual Basic的安装 掌握启动与退出 Visual Basic 掌握成立、编写和运转一个简单应用程序的全过程 掌握基本控件的使用 二、实验环境 VB6.0 三、实验内容 1、编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 提示：对窗口编写两个事件：Form_Load事件对文本框初值设为空； Form_Click 事件对 文本框计数。对文本框计数： Text1=Val(text1)+1。 四、实验步骤 1、绘制 Label1 的 caption输入“你单击窗体的次数： ” 2、绘制 text 。编程为： Private Sub Form_Click() Text1.Text = Val(Text1.Text) + 1 End Sub 文案大全 适用标准文档 Private Sub Form_Load() Text1.Text = End Sub 3、text的 font size设置为“一号” 五、实验结果 《VB程序设计》实验单元一 实验报告 专业班级：网媒 1403 班姓名 凌紫怡学号201424050320 文案大全 适用标准文档 指导教师：王自强达成时间：2015 年 3 月 21 日礼拜六 实验 一 VB环境和可视化编程基础 二、实验目的 1 认识 Visual Basic的安装 掌握启动与退出 Visual Basic 掌握成立、编写和运转一个简单应用程序的全过程 掌握基本控件的使用 二、实验环境 VB6.0 三、实验内容 2、命令按钮、字号、内容和格式的复制练习。 按钮 1：使得 Text1 中的文本按要求改变。 按钮 2：将 Text1 中选定的文本复制到Text2. 控件名属性 Form1Caption= ”实验 2” Label1复制文本 Label2输入文本 Text1Text=“ VB功能强盛， 但要下功夫学习才能 学好。” Text2Text= ”” Command1Caption= ”隶书 25 磅” Command2Caption= ”复制 =” 四、实验步骤 文案大全 适用标准文档 1、label1的 caption 输入“复制成效” ； label2 的 caption输入“输入文本” 。 2、绘制两个text 。 Private Sub Text1_Click() Text1.Text = VB功能强盛，但要下功夫学习才能学好。 End Sub Private Sub Text2_click() Text2.Text = End Sub 3、以及两个 Command。 Command1的 caption输入“隶书25 磅”；Command2的 caption 输入“复制 =”。 Private Sub Command1_Click() Text1.FontName = 隶书 Text1.FontSize = 25 End Sub Private Sub Command2_Click() Text2.Text = Text1.SelText Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub 五、实验结果 文案大全 适用标准文档 实验二VB语言基础温次序构造 一 、实验目的 1、掌握正确书写表达式、赋值语句的规则 2、掌握常用函数的使用 3、掌握 InputBox与 MsgBox的使用 4、掌握 Print和 Format 的使用 文案大全 适用标准文档 二、 实验环境 VB6.0 三、 实验内容 1、输入半径的值，分别计算并输出圆的面积、圆的周长和球的体积。 四、实验步骤 1、绘制一个 label ，caption为 r 。 2、绘制四个text ，编写程序代码为： Private Sub Text1_Change() Text2.Text = Text3.Text = Text4.Text = End Sub 3、绘制三个 command，command1的 caption为“圆的面积”；command2的 caption为“圆 的周长”； command3的 caption为“圆的体积” 。 编写程序代码为： Private Sub Command1_Click() a = 3.14 Text2.Text = a * Text1.Text * Te