计算机二级

有如下事件过程： Private Sub Form. Click（ ） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。A.13B.14C.15D.16

题目

有如下事件过程： Private Sub Form. Click（ ） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。

A.13

B.14

C.15

D.16

如果没有搜索结果，请直接 联系老师 获取答案。
如果没有搜索结果，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(A)b=InputBox(“请输入B的值”) b=Val(B)x=InputBox(“请输入x的值”) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。

A．2

B．3

C．14

D．15


正确答案：A
解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是 2+1+(-1)。所以最终的输出是2。

第2题：

有如下事件过程：

Private Sub Form. Click（ ）

Dim n As Integcr

x=0

n=InputBox("请输入一个整数")

For i=1 To i

For i=1 To i

x=x+1

Next j

Next i

Print x

End sub

程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。

A.13

B.14

C.15

D.16


正确答案：C
C。【解析】本题考查嵌套for循环语句，因为n=5，所以外层循环执行5次，内层循环为1～i次，所以循环体x=x+1共执行1+2+3+4+5=15次，故答案为C。

第3题：

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox("请输入A的值") a=Val(A)b=InputBox("请输入B的值") b=Val(B)x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。

A．2

B．3

C．14

D．15


正确答案：A
解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是2。

第4题：

在窗体上画一个命令按钮，然后编写如下事件过程： Prevate Sub Command1_ Click() x=0 Do Until x=-1 a= InputBox(“请输入A的值”) a= Val (A)b=InputBox(“请输入B的值”) b=Val (B)x=InputBox(“请输入x的值”) x=Val (x) a=a+ b+ x Loop Print a End Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为______ 。

A．2

B．3

C．14

D．15


正确答案：A

第5题：

在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() x=0 Do Until x=-1 a=InputBox(“请输入A的值”) a=Val(a)b=InputBox(“请输入B的值”) b=Val(b)x=InputBox(“请输入x的值”) x=Val(x) a=a+ b+ x Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 ______。

A．2

B．3

C．14

D．15


正确答案：A
解析：本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。所以最终的输出是2。

第6题：

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

X=0

Do While X＜＞-1

X=Val(InputBox("请输入数据X:"))

Y=Val(InputBox("请输入数据Y:"))

If X*Y＜X+Y Then Print X，Y

Loop

End Sub

程序运行后，依次输入7，2，-3，8，-5，-10，18，-1，-1，则输出结果是【 】


正确答案：-3 8 18 -15
-3 8 18 -15 解析：本题程序运行后，共输入5组数据，x依次取值为7、-3、-5、18、-1，Y依次取值为 2、8、-10、-15、-1。只有满足X * YX+Y时，才输出X、Y的值。循环的结束条件是“X= -1，Y=-1”。

第7题：

有如下事件过程：

Private Sub Form. Click()

Dim n As Integer

x=0

n=InputBox(”请输入一个整数”)

For i=1 To i

For j=1 To i

x=x+1

Next j

Next 1

Print x

End sub

程序运行后，单击窗体，如果在输入对话框中输入5,则在窗体上显示的内容是( )。

A．13

B．14

C．15

D．16


正确答案：C
解析：本题考查嵌套for循环语句，因为n=5，所以外层循环执行5次，内层循环为1到i次，所以循环体x=x+1共执行1+2+3+4+5=15次，故答案为C。

第8题：

在窗体上有一个命令按钮，然后编如下事件过程：

Function SR（x As Double） As Double

Select Case Sgn（x）

Case 1

SR=Sqr（x）

Exit Function

Case 0

SR=0

Case -1

SR=-1

End Select

End Function

Private Sub Command1_Click（）

Dim Msg, SRN

Dim N As Double

N=InputBox（"请输入要计算平方根的数"）

Msg=N & "的平方根"

Select Case SR（N）

Case 0

Msg=Msg & "是0"

Case -1

Msg=Msg & "是一个虚数"

Case Else

Msg=Msg & "是" & SR（N）

End Select

MsgBox Msg

End Sub

程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。


正确答案：
正确答案:  1.(-1的平方根是一个虚数)  

第9题：

请输入B的值在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=－1a=InputBox("请输入A的值")a=Val(a)b=InputBox("请输入B的值")b=Val(b)x=InputBox("请输入x的值")x=Val(x)()

A.2

B.3

C.15

D.14


正确答案：A

相关内容