运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu运行下列程序：Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = "12345"For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11

题目

运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu

运行下列程序：

Private Sub Form_Click( )

Dim x As Integer, y As String, z As String

y = "12345"

For x = 1 To Len(y)

z = Mid(Left(y, x), 1)

Next x

Print z

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.1

B.11111

C.55555

D.12345

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

y=Mid(x，i，i)+y

Next i

Print y

End Sub

程序运行后，单击窗体，输出结果为

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG

正确答案：A
解析：本题Mid函数的功能是从第i个字符开始取i个，当i=4时，从字母D开始取到G，并加在y的开头，当i=3时，从字母C开始取到E，并加在y的开头，当i=2时，从字母B开始取到C，并加在y的开头，当i=1时，只取字母A，并加在y的开头，因此本题答案为A)。

第2题：

单击命令按钮时，下列程序代码的执行结果为( )。 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 Sub

A．21

B．19

C．17

D．34

正确答案：A

第3题：

单击命令按钮执行下列程序，其输出结果是。 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

正确答案：C
【解析】本题是在Commana1过程中调用SecProc函数，而在SecProc函数中又调用了FirProc函数。函数调用时，实参和形参要一一对应传递。程序运行过程是：①Print SecProc(c,b,a)→Print SecProc(3,5,4)；②SecProc = FirProc(z,x,y) + x→SecProc = FirProc(3,5,4) + 5；③FirProc = 2 * x + y + 3 * z→FirProc = 2 * 3 + 5 + 3 * 4=23；④SecProc = 28→Print SecProc(c,b,a)→Print28.形参是在被调用的Sub、Function过程中定义的参数名；实参则是在调用的Sub或Function过程中定义的参数名。

第4题：

单击命令按钮时，下列程序的执行结果是 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 Function

A．20

B．25

C．37

D．32

正确答案：C
解析：此题程序代码中用了两层调用，我们对样的问题要多加小心，不能掉以轻心，千万不要把实参和相对应的形参弄混淆。主调过程Commandl_Click；输出的是SecProc(c,b,A)返回值，调用过程SecProc时，主调过程分别把实参c、b、a地址传给形参x、y、z，此时在过程SecProc中，SecProc(a，C.B)+7。由此看出，程序段执行此语句时，将调用过程FirProe。把实参a，c，b的地址分别传给形参x、y、z，，此时在过程FirProe中，Firproc=2*x+y+3*z+2，所以FirProc(a，c，B)=6+4+15+2=27，SecProc(a，c，B)=27+3+7=37。注意：过程的定义和调用。

第5题：

单击命令按钮时，下列程序的执行结果为 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 Function

A．21

B．19

C．17

D．34

正确答案：A
解析：对于多个过程或函数依次调用和处理与简单过程调用处理一样，本题先调用函数P2，而函数P2又调用函数P1，结果返回的顺序是从P1到P2，P2计算后输出到调用的地方。

第6题：

下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()

A．23

B．19

C．21

D．22

正确答案：A

第7题：

下面程序： 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．0

B．12

C．Str(z)

D．显示错误信息

正确答案：B
解析：在本题中，用Call过程名的方法调用过程P1，在P1中，将参数C的值改变为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。

第8题：

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2,a) Print a End Sub 程序运行后，单击命令按钮，则窗体下显示的内容是______。

A．8

B．2

C．5

D．11

正确答案：A
解析：因为Subl过程的形参都是传值传送，所以在其内的所有计算结果都不将返回，并不影响对应的实参值，变量a的值并没有改变，仍然是8。

第9题：

设有如下程序： Private Sub Form. Click（） Dim i As Integer，x As String，y As String x="ABCDEFG" For i=4 To 1Step-1 y=Mid(X，i，i)+y Next i Print y End Sub 程序运行后，单击窗体，输出结果为（）。

A.ABCCDEDEFG

B.AABBCDEFG

C.ABCDEFG

D.AABBCCDDEEFFGG

正确答案：A
A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。

第10题：

下面程序：

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．0

B．12

C．Str(z)

D．显示错误信息

正确答案：B
解析：在本题中，用Call过程名的方法调用过程P1。在P1中，将参数C的值改为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。

运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = &qu

题目

相似问题和答案

更多相关问题

相关内容