更多"下列程序输出的结果为 【12】 。
Private Sub"的相关试题:
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click( ) Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[填空题]下列程序输出的结果为 【13】 。
Private Sub Command1 Click
Dim a As Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VC"
22:
Print"VC"
End Sub
[填空题]下列程序输出的结果为 【12】 。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
[填空题]下列程序输出的结果为 【13】 。
Private Sub Command1 Click
Dim a As Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VC"
22:
Print"VC"
End Sub
[填空题]下列程序的输出结果是 【16】
Private Sub Command1_Click( )
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a( )
a (i) =20
Next i
[填空题]下列程序的输出结果是 【15】 。
Private Sub Commandl Click( )
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i ln a( )
a(i)=20
Next i
Print a(2)
End Sub
[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click( ) Dim s(10),p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
A. 33
B. 28
C. 35
D. 37
[填空题]下列程序输出的结果为 【13】 。
Private Sub Command1_Click
Dim a AS Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VB"
22:
Print"VC"
End Sub
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click( )
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
[单项选择]下面程序的输出结果是( )。
Private Sub Command1_Click( )
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
[填空题]下列程序的输出结果是【15】。
Private Sub Command l Click( )
Dim a(1 TO 20)
Dim i
For i=1 TO 20
a(i)=i
Next i
For Each i In a( )
a(i)=20
Next i
Print a(2) End Sub
[填空题]下列程序输出的结果为______。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
[单项选择]以下程序的输出结果是
Private Sub Command1_Click( )
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub
A. ABCDEF
B. FEDCBA
C. A
D. F
[填空题]下面程序的输出结果是 【15】 。
Private Sub Form_Click( )
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub