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

《VB程序设计》实验单元一实验报告专业班级：姓名学号指导教师：王自强完成时间： 2015年3月21日星期六实验一VB环境和可视化编程基础实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境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) + 1End SubPrivate Sub Form_Load()Text1.Text = End Sub3、text的font size设置为“一号”五、实验结果《VB程序设计》实验单元一实验报告专业班级：网媒1403班姓名凌紫怡学号 201424050320 指导教师：王自强完成时间： 2015年3月21日星期六实验一VB环境和可视化编程基础实验目的1 了解Visual Basic的安装2 掌握启动与退出Visual Basic3 掌握建立、编辑和运行一个简单应用程序的全过程4 掌握基本控件的使用二、实验环境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 SubPrivate Sub Text2_click()Text2.Text = End Sub3、以及两个Command。Command1的caption输入“隶书25磅”；Command2的caption输入“复制=”。Private Sub Command1_Click()Text1.FontName = 隶书Text1.FontSize = 25End SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText2.FontName = Text1.FontNameText2.FontSize = Text1.FontSizeEnd 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 Sub3、绘制三个command，command1的caption为“圆的面积”；command2的caption为“圆的周长”；command3的caption为“圆的体积”。编写程序代码为：Private Sub Command1_Click()a = 3.14Text2.Text = a * Text1.Text * Text1.TextEnd SubPrivate Sub Command2_Click()a = 3.14Text3.Text = 2 * a * Text1.TextEnd SubPrivate Sub Command3_Click()a = 3.14Text4.Text = 4 / 3 * a * Text1.Text * Text1.Text * Text1.TextEnd Sub五、实验结果实验二VB语言基础和顺序结构一、实验目的1、掌握正确书写表达式、赋值语句的规则2、掌握常用函数的使用3、掌握InputBox与MsgBox的使用4、掌握Print