模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如图所示，在文本框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

有如下通用过程和事件过程，运行程序后，单击窗体，程序的运行结果是（）
public function ss(x as integer,y as integer) as integer
if   x>y   then   ss=x-y   else ss=y-x
END FUNCTION
PRIVATE SUB FORM CLICK(   )
DIM A AS INTEGER ,B AS INTEGER
A=8: B=6
PRINT   SS(A,B)
END SUB

同类题2

X = 9
For i =" 3" To 9 Step 3
If (X / 3) >=" i" Then X =" X" + 3
Next i
For i =" 22" To 2 Step 2
If (X / 2) >=" i" Then X =" X" + 2
Next i
MsgBox (X + i)
该程序的运行结果是（）

同类题3

当输入A的值为3时，输出结果_______。

同类题4

Function LEAP( Y As Integer) As Integer
If Y Mod 400 =" 0" Or Y Mod 4 =" 0" And Y Mod 100 <> 0 Then LEAP =" 1" Else LEAP =" 0"
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Y1 As Integer
If KeyAscii =" 13" Then
Y1 = Val(Text1.Text) ' 在text1中输入年份y1
Text2.Text =" Str(28" + LEAP(Y1)) ' 在text2中输出该年的二月份天数
End If
End Sub
以上程序运行后，在Text1中输入 2001，在 Text2中显示的是（）

同类题5

（加试题）创建VB程序，统计英语短文中字母出现的次数，并输出出现次数最多的字母和未出现的字母。要求字母不区分大小写，均表示为大写字母。程序运程界面如图所示。

算法如下：

（1）获取输入的英语短文，存入变量s

（2）统计字母出现次数

依次取出s中的每个字符

如果是大写字母，计算其在字母表中的位置n，并计数

如果是小写字母，计算其在字母表中的位置n，并计数

（用数组a存放26个字母出现的次数，a(1)存放“A”出现的次数，a(2)存储“B”出现的次数，……,a(26)存储“Z”出现的次数。）

（3）找出最大出现次数

（4）找出出现次数最多和未出现过的字母并输出

VB程序如下，在其中①②③划线处填定相应代码，完善程序。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, max As Integer
Dim a(1 To 26) As Integer '数组a存放26个字母出现的次数。
Dim s As String, c As String '变量s存放输入的短文
Dim s1 As String, s2 As String   '变量s1、s2分别存放出现次数最高和未出现的字母组成的字符串
s = Text1.Text
'统计字母出现次数
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
n = Asc(c) - Asc("A") + 1
a(n) =（1）____________
ElseIf c >= "a" And c <= "z" Then
n = Asc(c) - 32 - Asc("A") + 1
a(n) = a(n) + 1
End If
Next i
'找出最大出现次数
max = a(1)
For i = 1 To 26
If（2）____________ Then
max = a(i)
End If
Next i
'找出出现次数最多和未出现过的字母
For i = 1 To 26
If （3）__________ Then
s1 = s1 + " " + Chr(Asc("A") + i - 1)
ElseIf a(i) = 0 Then
s2 = s2 + " " + Chr(Asc("A") + i - 1)
End If
Next i
Label2.Caption = "出现次数最多的字母是：" & s1 & "  出现次数为：" & Str(max)
Label3.Caption = "未出现的字母是：" & s2
End Sub

相关知识点