题目内容
（请给出正确答案）
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub
A．12 32
B．2 32
C．2 3
D．12 3
如果结果不匹配，请 联系老师 获取答案
更多“单击命令按钮时，下列程序的执行结果为 Private Sub…”相关的问题
单击命令按钮时，下列程序的执行结果为()。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=50:y=78 CallPPP(x，y) Printx；y End Sub Pubfic Sub PPP(ByValnAsInteger，ByValm As Integer) n=n\10 m=m\10 End Sub
A．08
B．50 78
C．450
D．78 50
单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click（）
Dim x As Integer, y As Integer
x=12: y=32
Call PCS（x, y）
Print x; y
End Sub
Public Sub PCS（ByVal n As Integer, ByVal m As Integer）
n=n Mod 10
m=m Mod 10
End Sub（）。
A．12 32
B．2 32
C．2 3
D．12 3
单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10End Sub
A．12 32
B．2 32
C．2 3
D．12 3
单击命令按钮之后，下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S： End Sub
A．20
B．30
C．115
D．135
单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub
A．32 42
B．2 32
C．2 3
D．12 3
有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=1 To 10 If (x(k)＞0) Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub
A．148
B．40
C．-40
D．3.7
单击—次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function
A．15
B．25
C．35
D．45
单击命令按钮，并在对话框内依次输入99，73，84，88，-1，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim S As Single, max As Single, min As Single n=0 S=InputBox("Please enter a score") max=S min=S Do While S＞=0 If S＞max Then max=S End If If S ＜ min Then min=S End If S=InputBox("Please enter a score") n=n+1 Loop Print n; ":"; max, min End Sub
A．4:99,88
B．4;99,73
C．4:99,73
D．4;99,88
在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为()。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i，"*") Print x Next i End Sub Private Sub Command1_Click() p1(3) End Sub
A．*** ** *
B．* ** ***
C．* * *
D．******
单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print Fun(23，18)
End Sub
Public Function Fun(m As Integer，n As Integer) As Integer
DO While m＜＞n
DO While m＞n:m=m-n:Loop
DO While m＜n:n=n-m:Loop
Loop
Fun=m
End Function
A．0
B．1
C．3
D．5
