试题 试卷
题型：综合题 题类：模拟题 难易度：普通
浙江省杭州市2016年信息技术高考模拟卷二
Private Sub Command1_Click()
List1.Clear
List2.Clear
Dim a(1 To 10) As Integer
For i = 1 To 10
a(i) =
If Then
List1.AddItem Str(a(i))
Else
End If
Next i
End Sub
Private Sub Command1_Click（）
Dim a As String
a = Text1.Text
a = Chr（Asc（a） - 32）
Label1.Caption = a
k = Val(Text1．Text)
left1 = 1: right1 = 10
Do While (left1 <= right1)
mid1 = (left1 + right1) \ 2
If a(mid1) <=k Then
left1 = mid1 + 1
right1 = mid1-1
Loop
Text2．text=str(right1)
已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10．程序运行时，在文本框text1中输入5，文本框text2显示的内容是（ ）
Dim a As Integer,b As Integer
a=10 ‘①
b=20 ‘②
Text1.Text=“a+b=”+Val(a+b) ‘③
End Sub ‘④
发生“类型不匹配”错误时所执行的语句是（ ）
试题篮
