有如下事件过程： Private Sub Command1_Click() b=10 Do Until b..

第1题

有如下事件过程：Private Sub Form_KeyDown（KeyCode As Integer，Shift As Integer)If （Button And

有如下事件过程：

Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer)

If (Button And 3) =3 Then

Print "OK"

End If

End Sub

程序运行后，为了在窗体上输出“OK”，应当按下的鼠标键是

A．左键

B．右键

C．同时按下左键和右键

D．按什么键都不显示

点击查看答案

第2题

有如下事件过程。 Private Sub Form_KeyDown（KeyCode As Integer,Shift As Integer)If （Button An

有如下事件过程。

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

If (Button And 3)=3 Then

Print "OK"

End If

End Sub

程序运行后,为了在窗体上输出"OK",应当按下的鼠标键是

A．左键

B．右键

C．同时按下左键和右键

D．按什么都不显示

点击查看答案

第3题

窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下：Private Sub Commandl_Click（)For i=1

窗体有命令按钮Commandl和文本框Textl，对应的事件代码如下：

Private Sub Commandl_Click()

For i=1 To 4

x=3

For j=l to 3

For k=1 To 2

x=x+3

Next k

Next j

Next i

Textl．Value=Str(x)

End Sub

运行以上事件过程，文本框中的输出是()。

A．6

B．12

C．18

D．21

点击查看答案

第4题

有如下事件过程： SubABD（x%,y%,z%） z%=x%+y% EndSub PrivateSubCommand1_Click（） a%=30

有如下事件过程：

Sub ABD（x%, y%, z%）

z%=x% + y%

End Sub

Private Sub Command1_Click（）

a%=30: b%=40

Call ABD（a%, b%, c%）

Print c%

End Sub

运行上面的程序，单击命令按钮，输出结果为（）。

A．70

B．70.0

C．7.0E+1

D．显示错误信息

点击查看答案

第5题

有如下事件过程：Private Sub Form. Click（)Dim n As Integer x=0n=InputBox（”请输入一个整数”)Fo

有如下事件过程：

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

点击查看答案

第6题

有如下事件过程：Private Sub Form. Click（） Dim n As Integcr x=0n=InputBox（"请输入一个

有如下事件过程：

Private Sub Form. Click（）

Dim n As Integcr

x=0

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

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

点击查看答案

第7题

有如下Sub过程： Sub ind（a As Integer) Static x As Integer x= x + a Print x： End Sub 以下是

有如下Sub过程：

Sub ind(a As Integer)

Static x As Integer

x= x + a

Print x：

End Sub

以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为【】。

Private Sub Command1_Click()

Ind 2

End Sub

点击查看答案

第8题

有如下事件过程： Private Sub Command1_Click（) b=10 Do Until b=-1 a=InputBox（"请输入a的

有如下事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a * b Loop Print aEnd Sub程序运行后，依次输人数值30，20，10，-1，输出结果为

A．6000

B．-10

C．200

D．-6000

点击查看答案

第9题

有如下事件过程：Private Sub Form. Click（)Dim n As Integer x=0n=InputBox（”请输入一个整数”)Fo

有如下事件过程：

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

点击查看答案

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次

有如下事件过程：Private Sub Command1_Click（) b=10 Do Until b =-1 a = InputBox（"请输入a的值"