单项选择题

以下程序段运行的结果是: ______。
Dim a(-1 To 5)As Boolean
Dim flag As Boolean
flag=False
Dim i As Integer
Dim j As Integer
Do Until flag=True
For i=-1 To 5
j=j+1
If a(i)=False Then
a(i)=True
Exit For
End If
If i=5 Then
flag=True
End If
Next
Loop
Print j

A.20
B.7
C.35
D.8
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上面一个命令按钮,其名称为Command1,然后编写如下程序: Function Func(ByVal x As Integer,y As Integer) y=x*y If y>0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=3 b=4 c=Func(a,B) Print a= ;a Print b= ;b Print”c= ;c End Sub 程序运行后,单击命令按钮,其输出结果为: ______。
A.a=3 b=12 c=3
B.a=3 b=4 c=3
C.a=3 b=4 c=12
D.a=13 b=12 c=12
单项选择题
下列程序段的执行结果为 ______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i,j) Next Next Print x
A.3
B.4
C.5
D.6
相关试题
  • 使用目录列表框的 ______ 属性可以...
  • 下面叙述中正确的是 ______。
  • 在窗体上画一个驱动器列表框、一个目录列表...
  • 下列程序段的执行结果为 ______。 ...
  • 下列程序段的执行结果为 ______。 ...