A．The woman doesn't like smoking.B．The place is air-conditioned.C．This is a non-smokin

Integer，mAs Integersum=0 Do m=InputBox(”输入m”) sum= sum+m LoopUntil m=0 MsgBoxsum End Sub

A.0

B.17

C.20

D.21

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是()。

Prirate Sub．Form_click()

Dim sum As Integer,m As Integer

sum=0

Do

m=inputBox(“输入m”)

sum=sum+m

Loop Until m=0

MsgBox sum

End Sub

A．0

B．17

C．20

D．21

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是()。

Prirate Sub．Form_click()

Dim sum As Integer,m As Integer

sum=0

Do

m=inputBox(“输入m”)

sum=sum+m

Loop Until m=0

MsgBox sum

End Sub

A．0

B．17

C．20

D．21

运行下列程序，显示的结果是（）。

PrivateSub Command34 Click（）i=0

Do

i=i+1

LoopWhile i<10 MsgBox i

End Sub

A.0

B.1

C.10

D.11

下面的程序运行时，单击窗体后，窗体上显示的结果是（）。

A．9 8 7 6 3 2

B．2 3 6 7 8 9

C．9 8 7 6 3

D．2 3 6 7 8

有如下程序。运行后在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是( )。

Dim c As Integer，d As Integer

c=4

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

Do While d＞0

If d＞c Then

c=c+1

End If

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

Loop

MsgBox c+d

A．9 B．10 C．11 D．12

运行下列程序：Private Sub Command1_Click（)x = 3If x< 3 Then Print x ＋ 3;If x< 4

运行下列程序：

Private Sub Command1_Click()

x = 3

If x < 3 Then Print x + 3;

If x < 4 Then Print x + 4;

If x < 5 Then Print x + 5;

If x < 6 Then Print x + 6;

Print

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.6 7 8 9

B.7 8 9

C.8 9

D.9

下面程序的运行结果是在窗体中显示的：

运行后窗体上显示的是______。

运行下列程序，窗体中的显示结果是：（）。

OptionCompare Database

Dim X AsInteger

PrivateSub Form_Load

x=3

EndSubPrivate Sub Commandll_click

Static aAs Integer

Dim b AsInteger

b=x^2

funl x，b

funl x．b

MsgBox”x=‘’&x

End Sub

Subfunl(ByRef Y As Integer，ByVal z AS Integer)

y=y+z

z=y-z

End Sub

A.x=3

B.x=2

C.x=21

D.x=12

运行下列程序：

Private Sub Command1_Click()

a = Val(InputBox("a = "))

Print fun1(a)

End Sub

Private Function fun1(b)

If b > 0 Then

fun1 = 10

ElseIf b = 0 Then

fun1 = 9

Else

fun1 = 8

End If

End Function

单击按钮后从键盘为变量a输入数据3，输出的结果是()。

A.3

B.8

C.9

D.10