文档介绍:实验八综合实验(4个学时)
一、实验目的
。
。
。
。
、关闭和读写操作。
。
,编写具有可视化界面的应用程序。
二、实验内容
利用菜单、对话框、选择结构语句、循环结构语句、多窗体、常用控件、过程等知识点进行综合程序设计。具体要求:
,设计下拉式菜单:
数值计算画图与动画顺序文件退出
n! 编写画图程序读写古诗
1+3+…+99
(说明:)
!( 要求从键盘键入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
=n & "!"
= 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
= "1+3+...+99"
= m
End Sub
2)将从键盘上输入n = 9时的运行界面剪切下来粘贴在下面。,
“编写画图程序”, 打开子窗体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,