试题 试卷
题型：单选题 题类：真题 难易度：普通
浙江省普通高校招生选考科目信息技术试卷（2019.4）
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（ ）
Private Sub Command1_Click()
Dim s As Integer, j As Integer
s = 0
For j = 1 To 10
If j Mod 2 <> 0 Then
s = s + j
End If
Next j
Label1.Caption = Str(s)
End Sub
Dim x As String, y As String
Dim ans As Integer
x=“5”：y=“20”：ans=0
If x>y Then ans=Val(x)Else ans=Val(y)
ans=ans+Val(x+y)
Text1.Text=Str(ans)
程序运行完后，文本框Text1中显示的是：（ ）
请回答下列问题：
Privat Sub Command1 Click
Dim array1(10,10) As Integer
Dim i AS integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i,j) = i + j
Next i
Text1.Text=array1(2, 3)+array1(3, 4)
程序运行后，单击命令按钮，在文本框中显示的值（ ）
试题篮
