更多"给出下面程序: Private Sub Command1_Click"的相关试题:
[单项选择]下面程序: Private Sub Form _Click ( ) Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。
A. 0
B. 12
C. Str(
D. 显示错误信息
[单项选择]下面程序: Private Sub Form_Click( ) Dim x,y,z As Integer x=5 Y=7 z=0 Call P1(x,y,z) Print Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 运行后的输出结果为______。
A. 0
B. 12
C. Str(
D. 显示错误信息
[单项选择]下面程序:
Private Sub Form_Click( )
Dim x,y,z As Integer
x=5
y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(By Val a As Integer, By Val b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(2)
D. 显示错误信息
[单项选择]下面程序段,运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4),i%,t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t=";t, End Sub Function Tof(a( ) As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]运行下面程序代码后,变量J的值为______。 Private Sub Fun( ) Dim J as Integer J=10 Do J=J+3 Loop While J<19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后,变量J的值为______。 Private Sub Fun ( ) Dim J as Integer J=10 DO J=J+3 Loop While J<19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]有如下程序:
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 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