青岛科技大学_信息工程_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 SubPrivate 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 Sub2）将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。，3.单击菜单项“编写画图程序”, 打开子窗体Form2, 完成如下功能，利用三种鼠标事件完成画图功能。按下鼠标左键开始画图；若同时按下Shift键开始擦图。设置“返回”按钮，单击时返回主窗体。1）Form2中的代码设计如下：Dim a As Integer, b As IntegerPrivate Sub Form_Load() DrawWidth = 10 End SubPrivate 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 SubPrivate 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 SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) a = False b = False End Sub4.单击菜单项“S6.1”，打开子窗体Form3完成此项功能，编写一个子过程在窗体上打印星花矩阵，矩阵的行数和列数有用户输入。设置“返回”按钮，单击时返回主窗体。1）Form3中的代码设计如下：Private Sub Command1_Click() Form3.Hide Form1.ShowEnd SubPrivate Sub Form_Load()ShowDim i As Integer, n As Integer i = Val(InputBox(请输入行数) n = Val(InputBox(请输入列数) Call mat(i, n)End SubPublic Sub mat(i, n) For j = 1 To i For c = 1 To n Form3.Print *; Next c Form3.Print Next j End Sub2）将运行结果的界面截下来粘贴在下面：5单击菜单项“读写古诗”打开子窗体Form4，初始界面如下图。单击“建古诗文件”按钮，要求从左边文本框，写入一首古诗，并将该诗写入文件名为poem.txt的文件中。单击“读文件中古诗”，要求将文件名为poem.txt的文件中的古诗读入右边文本框中。设置“返回”按钮，单击时返回主窗体。1）Form4中的代码设计如下：Private Sub Command1_Click() Open d:poem.txt For Output As #1 s = Text1.Text Print #1, s Close #1 End SubPrivate Sub Command2_Click() Open d:poem.txt For Input As #2 Do While Not EOF(2) Line Input #2, s Text2.Text = Text2.Text & s &