单选题下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End SubA X+Y=11B 5+6=11C 11D True

题目

单选题

下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub

X+Y=11

5+6=11

True

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

相似问题和答案

第1题：

下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub

A．36

B．25

C．1

D．出错信息

正确答案：D

第2题：

假定有如下事件过程：

Private Sub Form_Click（）

Dim x As Integer, n As Integer

x = 1

n = 0

Do While x < 28

x = x * 3

n = n + 1

Loop

Print x, n

End Sub

程序运行后，单击窗体，输出结果是（）。

A．81 4

B．56 3

C．28 1

D．243 5

正确答案：A

第3题：

有如下事件程序，运行该程序后输出结果是

Private Sub Command33_Click()

Dim X As Integer，y As Integer

x=1：Y=0

Do Until y<=25

y=y+X*X

X=X+1 ‘

Loop ’ 。

MsgBox“x一”＆X＆,“y=”＆y

End Sub

A．x=1，y=0

B．x=4，y=25

C．x=5，y=30

D．输出其他结果

正确答案：A
解析：Do Until-Loop结构是条件式值为假时，重复执行循环，直至条件式值为真，结束循环。

第4题：

下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer，y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End Sub

A．3 7 11 45 19

B．19 15 11 7 3

C．1 3 5 7 9

D．不确定的值

正确答案：B

第5题：

下面程序：

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。

第6题：

下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub

A．_35_2510

B．25102510

C．_35_35_

D．2510_35_

正确答案：A

第7题：

有如下SUB过程:

Sub s(x As Single,y As Single)

t=x

x=t / y

y=t Mod y

End Sub

在窗体上添加一个命令按钮,然后编写如下事件过程:

Private Sub Form_Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a,b

Print a,b

End Sub

则程序运行后,单击命令按钮,输出的结果为【】。

正确答案：1.251
1.25,1 解析：调用s过程,传入"a=5,b=4"。t=5 , x=5/4, 故x=1.25;y=5%4,故y=1。返回并输出(1.25,1)

第8题：

设有如下程序：

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)。

第9题：

有如下程序： Private Sub Commandl_Click( ) Dim i As Integer For i=1 To 2 DS Next i End Sub Sub DS( ) Dim x As Integer，m As String Static y，n X=X + 1 y=y + 1 m=m &"*”：n=n&"#" Print x，y，m，n End Sub 程序运行后，输出的结果是

A．1 1 * #

B．1 1 * #

C．1 1 * # 1 1 * # 1 2 * #

D．1 1 * # 1 1 * ## 1 2 * ##

正确答案：D
解析：当i=1时，调用函数过程DS，由于y，n为静态变量值保存，执行x=x+1；y=y+1后x=1，y=1执行m=m&"*"：n=n&"#"后，m="*"，n="#"；当I=2时同上，只是y=2，n="##"。输出结果如选项D)所示。

第10题：

假定有如下的Sub过程： Sub S(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=2 S a,b print a,b End Sub 程序运行后，单击命令按钮，输出结果是( )。

A．5 2

B．1 1

C．1.25 4

D．2.5 1

正确答案：D

下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y

题目

相似问题和答案

更多相关问题

相关内容