网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单击命令按钮时，下列程序的执行结果为 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(ByVM n As Integer，ByVal m As Integer) n=n\l0 m=m\l0 End Sub
A．08
B．50 78
C．450
D．78 50
参考答案
更多 “ 单击命令按钮时，下列程序的执行结果为 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(ByVM n As Integer，ByVal m As Integer) n=n\l0 m=m\l0 End SubA．08B．50 78C．450D．78 50 ” 相关考题
考题
单击命令按钮，下列程序的执行结果为Private Sub Command1_Click（）Dim x As Integer, y As Integerx=32: y=42Call PCS（x, y）Print x; yEnd SubPublic Sub PCS（Byval n As Integer, ByVal m As Integer）n=n Mod 10+1m=m Mod 10+1End Sub （ ）。A．32 42B．2 32C．2 3D．12 3
考题
单击命令按钮时，下列的执行结果为Private Sub Command1_Click（）Dim x As Integer, y As Integerx=86: y=29Call Proc（x, y）Print x; yEnd SubPublic Sub Proc（n As Integer, ByVal m As Integer）n=n Mod 10m=m Mod 10End Sub（ ）。A．12 32B．6 29C．2 3D．12 3
考题
单击命令按钮，下列事件过程的执行结果为Private Sub Command1_Click（）Dim x As Integer, y As Integerx=40: y=72Call PtoP（x, y）Print x; yEnd SubPublic Sub PtoP（Byval n As Integer, ByVal m As Integer）n=n ＼ 10+2m=m ＼ 10+2End Sub（ ）。A．0 8B．40 72C．4 50D．78 50
考题
单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click（）Dim x As Integer, y As Integerx=12: y=32Call PCS（x, y）Print x; yEnd SubPublic Sub PCS（ByVal n As Integer, ByVal m As Integer）n=n Mod 10m=m Mod 10End Sub（ ）。A．12 32B．2 32C．2 3D．12 3
考题
在窗体上画一个命令按钮，然后编写如下程序： 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
考题
在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。A．0B．5C．15D．无任何输出
考题
单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End SubA．12 34B．2 34C．2 3D．12 3
考题
单击命令按钮时，下列程序代码的执行结果为( )。 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
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．lB．2C．5D．8
考题
单击命令按钮时，下列程序代码的执行结果为______。 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 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 SubA．12 32B．6 29C．2 3D．12 3
考题
单击命令按钮时，下列程序的执行结果是 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
考题
单击命令按钮，下列事件过程的执行结果为 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=40：y=72 Call PtoP(x, y) Print x; y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n \ 10+2 m = m \ 10+2 End SubA．0 8B．40 72C．4 50D．78 50
考题
单击命令按钮时，下列程序代码的执行结果为_________。 Public Sub Procl(n As Integer，By Val m As Integer) n=n Mod i() m=m/10 End Sub Private Sub Command1 CliCk() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；y End SubA．12 34B．2 34C．2 3D．12 3
考题
阅读下列程序： 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
考题
单击命令按钮时，下列程序的执行结果是 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 Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera=3∶b=4∶c=5Print SecProc(c, b, a)End SubFunction FirProc(x As Integer, y As Integer, z As Integer)FirProc=2 * x + y + 3 * z+2End FunctionFunction SecProc(x As Integer, y As Integer, z As Integer)SecProc=FirProc(z, x, y)+ x+7End FunctionA．20B．25C．37D．32
考题
单击命令按钮时，下列程序代码的执行结果为 Public Sub Procl(n As Integer,ByVal m As integer) n=n Mod 10 m＝m\10 End sub Private Sub Commandl_Click() Dim x AS Integer,y AS Integer x=12:y=24 Call Procl(x,y) Print x;y End subA．12 24B．2 24C．2 3D．12 2
考题
单击命令按钮执行下列程序，其输出结果是( )。 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
考题
单击命令按钮时，下列程序的执行结果为 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 SubA．12 32B．2 32C．2 3D．12 3
考题
阅读下面的程序； 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 x As Integer, y As Integerx=12: y=32Call PCS(x, y)Print x; yEnd SubPublic Sub PCS(ByVal n As Integer, ByVal m As Integer)n=n Mod 10m=m Mod 10End SubA．12 32B．2 32C．2 3D．12 3
考题
单击命令按钮时，下列程序的执行结果是 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
考题
单击命令按钮时，下列程序的执行结果为 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 SubA．1232B．232C．23D．123
考题
在窗体上画一个名称为Coramandl的命令按钮，然后编写如下程序； 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) Dim a As Boolean 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 flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为A．输出0B．输出2C．输出45D．无任何输出
考题
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8
热门标签
最新试卷
