单项选择题

有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call Sub1(a,b)
End Sub
Sub Sub1(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
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序段的执行结果为( )。 n:0 For i=1 To 3 For j=5 To Step-1 n=n+1 Next j，i Print n:j;i
A) 12 0 4
B) 15 0 4
C) 12 3 1
D) 15 3 1
单项选择题
下面程序运行后，输出结果是( )。 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
相关试题