VB6.0上机实验报告.docVIP

试 验 报 告 院（系）： 课程名称： 日期： 班级 学号 机房 专业 姓名 时间 实验名称 VB上机实验 成绩评定 所用软件 教师签名 实验目的 及要求 一、1. 了解VB/VB.NET系统对计算机软件、硬件的要求，掌握启动和退出VB/VB.NET的方法； 2. 了解和使用VB/VB.NET集成开发环境各窗口、菜单的一般功能； 3. 了解常用控件的生成及其属性、事件和方法； 4. 熟悉编辑、调试、运行、保存一个VB/VB.NET应用程序的全过程。 二、1. 熟练掌握分支结构程序设计的原理和实现方法； 2. 熟练掌握循环结构程序设计的原理和实现方法； 3. 掌握常用输入数据方法； 4. 掌握数组的定义和引用方法。 三、1. 熟练使用顺序结构、分支结构、循环结构实现程序的编写； 2. 掌握用户菜单定义，实现功能集成； 3. 综合使用不同控件，实现界面的美观及使用； 4. 实现简单动画。 实 验 步 骤 、 心 得 体 会 实验一 1．用文本框输入一个数并保存到变量X，如果100X200，则在窗体上显示X的值。 代码： Private sub form_click() X=inputbox(“please input x:”) If x=100 and x=200 then print x End sub 2. 已知三角形三条边的边长分别为a、b、c。请编写程序计算三角形面积： 面积=。其中：s=（a+b+c）/2（要求输入合理）。 代码： Private sub command1_click() a=val(text1.text) b=val(text2.text) c=val(text3.text) s=(a+b+c)/2 if a+bc or a+b=c then msgbox “输入边长不合理“ else y=sqr(s*(s-a)*(s-b)*(s-c)) text4.text=y end sub Private sub command2_lick() End End sub 3. 创建如图1.2所示界面并实现：输入四门课程成绩，并计算总分和平均分输出到相应文本框。 Private sub command1_click() a=val(text1.text) b=val(text2.text) c=val(text3.text) d=val(text4.text) sum=s+b+c+d avr=sum/4 text5.text=sum text6.text=avr end sub Private sub command2_lick() End End sub 4. 班上集体购买课外读物，请设计一程序：要求可以正确输入四种书的单价及购买数量，计算并输出所需总金额。 代码： Dim a(4), b(4) As Double Private Sub Command1_Click() Sum = 0.0 For i = 0 To 3 a(i) = Val(Text1(i).Text) b(i) = Val(Text2(i).Text) Sum = Sum + a(i) * b(i) Text3.Text = Sum Next End Sub 5. 在程序中声明一个常量，然后改变其值，观察程序执行结果；分别定义全局变量、窗体级全局变量及私有变量，并区别其异同。 代码： 全局变量 public x as integer 作用于整个应用程序 窗体模块变量 dim x% private x% 作用于窗体模块 私有变量 dim x% 作用于过程或函数 6，从文本框输入A、B、C，计算表达式的值，并将结果输出到窗体相应控件。 Private Sub Form_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) y = (Sqr(a) + b ^ 4) / (c - 10) Picture1.Print y End Sub 实验二 计算 代码： Private Sub Form_Click() Dim x, y As Integer x = Int(InputBox(please input x:)) Select Case x Case Is 0 y = 2 * x * x - 5 * x + 3 Case 0 y = 0 Case Is 0 y = (x ^ 3 - Sqr(5)) / (x + 1) End Select