青岛科技大学_信息工程_VB实验八综合实验.doc

实验八 综合实验（4个学时） 一 、实验目的 1．掌握常用控件的使用。 2．掌握下拉菜单的设计方法。 3．掌握创建多重窗体程序的有关技术。 4．了解常用事件及过程。 5．掌握顺序文件的打开、关闭和读写操作。 6．掌握三种鼠标事件的用法。 7．综合运用所学的知识，编写具有可视化界面的应用程序。 二 、实验内容 利用菜单、对话框、选择结构语句、循环结构语句、多窗体、常用控件、过程等知识点进行综合程序设计。具体要求： 1．在主窗体上，设计下拉式菜单： 数值计算 画图与动画 顺序文件 退出 n! 编写画图程序 读写古诗 1+3+…+99 S6.1 （说明：S6.1表示实验六的第1题） 2．分别单击菜单项n!( 要求从键盘键入n的值)，1+3+5+….99时，要求在主窗体中设置Label1显示题目，Label2显示结果 界面如下图。 1）Form1中的代码设计如下： Private Sub menu2_Click() Dim i As Integer, n As Integer, f As Long n = Val(InputBox(请输入n的值)) f = 1 For i = 1 To n f = f * i Next i Label1.Caption =n ! Label2.Caption = f End Sub Private Sub menu3_Click() Dim i As Integer, m As Integer For i = 1 To 99 Step 2 m = m + i Next i Label1.Caption = 1+3+...+99 Label2.Caption = m End Sub 2）将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。， 3.单击菜单项“编写画图程序”, 打开子窗体Form2, 完成如下功能，利用三种鼠标事件完成画图功能。按下鼠标左键开始画图；若同时按下Shift键开始擦图。设置“返回”按钮，单击时返回主窗体。 1）Form2中的代码设计如下： Dim a As Integer, b As Integer Private Sub Form_Load() DrawWidth = 10 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then If Shift = 1 Then a = True Else b = True End If End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If b = True Then PSet (X, Y), QBColor(Int(16 * Rnd)) ElseIf a = True Then PSet (X, Y), Form2.BackColor End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) a = False b = False End Sub 4.单击菜单项“S6.1”，打开子窗体Form3完成此项功能，编写一个子过程在窗体上打印星花矩阵，矩阵的行数和列数有用户输入。设置“返回”按钮，单击时返回主窗体。 1）Form3中的代码设计如下： Private Sub Command1_Click() Form3.Hide Form1.Show End Sub Private Sub Form_Load() Show Dim i As Integer, n As Integer i = Val(InputBox(请输入行数)) n = Val(InputBox(请输入列数)) Call mat(i, n) End Sub Public Sub mat(i, n) For j = 1 To i For c = 1 To n Form3.Print *; Next c