vb实验报告书3.docVIP

一、实验目的和要求 1．实验目的： 掌握常用控件的使用 学会使用通用对话框空间进行编程。 掌握下拉式菜单和弹出式菜单的使用方法。 掌握创建多重窗体程序的有关技术。 了解鼠标键盘事件及其事件过程的编写。 综合应用所学的知识，编写具有可视化界面的应用程序。 2．上机调试之前必须携带已经编写完毕的程序源代码，实验过程中主要是进行调试。 3．上机时间不足以完成实验项目的同学利用课外时间做完所有项目。 4．根据所选实验内容完成实验报告。 二、实验主要仪器和设备 计算机 三、实验方法与步骤（需求分析、算法设计思路、流程图等） 1．设计一个如图G.5所示的应用程序。当单击“设置标签颜色”按钮后，弹出“颜色”对话框，为标签中的文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出“打开文件”对话框，选择一个文本文件后调用记事本程序编辑该文件。 实验步骤：1打开VB 2画控件写代码 3运行程序 图G.5 实验G.5通用对话框 2．设计一个如图G.8所示的程序。它对列表框具有随机产生10个数据，删除最小值/最大值，添加数据，统计的功能。统计结果显示在如图G.9所示的窗体中。 实验步骤：1打开VB 2画控件写代码 3运行程序 3．选择做过的若干实验，将它们整合成一个如图G.10所示的工程。当选择某个菜单选项时，就弹出相应程序的窗体。 实验步骤：1打开VB 2画控件写代码 3运行程序 四、实验原始纪录（源程序、数据结构等） 1.源代码如下 Private Sub Command1_Click() CommonDialog1.ShowColor Label1.ForeColor = CommonDialog1.Color End Sub Private Sub Command2_Click() CommonDialog1.ShowOpen i = Shell(C:\WINDOWS\NOTEPAD.exe + CommonDialog1.FileName, vbNormalFocus) End Sub 2.源代码如下 Private Sub 结束_Click() End End Sub Private Sub 删除最大值_Click() max = List1.List(0) For i = 1 To List1.ListCount - 1 If max List1.List(i) Then max = List1.List(i): j = i Next i List1.RemoveItem j End Sub Private Sub 删除最小值_Click() min = List1.List(0) For i = 1 To List1.ListCount - 1 If min List1.List(i) Then min = List1.List(i): j = i Next i List1.RemoveItem j End Sub Private Sub 随机产生_Click() Randomize For i = 0 To 9 List1.List(i) = Int(Rnd * 100 + 1) Next i End Sub Private Sub 添加数据_Click() List1.AddItem Int(Rnd * 100 + 1) End Sub Private Sub 统计_Click() Dim max%, min%, ave!, m%, n% max = List1.List(0) min = List1.List(0) ave = List1.List(0) m = 0 n = 0 For i = 1 To List1.ListCount - 1 If max List1.List(i) Then max = List1.List(i): m = i If min List1.List(i) Then min = List1.List(i): n = i ave = ave + List1.List(i) Next i Form2.Text1 = List1.List(n) Form2.Text2 = List1.List(m) Form2.Text3 = Format(ave / List1.ListCount, 0.00) Form2.Show End Sub 3.源代码如下： Private Sub experimentG2_Click() Form2.Show End Sub Private Sub exp