试题 试卷
题型：单选题 题类：模拟题 难易度：困难
2017年浙江省高考信息技术模拟试卷（三）
Private Sub Command1_Click()
For i = 150 To 300
a = i \ 100
b = I mod 100 \ 10
c = i – a*100 – b*10
If i = a * a * a + b * b * b + c * c * c Then
Label1.Caption = Str(i)
End If
Next i
End Sub
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i <= n Then ① Else ②
Label1.Caption = s
为实现以上功能，划线①②处应分别填写（ ）
①接收用户输入 ②比较用户的输入和待猜数是否相等，相等则输出“猜对”，否则转向①继续执行，直到猜对为止。能表示此过程的流程图是（ ）
Dim i As Integer, Sum As Integer
Dim a(1 To 11) As Integer
Sum = 6
a(11) = 49
For i = 10 To 1 Step -1
a(i) = a(i + 1) - 1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Text1.Text = Str(Sum)
该程序段运行后，文本框text1中显示的内容是（ ）
s="ABC123":i=1
Do While i<=6
ch=Mid(s,i,1)
If ch>="0" And ch<="9" Then c=c+1
i=i+1
Loop
a=1
b=a+1
print(a，b)
试题篮
