模拟一个简单计算器,输入两个数和一个运算符(加、减、乘、除),进行算术运算,并输出运算结果。程序界面如下图所示,在文本框Text1输入第一个数a,在文本框Text2输入第二个数b,在文本框Text3输入运算符ch,在文本框Text4中输出结果。当输入的运算符不是加、减、乘、除四种运算符时,则输出“运算符不正确”;当进行除法运算时,如果除数为0,提示输出“除数不能为零”。相应的Visual Basic程序如下,
(1)
观察程序设计界面,共有类对象具有Caption属性。
(2)
实现上述功能的VB程序如下在划线处,填入合适的语句或表达式,把程序补充完整。Private Sub Command1_Click() Dim a As Single, b As Single, ch As String a = Val(Text1.Text) b = Val(Text2.Text) If ch = "+" Then Text4.Text = Str(a + b) ElseIf ch = "*" Then Text4.Text = Str(a * b) ElseIf ch = "-" Then Text4.Text = Str(a - b) ElseIf ch = "/" Then If Then Text4.Text = Str(a / b) Else Text4.Text = "除数不能是零" Else End IfEnd Sub
答案: 【1】3
【1】ch=Text1.Text【2】b<>0【3】Text4.Text=”运算符不正确”