题库 高中信息

题干

模拟一个简单计算器,输入两个数和一个运算符(加、减、乘、除),进行算术运算,并输出运算结果。程序界面如下图所示,在文本框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 If
End Sub
上一题 下一题 0.99难度 填空题 更新时间:2019-05-06 08:23:54

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

同类题1

   某种字符加密方法描述如下:
①输入明文、密钥。
②在明文中从左往右每次取连续的8个字符。
③将8个字符围成一圈,从第1个字符开始1,2,3,……数数,数到密钥值时取出该位字符;再由下一个字符开始1,2,3,……数数,数到密钥值时取出该位字符,重复此过程,直至这8个字符被取完。
④依次把取出的8个字符拼接成新的字符串。
⑤重复②-④步骤,直至所有明文字符处理完毕。
编写一个VB程序,实现功能如下:程序运行时从文本框Textl中读入一串明文(长度为8的倍数),从文本框Text2中读入密钥y,单击“加密”按钮Commandl,对明文按上述方法转换后在文本框Text3中显示。程序运行界面如图所示。

(1)运行上述程序,若在文本框Textl中输入“Let's go”,Text2中输入“3”,单击“加密”按钮,则文本框Text3中显示的内容是__________________________。
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Const n=1000
Private Sub Commandl_Click()
Dim f (1 To n) As Integer,cq (1 To n) As Integer
Dim a (1 To n) As String,s As String,res As String
Dim y As Integer,p As Integer,begin As Integer
s=Textl.Text:y=Val(Text2.Text)
For i=1 To 8

f(i)=1

Next i
'计算出列顺序
p=0
For i=1 To 8

j=1

Do While j<=y

p=p Mod 8+1
j=___________

Loop

f(p)=0:cq(i)=p

Next i
For i=1 To Len(s)

a(i)=Mid (s,i,1)

Next i
i=1:begin=-8:res=""
Do While i<=Len(s)

If i Mod 8=1 Then___________

res=res+___________

i=i+1

Loop
Text3.Text=res
End Sub