变量定义语句Dim Index&与下面的______等价。 ( )
A:Dim Index As Long B:Dim Index As Integer C:Dim Index As Single D:Dim Index As Double
有如下程序:
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 proc1(x As Integer,y As Integer,z As Integer)
x=3*z
y=2*z
z=x+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,Z As Integer
x=1:y=2:z=3
Call proc1(x,x,z)
Print x;x;z
Call proc1(x,y,y)
Print x;y;y
End Sub
A:Dim NewArray(10)As Integer B:Dim NewArray(1 T0 10)As Integer C:Dim NewArray(10)Integer D:Dim NewArray(1 To 10)Integer
单击按钮时,以下程序运行后的输出结果是( )。
Private Sub proc1(x As Integer,y As Integer,z As Integer)
x=3*z
y=2*z
z=x+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,Z As Integer
x=1:y=2:z=3
Call proc1(x,x,z)
Print x;x;z
Call proc1(x,y,y)
Print x;y;y
End Sub
A:Dim NewArray(10)As Integer B:Dim NewArray(1 T0 10)As Integer C:Dim NewArray(10)Integer D:Dim NewArray(1 To 10)Integer
有如下程序:
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 proc1(x As Integer,y As Integer,z As Integer)
x=3*z
y=2*z
z=x+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,Z As Integer
x=1:y=2:z=3
Call proc1(x,x,z)
Print x;x;z
Call proc1(x,y,y)
Print x;y;y
End Sub
A:Dim NewArray(10)As Integer B:Dim NewArray(1 T0 10)As Integer C:Dim NewArray(10)Integer D:Dim NewArray(1 To 10)Integer