题库 高中信息

题干

(加试题)一个简单的四则混合运算式子(算式中只包含整数、+、-、*、/、=)的运算规则是先进行“*”或“/”,再进行“+”或“-”,下列是用 VB编写的简单四则混合运算的程序,运行程序时在文本框 Text1 中输入四则运算式子,单击命令按钮 Command1,在标签Label1 中输出结果。程序界面及代码如下。请回答以下问题。
(1) 若在文本框 Text1 中输入式子“12*5-32/4+20=”,则运行程序后在标签 Label1 中显示的内容是_________。

(2) 请在划线①②③处填入合适的代码,让程序能实现计算功能。
Private Sub Command1Click
Dim a(1 To 100) As Single, b(0 To 100) As String
Dim s As String, c As String   
Dim sz As Integer, i As Integer, k As Integer
s = Text1.Text:k = 0
For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

sz = 0
Do While c >= "0" And c <= "9"
sz= ①________
i = i + 1
c = Mid(s, i, 1)
Loop
k = k + 1: a(k) = sz: b(k) = c
End If
Do While k > 1 And ②________
If b(k - 1) = "+" Then a(k - 1) = a(k - 1) + a(k)
If b(k - 1) = "-" Then a(k - 1) = a(k - 1) - a(k)
If b(k - 1) = "*" Then a(k - 1) = a(k - 1) * a(k)
If b(k - 1) = "/" Then a(k - 1) = a(k - 1) / a(k)
b(k-1) = b(k)
k = k - 1
Loop
Next i
Label1.Caption = "运算的结果是:" + Str(a(1))
End Sub
Function yxj(x As String) As Integer

If x = "*" Or x = "/" Then

yxj = 1

ElseIf x = "+" Or x = "-" Then

yxj = 2

Else

 ③________

End If

End Function
上一题 下一题 0.99难度 填空题 更新时间:2019-05-25 01:13:58

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

同类题5

为了安排寝室,需要将学生按性别分类。小陈设计了一个VB程序,运行该程序,单击“数据导入”按钮Command1后,左侧列表框List1中显示40位学生的编号和性别;然后单击“数据处理”按钮Command2,中间列表框List2中显示所有女生的信息,右侧列表框List3中显示所有男生的信息,并在相应的列表框下方显示人数。运行结果如下图所示。

实现上述功能的VB程序段如下,分析回答下列问题。
Dim a(1 To 40) As String  '数组a用于存储学生编号
Dim b(1 To 40) As String   '数组b用于存储学生性别
Private Sub Command1_Click
Dim i As Integer
List1.Clear
List2.Clear
List3.Clear
'在列表框List1中显示40位学生的编号和性别
For i=1 To 40
.AddItem a(i)+” ”+b(i) ①
Next i
End Sub
Private Sub Command2_Click
Dim n As Integer   '用于存储女生人数
Dim m As Integer   '用于存储男生人数
Dim i As Integer
List2.Clear
List3.Clear
n=0: m=0
For i=1 To 40
If  b(i)=”女”  Then
List2.AddItem a(i)    '在列表框List2中显示女生信息
n=n+1
Else
List3.AddItem a(i)    '在列表框List3中显示男生信息


End If
Next i
Label1.Caption=”女生人数:”+Str(n)
Label2.Caption=”男生人数:”+Str(m)
End Sub
(1)小陈将学生的编号和性别分别存放在数组a和数组b中,这段代码书写在窗体的加载事件中,下列属于该事件的是(____)
A.Form_ClickB.Command1_Click 
C.Form_LoadD.Form_Unload
(2)①和②加边框处分别有误,根据题意修改源代码,①处应修改为________,②处应修改为__________