引起气管向患侧移位病变是（)A.大叶性肺炎B.气胸C.胸腔积液D.肺不张E.肺气肿

下列程序的运行结果是()。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a，b)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub

A．2.25 3.75

B．1.5 2.25

C．1.5 0.75

D．0.75 1.5

下列程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Call fun(a,B)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub

A．2.25 3.75

B．1.5 2.25

C．1.5 0.75

D．0.75 1.5

（28）下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5

下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。

A．3

B．5

C．6

D．8

下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Format$(123,456，"###,##%") End Sub

A．123.46%

B．123.45%

C．123.456%

D．12345.6%

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

运行下列程序：

Private Sub Command1_Click()

a = 100

b = 24

a = a Mod b

b = b \ a

a = b - a

Debug.Print a

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是()。

A.2

B.24

C.50

D.100

下列程序段，运行后窗体上输出结果是()。

Private Sub Command1_Click()

a=5:b=4:c=3:d=2

x=3＞2*b Or a=c And b＜＞c Or c＞d

Printx

End Sub

A．1

B．True

C．False

D．2

运行下列程序：

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