实习二、可视化编程基础.docVIP

信 息 工 程 学 院 程序设计基础(VB) 实验/实习报告 实习二、可视化编程基础 一、实习目的 1. 掌握窗体的主要属性及Load事件的应用； 2. 掌握Print方法的输出格式控制； 3. 掌握命令按钮和标签的主要属性应用； 4. 掌握文本框的主要属性和事件应用； 5. 掌握工程管理的基本操作； 二、实习内容 1. 完成教材例题上机验证。 2. 完成编程题（P72）1,2题 3. 掌握工程保持，添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE文件的方法。 三、实习任务完成情况 1. 教材例题验证：完成例1，2，4，5，6，7，8，9，并将老师上课补充的例子加以验证。在验证过程中存在一些问题，附于实验总结中。 　2. 编程题：界面设计、对象属性、事件代码 编程题1： 界面设计如下： 事件代码如下： Private Sub Command1_Click() Dim h%, f%, x%, y% h = Val(Text1.Text) f = Val(Text2.Text) x = (4 * h - f) / 2 y = (f - 2 * h) / 2 Label3.Caption = 计算结果：鸡有 x 只，兔有 y 只 End Sub 运行结果如下： 编程题2 事件代码如下： Private Sub Form_Load() x = InputBox(请输入金额) m = x If x = Then Exit Sub End If y = x \ 100 If y 0 Then a = y Else: a = 0 End If y = x Mod 100 x = y \ 50 If x 0 Then b = x Else: b = 0 End If x = y Mod 50 y = x \ 20 If y 0 Then c = y Else: c = 0 End If y = x Mod 20 x = y \ 10 If x 0 Then d = x Else: d = 0 End If x = y Mod 10 g = x y = x \ 5 If y 0 Then e = y Else: e = 0 End If If x 5 Then f = x Else: f = x - 5 End If n = a + b + c + d + e + f MsgBox m 元需要支付的钱总张数为： Chr(10) a + b + c + d + e + f = n 张 End Sub 验证结果如下： 四、实习总结 1.知识掌握: 掌握窗体的主要属性及Load事件的应用；掌握Print方法的输出格式控制；掌握命令按钮和标签的主要属性应用；掌握文本框的主要属性和事件应用；掌握工程保持，添加、删除窗体文件、设置启动窗体、编译生成EXE文件、运行EXE 2.存在的问题:对val函数掌握不熟悉，对老师补充的例题练习时有时会出现问题。例如，对老师补充的LostFouces.SetFouces事件练习时对于焦点不移动不能立即反应过来。应当对此类事件多加练习。 3.实习收获:基本上掌握了窗体的主要属性及Load事件的应用；Print方法的输出格式控制；命令按钮和标签的主要属性应用；文本框的主要属性和事件应用。 实验报告的内容与格式按任课教师的要求书写。