网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有下列两个过程Swap1和Swap2： Private Sub Swap1（ByRef x As Integer, ByRef y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Private Sub Swap2（x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 下列关于Swap1和Swap2的说法，正确的是（）。
A．调用过程Swap1可以实现交换两个变量值，而Swap2不能
B．调用过程Swap2可以实现交换两个变量值，而Swap1不能
C．调用过程Swap1和Swap2都可以实现交换两个变量值
D．调用过程Swap1和Swap2都不能实现交换两个变量值
参考答案和解析
调用过程Swap1和Swap2都可以实现交换两个变量值
更多 “有下列两个过程Swap1和Swap2： Private Sub Swap1（ByRef x As Integer, ByRef y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Private Sub Swap2（x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 下列关于Swap1和Swap2的说法，正确的是（）。A．调用过程Swap1可以实现交换两个变量值，而Swap2不能B．调用过程Swap2可以实现交换两个变量值，而Swap1不能C．调用过程Swap1和Swap2都可以实现交换两个变量值D．调用过程Swap1和Swap2都不能实现交换两个变量值” 相关考题
考题
单击命令按钮执行下列程序，其输出结果是。 Private Sub Commana1_Click() Dim a As Integer,b As Integer,c As Integer a = 3 b = 4 c = 5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,z As Integer) FirProc = 2 * x + y + 3 * z End Function Function SecProc(x As Integer,y As Integer,z As Integer) SecProc = FirProc(z,x,y) + x End FunctionA. 20 B. 22 C. 28 D. 30
考题
在窗体上画一个命令按钮，然后编写如下程序： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer,b As Integer a=10 b=30 S1 a，b Print"a="；a；"b="；b End Sub 程序运行后，单击命令按钮，输出结果是 ______。A．a=30 b=10B．a=30 b=30C．a=10 b=30D．a=10 b=10
考题
单击命令按钮时，下列程序代码的执行结果为( )。 Private Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Funcfion Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z，x，y)+x End Funcfion Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2 b=3 c=4 Printf SecProc(c,b,a) End SubA．21B．19C．17D．34
考题
（13）单击命令按钮时，下列程度的执行结果是 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=4:c=6 Call S2(a,b) Print"a=";a;"b=";b;"c=";c; End Sub Private Sub S1(x As Integer,y As Integer) Dim c As Integer x=2*x:y=y+2:e=x+y End Sub Sub S2(x As Integer,By Val y As Integer) Dim e As Integer x=2*x:y=y+2:e=x+y End Sub A.a=4 b=6 c=6 B.a=8 b=6 c=6 a=4 b=6 c=6 a=8 b=6 c=6 C.a=4 b=6 c=6 D.a=8 b=6 c=6 a=8 b=6 c=6 a=4 b=6 c=6
考题
（27）有下列两个过程： Sub S1(ByVal x As Integer,ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer,y As Integer) Dim t As Integer t=x x=y y=t End Sub 则下列叙述中正确的是 A.用过程S1可以实现交换两个变量的值的操作，S2不能实现B.用过程S2可以实现交换两个变量的值的操作，S1不能实现 C.用过程S1和S2可以实现交换两个变量的值的操作 D.用过程S1和S2不能实现交换两个变量的值的操作
考题
要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A．Private Sub P1_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) Print X，Y End SubB．Private Sub P1_M0useDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture．Print X，Y End SubC．Private Sub P1_MouscMove(Button As integer，Shift As Integer，X As Single，Y As Single) P1．Print X．Y End SubD．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1．Print X．Y End Sub
考题
单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End SubA． 12 34B．2 34C．2 3D．12 3
考题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=2：b=3：C=4 Print P2(c，b，A)End Sub Private Function P1(x As Integer，y As Integer，z As Integer) P1=2 * X + y + 3 * z End Function Private Function P2(x As Integer，y As Integer，z As Integer) P2=P1(z，x，y) + X End FunctionA．21B．19C．17D．34
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，A)End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) SecProc=FirProc(z，x，y)+x+7 End FunctionA．20B．25C．37D．32
考题
Command1_Click()事件代码如下： Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 6 : Y : 8 Call ABC(X, Y) Print X; Y End Sub Private Sub ABC(ByVal X As Integer，Y As Integer) X = X + 4 Y = Y = 2 End Sub 事件发生后，X和Y的值分别为 ______。A．6, 8B．10, 10C．10, 8D．6, 10
考题
单击按钮时，以下程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，Z As Integer x=1：y=2：z=3 Call proc1(x，x，z) Print x；x；z Call proc1(x，y，y) Print x；y；y End SubA．6 6 12 `B．9 5 10 6101051010C．9 6 12D．9 10 10 910155410
考题
假定有以下两个过程： Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=K x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=K x=y y=t End Sub 则以下说法中正确的是 ( )A．用过程S1可以实现交换两个变量值的操作，S2不能实现B．用过程S2可以实现交换两个变量值的操作，S1不能实现C．用过程S1和S2都可以实现交换两个变量值的操作D．用过程S1和S2都不能实现交换两个变量值的操作
考题
在窗体上画一个命令按钮，然后编写如下程序： Sub S1(By Val x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=r End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print"a=";"b=";b End Sub 程序运行后，单击命令按钮,．输出结果是______。A．a=30 b=10B．a=30 b=30C．a=10 b=30D．a=10 b=10
考题
单击一次窗体之后，下列程序代码的执行结果为______。 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 Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b,C)End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End FunctionA．21B．23C．19D．35
考题
阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为A．0B．20C．40D．无任何输出
考题
单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End SubA．08B．50 78C．450D．78 50
考题
在窗体上画一个名称为Command1的命令按钮，并编写如下过程： Private Sub Command1_Click() Dim x AS Integer Static y As Integer x=10 y=5 Call f1(x, y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．10 5B．12 5C．10 7D．12 7
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click( ) Dim a As Integer，b As Integer，c As Integer a=3 b=4 C=5 Print SecProc(c，b，A)End Sub Function Fir Proc(x As Integer，y As Integer，z As Integer) Fir Proc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End FunctionA．20B．22C．28D．30
考题
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。A．1B．3C．16D．9
考题
单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,A)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As Integer,y As Integer, z As Integer) SecProc=FirProc(z,x,y)+x End FunctionA．20B．22C．28D．30
考题
假定有以下两个过程： Sub SI (By Val x As Integer，By Val y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer，y As Integer) Dim t As Integer t=x x=y y=t End Sub 则以下说法中正确的是______。A．用过程S1可以实现交换两个变量的值的操作，S2不能实现B．用过程S2可以实现交换两个变量的值的操作，S1不能实现C．用过程S1和S2都可以实现交换两个变量的值的操作D．用过程S1和S2都不能实现交换两个变量的俏的操作
考题
阅读下面的程序； Function Func(x As Integer，y As Integer)As Integer Dim n As Integer Do While n ＜ = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer，z As Integer x=1 y=1 For n = 1 To 6 z=Func(x，y) Next n Print z End Sub 程序运行后，单击命令按钮，输出的结果为．A．16B．21C．26D．31
考题
单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer a=3:b=4:c=5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z,x,y)+x End FunctionA．20B．22C．28D．30
考题
在窗体上画一个名称为Command1的命令按钮，并编写如下程序： Private Sub Command1_Click( ) Dim x As integer Static y As integer x=10 y=5 Call f1(x，y) Print x，y End Sub Private Sub f1(ByRef xl As Integer，y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是A．10 5B．12 5C．10 7D．12 7
考题
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Commandl_Click( ) Dim a AS Integer，b As Integer a=15 b=2 t N(a，B)End Sub Function N(x As Integer，y As Integer) As Integer N=IIf(x)y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．15D．8
考题
以下程序运行后，单击按钮输出结果是 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
考题
假定有以下两个过程： Sub S1(ByVal x As Integer，ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Sub S2(x As Integer，y As Infeger) Dim t As Integer t=x x=y y=t End Sub 则以下说法中正确的是______。A．用过程S1可以实现交换两个变量的值的操作，S2不能实现B．用过程S2可以实现交换两个变量的值的操作，S1不能实现C．用过程S1和S2都可以实现交换两个变量的值的操作D．用过程S1和S2都不能实现交换两个变量的值的操作
热门标签
最新试卷