更多"有如下程序: Private Sub Commandl_Click("的相关试题:
[单项选择]有如下程序:
Private Sub Commandl_Click( )
Dim a As Single
Dim b As Single
a=2:b=4
Call CS(a,b)
End Sub
Sub CS(x As Single,y As Single)
t=X
x=t/y
y=t Mod y
End Sub
程序运行后,单击命令按钮,a和b的值分别为( )。
A. Dim pict[3,4]As Integer
B. Dim pict(3,4)As Integer
C. Dim pict[3.4]As Integer
D. Dim pict(3:4)As Integer.
[单项选择]有如下程序:
Private Sub Command1 Click( )
Dim a As Single
Dim b As Single
a=5:b=4
Call S(a,B)
End Sub
Sub S(x As Single,y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在调用运行上述程序后,a和b的值分别为( )。
A. java.exe
B. javadoc.exe
C. jdb.exe
D. javaprof.exe
[单项选择]有如下程序: Private Sub Form Click( ) Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2<>0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后,单击窗体,输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序: Private Sub Command1 Click( ) Dim a As Single Dim b As Single a=5:b=4 Call S(a,B) End Sub Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在调用运行上述程序后,a和b的值分别为
A. 0 0
B. 1 1
C. 2 2
D. 1 2
[单项选择]有如下程序: Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer,m As String Static y,n X=X + 1 y=y + 1 m=m &"*”:n=n&"#" Print x,y,m,n End Sub 程序运行后,输出的结果是
A. 1 1 * #
B. 1 1 * #
C. 1 1 * # 1 1 * # 1 2 * #
D. 1 1 * # 1 1 * ## 1 2 * ##
[单项选择]有如下程序: Private Sub Form_Click( ) Dim i As Integer,Sum As Integer Sum=0 For i=2 To 10 If i Mod 2<>0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后,单击窗体,输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]阅读如下程序: Private Sub Form_Click( ) Dim num As Integer,digit As Integer num=InputBox("输入数据") Do While num <> 0 digit=num Mod 10 num=num/10 Print digit; Loop End Sub 程序运行后,如果从键盘上输入12345,则输出的结果为
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]设有如下程序: Private Sub Form_ Click( ) Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后,单击窗体,则在窗体上显示的是______ 。。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4