模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算，并输出运算结果。程序界面如第14题图所示，在文本框Text1输入第一个数a，在文本框Text2输入第二个数b，在文本框Text3输入运算符ch，在文本框Text4中输出结果。当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的Vi...

题型：综合题题类：常考题难易度：困难

浙江省安吉县上墅私立高级中学2015-2016学年高二下学期期中考试试卷信息技术部分

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

当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。相应的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

（1）、解决此问题采用的算法是。（填：解析算法/枚举算法/查找算法）

（2）、程序中划线处①应填入

程序中划线处②应填入

程序中划线处③应填入

举一反三

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
程序界面如图VB-1所示，用户在文本框Text1中输入数字长度，单击“确定长度”按钮（Command1）后，在文本框Text2中输入数字，单击“判定”按钮（Command2）后，程序在标签Label3中输出校验结果。
相应的程序如下，在程序划线处，填入适当的语句或表达式，把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n = Val(Text1.Text)
For i = 1 To n                   '产生n位小于8的密码，每位一个非负整数，保存到数组num
num(i) = {#blank#}1{#/blank#}
Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
n = Val(Text1.Text)
For i = 1 To n
     x(i) = {#blank#}2{#/blank#}    '把文本框中数字逐个分割出来并转化成数值
Next i
s = 0                               '变量s保存不同字符的总数
For i = 1 To n
If num(i) <> x(i) Then s = s + 1
Next i
If {#blank#}3{#/blank#} Then
Label3.Caption = "恭喜你猜中了！"
Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
End If
End Sub

有如下程序段：

i = 1

Do While i <= 5

If i = 0 or a(i - 1) <= a(i) Then

i = i + 1

Else

t = a(i): a(i) = a(i - 1): a(i - 1) = t

i = i - 1

End If

Loop

For i = 1 To 5

List2.AddItem a(i)

Next i

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（）

【加试题】某算法流程图如下图所示，该流程图对应的程序段为（）

有如下VB程序段

Dim a(1 To 100)As Integer, b(1 To 10) As Intege

Dim i As Integer, s As Integer, c As Integer

For i=1 To 100

a(i)=0

Next i

For i=1 To 9 Step 2

a(b(i))=a(b(i))+1: a(b(i+1)+1)=a(b(i+1)+1)-1

Next i

c=0

For i=1 To 100

c=c+a(i)

If c=0 Then s=s+ 1

Next i

Text1. Text= Str(s)

若数组b中的值依次为“5，10，7，20，30，40，40，60，55，70”，则程序运行后Text中的内容是（）

某算法的部分流程图如图所示，执行这部分流程后，下列分析正确的是（）

小明编写了一个简单算式计算器程序，功能如下：在文本框Text1中输入一个加法的算式，形式为a+b，a和b都为正整数，单击按钮 Command1后，在标签 Label1上显示算式的计算结果。程序运行界面如图所示。

相关试卷

公司介绍

服务介绍

帮助中心