用VB设计一个简单的计算器

1、VB 大作业报告程序功能介绍：计算器可以进行简单的。加、减、 乘、除、乘方、开方、阶乘、取 余 和清零。主要源程序：设置程序从 form2 启动。首先出来一个展示界面， 内容包括自己的姓名、 班级和所做的课 题。等待时间是 3 秒。Private Sub Form_Load()Label4.Caption = "3"End SubPrivate Sub Timer1_Timer() “倒计时，当倒计时为 0 时，一界面隐藏弹出二界面Label4.Caption = Label4.Caption - 1If (Label4.Caption = "0") T

2、henForm1.HideForm2.ShowEnd IfEnd Sub解释：定时器以一定的时间间隔产生 Timer 事件从而执行相应的时间 程。当 form2 消失后， form3 开始运行。用户名与密码正确时 form3 消失 form 出现。进入计算器的主要界面Private Sub Command1_Click()If Text1.Text <> "*" ThenMsgBox " 用户名错误， 请重新输入Text1.SetFocusEnd IfIf Text2.Text <> "123" ThenMsgBox &

3、quot; 密码不正确，请重新输入 "Text2.SetFocusElseIf Text1 = "*" And Text2 = "123" ThenForm2.HideForm3.ShowEnd IfEnd SubPrivate Sub Text1_Change()End Sub解释：利用 Msgbox 判断输入数据的正确性，否那么不允许登录然后进入计算器界面：Private Sub Command1_Click()Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)“加法运算End SubPri

4、vate Sub Command2_Click()Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text)法运算End SubPrivate Sub Command3_Click()Text3.Text = Str(Val(Text1.Text) * Val(Text2.Text) 法运算 End SubPrivate Sub Command4_Click()Text3.Text = Str(Val(Text1.Text) / Val(Text2.Text)法运算End SubPrivate Sub Command6_Click()Text3.Tex

5、t = Str(Val(Sqr(Text1.Text) “开方运算 End SubPrivate Sub Command5_Click()Text1.Text2 = Str(Val(Text1.Text) * Val(Text1.Text)方运算 EndSub清零Private Sub Command7_Click()Text1 = ""Text2 = ""Text3 = ""End SubPrivate Sub Command8_Click()Dim a#, s#s = 1a = Val(Text1)For i = 1 To a“阶乘运算s = s * iText3 = sNext i除法取余End SubPrivate Sub Command9_Click() Text3 = Str(Val(Text1) Mod (Text2) End SubPrivate Sub Text1_Change()End Sub总体解释：工程主要包括 3 个界面，第一个界面主要包括 课题、班级、姓名、倒计