Private Sub Command1_Click()
D.im x As Integer, y As Integer
x=32: y=42
C.all PCS(x, y)
Print x; y
E.nd Sub
Public Sub PCS(Byval n As Integer, ByVal m As Integer)
n=n Mod 10+1
m=m Mod 10+1
E.nd Sub ( )。
A.32 42
B.2 32
C.2 3
D.12 3
[单选题]单击命令按钮时,下列程序的执行结果为Private Sub Command1_Click()D.im a As Integer, b As Integer, c As Integera=2: b=3: c=4Print P2(c, b, A.E.nd SubPrivate Function P1(x As Integer, y As Integer, z As Integer)P1=2 * x + y + 3 * zE.nd FunctionPrivate Function P2(x As In
[单选题]单击命令按钮时,下列程序的执行结果为Private Sub Command1_Click()D.im x As Integer, y As Integerx=12: y=32C.all PCS(x, y)Print x; yE.nd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10E.nd Sub( )。A.12 32B.2 32C.2 3D.12 3
[单选题]单击命令按钮时,下列的执行结果为Private Sub Command1_Click()D.im x As Integer, y As Integerx=86: y=29C.all Proc(x, y)Print x; yE.nd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10E.nd Sub( )。A.12 32B.6 29C.2 3D.12 3
[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()B.T 4E.nd SubPrivate Sub BT(x As Integer)x=x * 2 + 1If x < 6 ThenC.all BT(x)E.nd Ifx=x * 2Print x;E.nd Sub( )。A.15B.16C.17D.18
[单选题]单击命令按钮,下列事件过程的执行结果为Private Sub Command1_Click()D.im x As Integer, y As Integerx=40: y=72C.all PtoP(x, y)Print x; yE.nd SubPublic Sub PtoP(Byval n As Integer, ByVal m As Integer)n=n \ 10+2m=m \ 10+2E.nd Sub( )。A.0 8B.40 72C.4 50D.78 50
[单选题]单击命令按钮时,下列程序的运行结果为Private Sub Command1_Click()Print MyBM(23, 18)E.nd SubPublic Function MyBM(m As Integer, n As Integer) As IntegerD.o While m <> nD.o While m > n: m=m - n: LoopD.o While m < n: n=n - m: LoopLoopMyBM=mE.nd Function( )。A.0B
[单选题]单击一次命令按钮后,下列程序的执行结果是Private Sub Command1_Click()s=P(1) + P(2) + P(3) + P(4)Print sE.nd SubPublic Function P(N As Integer)Static SumF.or i=1 To NSum=Sum + iNext iP=SumE.nd Function( )。A.15B.25C.35D.45
[单选题]单击命令按钮时,下列程序段的执行结果为( )。A. 8B. 6C. 4D. 2
[单选题]有如下事件过程,单击命令按钮扣,输出结果为Private Sub Command1_Click()D.im b%(1 To 4) , j%, t#F.or j=1 To 4b(j) =jNext jt=Tax(b() )Print "t="; t,E.nd SubF.unction Tax (a() As Integer)D.im t#, i%t=1F.or i=2 To UBound(A.t=t * a(i)Next iTax=tE.nd Function( )。A.t=18B.t=24C
[单选题]单击命令按钮时,下列程序的执行结果为Private Sub Command1_Click()D.im x As Integer, y As Integerx=12: y=32C.all PCS(x, y)Print x; yE.nd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10E.nd SubA.12 32B.2 32C.2 3D.12 3