更多"下面程序的输出结果是( )。 Private Sub Comman"的相关试题:
[单项选择]下面程序的输出结果是( )
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
[填空题]下面程序的输出结果是 【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( )
Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
For i = 1 To 4
a(i) =i
Next
For i = 2 To 6
b(i) =i
Next
str 1 = YAG (
[填空题]下面程序的输出结果是______。
Private Sub Command1_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
MsgBox a(2)
End Sub
[单项选择]下面程序运行后,输出结果是( )。
Private Sub mysub(b( )As Integer,Optional ByVal n As Integer=2)
For I=1 to 4
b(I)=n*I
Next I
End Sub
Private Sub Command1_Click( )
Dim a(1 to 4)As Integer,I As Integer
Call mysub(a( ),5)
Mysub a( )
For I=1 to 4
Print a(I);
Next
End Sub
A. 5 10 15 20
B. 2 4 6 8
C. 出错
D. 0 0 0 0
[单项选择]下面程序执行时,输出的结果是( )。
Private Sub Form_Click( )
Dim i As Integer,j As Integer
i=10
Do
i=i+j
for j=10 to step-3
i=i+j
next i
Loop While i<50
Print i; j
End Sub
A. 50 10
B. 50 9
C. 57 10
D. 59 9
[填空题]下面程序运行后,单击命令按钮,输出的结果是 【12】
Private Sub Command1_Click( )
Dim a%(1 To 4),b%(2 To 6),i%,str1#,str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function
[填空题]下面程序运行后,单击命令按钮,输出的结果是【 】。
Private Sub Commandl_Click( )
Dim a%(1 To 4) ,b%(2 To 6) ,i%,strl#,str2#
For i=1 To 4
a(i) =i
Next i
For i=2 To 6
b(i) =i
Next i
str1 =YAG(a)
str2 =YAG(b)
Print"strl";str1;"str2=";str2
End Sub
Function YAG (a( )As Integer)
Dim T#,i%
t=1
For i=LBound(a) To UBound(a)
t=t * a(i)
Next i
YAG =t
End Function