更多"以下程序段运行的结果是______。 Dim a(-1 To 5)A"的相关试题:
[单项选择]以下程序段运行的结果是______。
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+l
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
[单项选择]以下程序段运行的结果是______。 Dima(-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
[单项选择]以下程序段运行的结果是:_______。 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 Ifa(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
[单项选择]以上程序段运行的结果是:______.
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
[单项选择]下列程序段运行结束后,消息框中的输出结果是()。
Dim c As Boolean
a=Sqr(3)
b=Sqr(2)
c=a>b
MsgBox c
A. -1
B. 0
C. False
D. True
[单项选择]下列程序段运行结束后,消息框中的输出结果是______。
Dim C As Boolean
a=Sqr(3)
b=Sqr(2)
c=a>b
MsgBox c
A. -1
B. 0
C. False
D. True
[单项选择]下面程序运行后,输出的结果是
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
Arr(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For j=2 To 3
Print art(k,j);
Next k
Print
Next j
A. 2 5
B. 5 8
C. 4 7
D. 5 9
[单项选择]下面程序运行后,输出的结果是
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
[单项选择]以下程序的输出结果是( )。
Dim var1
Dim var2
Dim var3
var1 = "Hello"
var2 = "World !"
var3 = var1&" "&var2
var1 = 10
var2 = 20
MsgBox var1 + var2
A. Hello World! 30
B. 30
C. 102
D. Hello World!
[单项选择]以下程序段运行的结果是______。
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
[单项选择]下面程序段,运行后的结果是
Private Sub Command1_Click( )
Dim b%(1 To 4),i%,t#
For i=1 To 4
b(i) =i
Next
t=Tof(b( ) )
Print"t=";t,
End Sub
Function Tof(a( ) As Integer)
Dim t#,i%
t=1
For i=2 To UBound(