用VB编写简单计算器程序

a）会设计程序界面，如：窗体设计、基本按钮功能等；b）输入两个操作数和一个操作符，根据操作符（加、减、乘、除）决定所做的运算；c）为了保证程序的正常运行，程序中对输入的操... a）会设计程序界面，如：窗体设计、基本按钮功能等；b）输入两个操作数和一个操作符，根据操作符（加、减、乘、除）决定所做的运算；c）为了保证程序的正常运行，程序中对输入的操作数和操作符有检验的能力，如在规定范围以外（如输入操作数非法、运算符非法等），利用MsgBox函数显示出错信息，并把焦点指向出错位置；d）点击“计算”按钮出结果，点击“结束”按钮关闭程序；
界面要求：展开

 我来答

3个回答

#热议# 应届生在签三方时要注意什么？

xlech
推荐于2017-12-15 · TA获得超过149个赞

知道答主

回答量：55

采纳率：0%

帮助的人：37.2万

我也去答题访问个人页

关注

展开全部

以下是关键代码：

Rem 判断文本框输入是否正确，可添加在“计算”按钮代码中
If IsNumeric(Text1.Text) = False Then '判断是否是数字
 Msgbox "错误",16,"错误提示"
 Text1.SetFocus
End If
If IsNumeric(Text2.Text) = False Then
 Msgbox "错误",16,"错误提示"
 Text2.SetFocus
End If

Rem 计算，可添加在“计算”按钮代码中
Select Case Text3.Text
 Case "+"
  Text4.text = Val(Text1.Text) + Val(Text2.Text)
 Case "-"
  Text4.text = Val(Text1.Text) - Val(Text2.Text)
 Case "*"
  Text4.text = Val(Text1.Text) * Val(Text2.Text)
 Case "/"
  Text4.text = Val(Text1.Text) / Val(Text2.Text)
 Case Else
  Msgbox "错误",16,"错误提示"
  Text3.SetFocus
End Select

Rem 结束，可添加在“结束”按钮代码中
End