题目内容
（请给出正确答案）
单击命令按钮时，下列程序的执行结果为()。 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 S…”相关的问题
单击命令按钮时，下列程序的执行结果为
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 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
单击命令按钮，并在对话框内依次输入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
单击命令按钮时，下列程序的运行结果为
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
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem ＜＞ 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
单击命令按钮时，下列程序代码的执行结果为______。 PubUc Sub Procl(n As Integer,By Valm As InteSg) n=n Mpd 10 m=m/10 End Sub PHvate Sub Commandl Click() Dim X As Inte9er,y As Intger x=12:y=34 Call Procl(x,y) Print x;y End Sub
A．12 34
B．2 34
C．2 3
D．12 3
单击命令按钮时，下列的执行结果为
Private Sub Command1_Click（）
Dim x As Integer, y As Integer
x=86: y=29
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．6 29
C．2 3
D．12 3
单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(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 MyFund=m End Function
A．0
B．2
C．4
D．6
