更多"有如下程序: Private Sub Commandl_Cick( "的相关试题:
[单项选择]编写如下程序: Private Sub Form Click( ) a$=: "4321": b$="abcd" For 3=1 To 4 Print Mid$(a$,5-j,1)+Nid$(b$, j, 1); Next j Print End Sub 程序运行后,单击窗体,其输出结果为 ______。
A. alb2c3d4
B. b4c3d2el
C. eld2c3b4
D. la2b3c4d
[单项选择]编写如下程序: Private Sub Form_Click( ) a$="54321":b$="abcde" For j=1 To 5 Print Mid$(a$,6-j,1)+Mid$(b$,j,1); Next j Print End Sub 程序运行后,单击窗体,其输出结果为 ______。
A. a1b2c3d45e
B. a5b4c3d2e1
C. e1d2c3b4a5
D. 1a2b3c4d5e
[单项选择]设有如下程序: Private Sub Commandl Click( ) Dimsum As Double,x As D0uble sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值,这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]有如下程序:
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( ) a=20:b=20:c=120:d=120 Form1.Line(a,b)-(c,b),,BF End Sub 单击窗体后,窗体上显示的是( )。
A. 一条直线
B. 一个矩形空框
C. 一个填充了颜色的矩形
D. 无任何图形
[单项选择]有如下程序: 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 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. 0 0
B. 1 1
C. 0 2
D. 1 2
[单项选择]有如下程序: Private Sub Form_Click( ) Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2<>0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后,单击窗体,输出结果为( )。
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序: 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