单项选择题

以下程序段运行的结果是______。 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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画两个标签和一个命令按钮，其名称分别为Labe11、Labe12和Command1，然后编写如下程序： Private Sub func(L As Labe1, ByVal a As Integer) L.Caption= 1234 a=a*a End Sub Private Sub Form_Load() Labe11.Caption= ABCD Labe12.Caption=10 End Sub Private Sub Command1_Click() a=Val(Labe12.Caption) Call func(Labe11, A) Labe12.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Labe11和Labe12中显示的内容分别是______。

A．ABCD 和 10
B．1234 和 100
C．ABCD 和 100
D．1234 和 10

单项选择题

在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a, b Print a= ; a; b= ; b End Sub 程序运行后，单击命令按钮，输出结果是______。

A．a=30 b=10
B．a=30 b=30
C．a=10 b=30
D．a=10 b=10

相关试题