课程设计及心得体会.doc

文档介绍：多重窗体及菜单的设计
（一）功能描述
该程序主要包括多重窗体和文本编辑器，多重窗体由三个窗体构成，要实现的功能是三个窗体的隐藏与出现，文本编辑器要实现的是每个下拉菜单中的功能。
（二）概要设计
整个系统可以分解成三个子功能模块，各模块之间的衔接关系为：，；，；，，用框图显示各模块间的衔接关系：
模块一
模块三
模块二
Form1是登陆界面，当输入的账号和密码正确时，单击命令按钮，form1隐藏，form2出现。Form2是实现菜单中各子菜单的功能，将每个子菜单的功能实现后，单击统计菜单项，form2隐藏，form3出现。Form3是显示form2中随机产生的10个数的最小值，最大值，平均值，该功能实现后，单击命令按钮，使form3隐藏，返回form2。
（三）详细设计
模块一各功能实现过程：
Form1的设计界面如下：

Form1中的程序：
Private Sub Form_Load()
= ""
= 6
= ""
= 6
= "*"
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric() Then
MsgBox "账号必须为数字", , "警告"
= ""

End If
End Sub
如果输入账号不是数字时，账号错误提示：：

单击命令按钮时：
Private Sub Command1_Click()
Dim i As Integer
If <> "123456" Then
i = MsgBox("密码错误", 5 + vbExclamation, "警告")
If i <> 6 Then
End
Else
= ""

End If
End If


End Sub
如果输入的密码错误，密码错误提示

模块二各功能实现过程：
Form2的设计界面：
Form2中的控件的程序：
文件菜单项下的子菜单的界面及程序：
(1)新建
Private Sub New_Click()
= ""
End Sub
(2) 打开
Private Sub Open_Click()
= 1
= ""
Open For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
= + inputdata + vbCrLf
Loop
Close #1
End Sub
打开的界面：
(3) 另存为
Private Sub SaveAs_Click()
= ""
= "Txt"
= 2
Open For Output As #1
Print #1,
Close #1
End Sub
(4)打印
Private Sub Print_Click()
= 5
For i = 1 To

Next i

End Sub
(5)结