试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙教版高一信息技术 专题五：VB程序设计
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s1 As String, s2 As String, c As String
s1=Text1.Text
s2=” ”
n=Len(s1)
For i=1 To n
c=Mid(s1,i,1)
s2=c+s2
Next i
Text2.Text=s2
End Sub
If x>100 then
Y=12
① x>60 then
Y=8
Else
y=5
②
该程序段中，①处填写的内容为{#blank#}1{#/blank#}；②处填写的内容为{#blank#}2{#/blank#}。
该同学绘制了该程序的流程图，如下图所示：
当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为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 = "除数不能是零"
③
End If
For i=1 to 10
b(i)=0
For i=1 To 5
For j=1 To 10
If b(i)<a(j)Then
b(i)=a(j)
t=j
Next j
a(t)=0
List1．AddI tem Str(b(i))
其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List1中依次输出的数据是（ ）
x=″abcdcba″:ans=0
For i=1 To Len(x)\2
If Mid(x,i,1)=Mid(x,Len(x)-i+1,1) Then
ans=ans+1
end if
Text1.Text=Str(ans)
试题篮
