题目内容
（请给出正确答案）
单击命令按钮时，下列程序代码的执行结果为______。 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 Sub
A．12 34
B．2 34
C．2 3
D．12 3
简答题官方参考答案
（由简答题聘请的专业题库老师提供的解答）
更多“单击命令按钮时，下列程序代码的执行结果为______。Public Sub Procl（n As Integer,ByVal m As Int”相关的问题
单击命令按钮时，下列程序代码的执行结果为()。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m\10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub
A．12 34
B．2 34
C．2 3
D．12 3
单击命令按钮时，下列程序代码的执行结果为______ 。Public Function MyFune(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 MyFunc=mEnd FunctionPrivate Sub Command1_Click() Print MyFunc(24, 18)End Sub
A． 2
B．4
C．6
D．8
单击命令按钮时，下列程序代码的执行结果为 () 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 Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a＝2 :b=3 :c=4 Print SecProc(c, b,A)End Sub
A．21
B．19
C．17
D．34
单击命令按钮时，下列程序代码的执行结果为______。Public Sub Procl (n As Integer，ByVal m As Integer) n= n Mod 10 m=m/10End SubPrivate Sub Conunand1_Click() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；yEnd Sub
A．12 34
B．2 34
C．2 3
D．12 3
单击命令按钮时，下列程序代码的执行结果为_________。 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 Sub
A．12 34
B．2 34
C．2 3
D．12 3
单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click() Print MyFunc(24，18) End Sub Public Function MyFunc(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 My Func=m End Function
A．2
B．4
C．6
D．8
单击命令按钮时，下列程序代码的执行结果为 Public Sub proc1(n As Integer，Byva1 m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1_Click() Dim x As Integer，y As lngeger x=12：y=12 Call Proe1(x，y) Print x；y End Sub
A．12 2
B．2 12
C．2 2
D．12 12
单击命令按钮时，下列程序代码的执行结果为______。 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 Sub
A． 12 34
B．2 34
C．2 3
D．12 3
单击命令按钮时，下列程序代码的执行结果为()。 Private Function PickMid(xStr As String)As Sting Dim tempStr As String Dim strLen As Integer TempStr=" " StrLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr,strLen-i+1,1) i=i+1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub
A．abcdef
B．afbecd
C．fedcba
D．defabc
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
