运行下列程序：Private Sub form_Click( )x = 8: y = 2Call fun1((x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.4 2B.8 2C.8 0D.2 4
运行下列程序：
Private Sub form_Click( )
x = 8: y = 2
Call fun1((x), y)
Print x, y
End Sub
Private Sub fun1(x, y)
s = x
x = s / y
y = s Mod y
End Sub
单击窗体后，则在窗体上显示的结果是( )。
A.4 2
B.8 2
C.8 0
D.2 4
相关考题：
执行下列程序后，鼠标单击窗体，输出结果为 。Private Sub Form_Click（）Print "Click";End SubPrivate Sub Form_MouseDown（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print "Donw"End SubPrivate Sub Form_MouseUp（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print " Up"End Sub（ ）。A．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownClick
设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG
（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Print X,YEnd SubB ）Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Picture.Print X,YEnd SubC ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YE n d S u bD ）Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YEnd Sub
（27）有下列函数过程（ ）。 Function fun1(By Val x As Integer,By Valy As Integer) As Integer Do While y0 reminder=x Mody x=y y=reminnder Loop Fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a,b) Print x End Sub A.0 B.25 C.50 D.100
（28）下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5
有如下函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer) As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a AS Integer Dim b As Integer a=100 b=25 x=fun1(a,B) Print x End SubA．0B．25C．50D．100
下列程序的功能是:当x50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x100时,没有意义。请填空。Private Sub Command1_Click()Dim x As Singlex=InputBox("请输入x的值!")Select Case xCase Is 50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入的数据出界!"End SelectPrint x, yEnd Sub
下列程序的功能是:当x100时, Private Sub Command1_ 下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,Private Sub Command1_Click()Dim x As Singlex = InputBox("请输入x的值" )Select Case xCase Is＜50y=0.8 * xCase 50 To 100y=0.7 * x【 】Print "输入数据出界!"End SelectPrint x, yEnd Sub
下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a，b)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5
下列程序的功能是求方程：x2+y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Command 1_Click()Dim x as intege,y as integerFor x=-34 To 34For y=-34 To 34If______ThenDebug．print x，YEnd IfNext yNext xEnd Sub
下列程序的运行结果是( )。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5
单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End SubA．1 2 3 30 39 72B．1 2 3 1 2 3C．30 39 72 1 2 3D．30 39 72 30 39 72
执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click()Print "Click"；End SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print "Donw"End SubPrivate Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)Print "Up"End SubA．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownCliek
以下程序运行后的输出结果是 ______。 Sub add(x，y) x=x+y Print "x="；x；"，y="；y End Sub Private Sub Command1_Click() x=1 y=1 Call add((x)，(y)) Print"x="; x；"，y="；y End SubA．x=1，y=1 x=2，y=2B．x=2，y=1 x=1，y=1C．x=1，y＝1 x=1，y=1D．x=2，y=1 x=2，y=1
下列程序的功能是:当x100时,没有意义。请填空。 Private 下列程序的功能是：当x＜50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x＞100时，没有意义。请填空。Private Sub Command1_Click()Dim x AS Singlex=InputBox("请输入x的值!")________Case Is＜50y=0.8*xCase 50 To 100y=0.7*K__________Print"输入的数据出界!"End SelectPrint x，yEnd Sub
下面程序： Private Sub Form_Click() Dim x,y,z As Integer x=5 y=7 z=0 CallPI(x,y,z) Print Str(z) End Sub SubP1(By Val a As Integer, By Val b As Integer, c As Integer) C=a+b End Sub 运行后的输出结果为______。A．0B．12C．Str(z)D．显示错误信息
下面程序： Private Sub Form_Click() Dim x，y，z As Integer x=5 y=7 z=0 Call P1(x，y，z) Print Str(z) End Sub Sub P1(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为 ______。A．0B．12C．Sb(z)D．显示错误信息
执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Up" End SubA．DownUpClickB．CfickDownUpC．DownClickUpD．UpDownClick
运行下列程序：Dim x, yPrivate Sub Form_Click( )x = 1: y = 1: z = 1fun1 (1)Print x; y; zEnd SubPrivate Sub fun1(a)x = a + x: y = a + x: z = a + yEnd Sub单击窗体后，则输出结果是( )。A.1 1 1B.2 3 1C.2 3 4D.2 2 1
运行下列程序：Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
运行下列程序：Private Sub Form_Click( )Dim a As Integera = 1For i = 1 To 5Call fun1(a)Next iPrint aEnd SubPrivate Sub fun1(x)y = 2Dox = x + yLoop Until x 10End Sub单击窗体后，则在窗体上显示的结果是( )。A.5B.1 2 3 4 5C.19D.7
运行下列程序:Dim bPrivate Sub Form_Click( )a = 1: b = 1Call fun1(a)Print "X = X = ; a; ,Y = ; bEnd SubPrivate Sub fun1(a)b = 2 * aa = 3 * bEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.X = 1，Y = 1B.X = 2，Y = 6C.X = 6，Y = 2D.X = 6，Y = 1
以下程序运行后，单击按钮输出结果是 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End SubA．6 6 12 7 11 11B．8 5 10 5 11 11C．9 6 12 9 10 15D．8 10 10 5 9 10
程序段如下，当发生Form_Click事件时，窗体上输出的结果是( )。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End SubA．x1=2 y1=2 x2=2 y2=1B．x1=2 y1=2 x2=2 y2=2C．x1=2 y1=1 x2=2 y2=2D．x1=2 y1=1 x2=2 y2=1
有如下函数过程： Function fun1 (ByVal x As Integer, ByVal y As Integer) As Integer Do While y ＜＞ 0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调节器用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a,b)Print x End SubA．0B．25C．5OD．100
以下是某个窗体的模块代码，请分析单击窗体后程序运行至"*"号位置时变量X、Y和Z的值分别是【 】。DIM X AS INTEGERDIM Y AS INTEGERPRIVATE SUB FORM_CLICK()DIM X AS INTEGERX=1Y=1CALL AA(Y+1)Z=BB(X)'* * * * * * *MSGBOX "X="X"/Y="Y"/Z="ZEND SUBPRIVATE SUB AA(BYVAL Z AS INTEGER)Y=Z+XZ=X+YEND SUBPRIVATE FUNCTION BB(BYREF Y AS INTEGERY=Y+1BB=X+YEND FUNCTION