VB大作业报告
程序功能介绍：
计算器可以进行简单的。

加、减、乘、除、乘方、开方、阶乘、取余和清零。

主要源程序：
设置程序从form2启动。

首先出来一个展示界面，内容包括自己的姓名、班级和所做的课题。

等待时间是3秒。

Private Sub Form_Load()
Label4.Caption = "3"
End Sub
Private Sub Timer1_Timer() “倒计时，当倒计时为0时，一界面隐藏弹出二界面”
Label4.Caption = Label4.Caption - 1
If (Label4.Caption = "0") Then
Form1.Hide
Form2.Show
End If
End Sub
解释：定时器以一定的时间间隔产生Timer事件从而执行相应的时间
过程。

当form2消失后，form3开始运行。

用户名与密码正确时form3消失form出现。

进入计算器的主要界面。

Private Sub Command1_Click()
If Text1.Text <> "******" Then
MsgBox "用户名错误，请重新输入"
Text1.SetFocus
End If
If Text2.Text <> "123" Then
MsgBox "密码不正确，请重新输入"
Text2.SetFocus
ElseIf Text1 = "******" And Text2 = "123" Then
Form2.Hide
Form3.Show
End If
End Sub
Private Sub Text1_Change()
End Sub
解释：利用Msgbox判断输入数据的正确性，否则不允许登录。

然后进入计算器界面：
Private Sub Command1_Click()
Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) “加
法运算”
End Sub
Private Sub Command2_Click()
Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text))“减法运算”
End Sub
Private Sub Command3_Click()
Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text))“乘法运算”
End Sub
Private Sub Command4_Click()
Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text))“除法运算”
End Sub
Private Sub Command6_Click()
Text3.Text = Str(Val(Sqr(Text1.Text)))“开方运算”
End Sub
Private Sub Command5_Click()
Text3.Text = Str(Val(Text1.Text) * Val(Text1.Text)) “乘方运算”End Sub
Private Sub Command7_Click()
Text1 = ""
Text2 = "" “清零”
Text3 = ""
End Sub
Private Sub Command8_Click()
Dim a#, s#
s = 1
a = Val(Text1)
For i = 1 To a “阶乘运算”
s = s * i
Text3 = s
Next i
End Sub
Private Sub Command9_Click()
Text3 = Str(Val(Text1) Mod (Text2)) “除法取余”End Sub
Private Sub Text1_Change()
End Sub
总体解释：工程主要包括3个界面，第一个界面主要包括（课题、班级、姓名、倒计时器），第二个界面主要包括（用户名、密码，只有二者都输入正确时才能登录进入第三个界面），第三个界面主要包括（计算器的简单运算加、减、乘、除、乘方、开方、阶乘、取余和清零）。