vb 实验4.docVIP

《软件开发工具》实验报告 实验四 用户界面、数据文件、图形操作和数据库应用基础 实验学时： 4学时 班级名称： 信管081 学生学号： 08125030130 学生姓名： 王艺霖 指导教师： 赵苑苑 实验时间： 2011-10-10 一、实验目的： 掌握常用控件的属性、事件和方法，初步掌握利用常用控件创建基于图形用户界面应用程序的技术。 学会使用通用对话框控件进行编程。 掌握主下拉式菜单和弹出式菜单的设计方法。 掌握创建多重窗体程序的有关技术。 了解鼠标和键盘事件及其事件过程的编写。 了解VB的图形功能，掌握建立图形坐标系的方法。 掌握VB的图形控件和图形方法以及常用几何图形绘制。 二、实验内容及步骤： 1、设计一个如下图（主窗体）所示的程序。它对窗体中的列表框具有随机产生数据、删除、添加、统计的功能。 （1）创建工程 打开[开始]-----[程序]---[ Microsoft Visual Basic6.0中文版]，在弹出窗口选择[标准EXE] （2）设计界面。 在form1中创建菜单并拖动控件listbox，调整各控件的大小和位置。在form2中创建控件button并设置caption的值为返回。 （3）编写程序代码。 模块代码如下： Public MAX1, MIN2, sum As Single Form1代码： Private Sub add_Click() a = InputBox(需要添加的数据为) List1.AddItem (a) End Sub Private Sub end_Click() End End Sub Private Sub max_Click() Dim max, n max = Val(List1.List(0)) For i = 1 To List1.ListCount - 1 If Val(List1.List(i)) max Then max = List1.List(i): n = i Next i List1.RemoveItem (n) End Sub Private Sub mix_Click() Dim min, m min = Val(List1.List(0)) For i = 1 To List1.ListCount - 1 If Val(List1.List(i)) min Then min = List1.List(i): m = i Next i List1.RemoveItem (m) End Sub Private Sub rnk_Click() Randomize For i = 0 To 9 List1.List(i) = Int(Rnd * 101) Next i End Sub Private Sub work_Click() Dim max, n, min, m min = Val(List1.List(0)) For j = 1 To List1.ListCount - 1 If Val(List1.List(j)) min Then min = List1.List(j): m = j Next j MIN2 = List1.List(m) max = Val(List1.List(0)) For i = 1 To List1.ListCount - 1 If Val(List1.List(i)) max Then max = List1.List(i): n = i Next i MAX1 = List1.List(n) For i = 1 To List1.ListCount - 1 sum = sum + Val(Form1.List1.List(i)) Next i sum = sum / i - 1 Form2.Show End Sub Form2代码： Private Sub Command1_Click() Unload Me Form1.Show End Sub Private Sub Form_Load() Text1 = MAX1 Text2 = MIN2 Text3 = sum End Sub （5）实验结果 单击“产生10个随机数”时，如图所示。 单击“统计”时，如图所示： 单击“删除最小数”时，如图所示： 单击“删除最大数”时，如图所示： 单击“添加数据”时，如图所示： 单击“添加数据”时，如图所示： 2、编一循环程序，用Line控件对象在屏幕上随机产生20条长度、颜色、宽度不同 的直线。 代码 ： Private Sub Form_Click() Dim I As Integer, X1 As Integer, Y1 As Integ