模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框Text1输入第一个数a，在文本框Text_刷题宝

题干

模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。
（1）若想要在程序启动时清空文本框Text4中显示的内容，需要在Form_Load()中添加________（单选，选填字母：

A．Text4.Caption=""

B．Text4.Text=""

C．Text4.Clear）语句。

（2）相应的Visual Basic程序如下，在①、②、③划线处，填入合适的语句或表达式，把程序补充完整。
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 If
End Sub

上一题下一题 0.99难度填空题更新时间:2019-06-03 11:04:27

答案(点此获取答案解析）

同类题1

水仙花数是指一个三位数，它的各位数的立方和正好等于该数本身。如： 153=1×1×1+5×5×5+3×3×3
小张设计了一个算法来输出所有的水仙花数，具体程序如下。

（1）在程序中常见用于解决问题的方法有解析法、穷举法、递归法等，本题中使用了哪种方法？
___________________________________
（2）程序中定义了几个变量？
___________________________________
（3）将程序中①的代码补充完整。
___________________________________
（4）将程序中②的代码补充完整。
___________________________________
（5）在for循环结构中，循环体执行的次数是多少？
___________________________________
（6）在本题中变量c主要用来存放这个三位数中的百位、十位还是个位上的数？
___________________________________

同类题2

执行下面的Visual Basic程序段后，变量a，b的值是( )

A．a=5，b=6	B．a=6，b=5
C．a=1，b=11	D．a=11，b=1

同类题3

（加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then
（2）
List1.AddItem Str(i)
a(i) = True
f = （3）
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

同类题4

有如下Visual Basic程序段：
a=2
b=3
c=0
b=a
c=a+b
该程序段运行后,变量c的值为_______。

同类题5

小王编写VB程序，实现如下功能：在Text1中输入1~ 9之间的任意一个数字，单击“计算”按钮Command1, 计算该数字的阶乘并显示在标签Label2中。程序运行界面如图所示：

　
（1）如图所示，窗体中（不包含窗体本身）的对象共有__个（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, s As Long
s = 1
i =______
If i >= 1 And i <= 9 Then
For j = 1 To i
s = _______
Next j
　Label2.Caption = Str(i) & "的阶乘为:" & Str(s)
Else
　Label2.Caption = "请重新输入1~ 9之间的任意数字"
End If
End Sub
（3）程序中，若将变量s的类型由Long改为Integer，在文本框Text1中输入的内容为“9”，单击“计算”按钮后，程序运行将会出现什么情况____（单选，填字母：

B．类型不匹配 /

C．要求对象）。

相关知识点