男性，65岁，吸烟40余年，慢性咳嗽，咳痰20余年。近2年来劳累时有气急。查体：两肺呼吸音减弱，肺下界下移，两肺底有细小湿啰音。最可能的诊断是

在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub

A．2

B．3

C．4

D．5

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1b Command1_Click（） Next i End Sub 窗体运行后，单击命令按钮Command1，Text1中显示的是______

（24）在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程： Private Sub Command1_Click() Dim i As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮，程序运行后，在文本框中显示的值是 A.2 B.3 C.4 D.5

在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：

Private Sub Command1_Click()

Dim i As Integer,n As Integer

For i=0 To 50

i=i+3

n=n+1

If i>10 Then Exit For

Next

Text1.Text=Str(n)

End Sub

单击命令按钮，程序运行后，在文本框中显示的值是()。

A．2

B．3

C．4

D．5

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。

A．Basic

B．cisaB

C．BASIC

D．CISAB

设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是()。

A．Basic

B．cisaB

C．BASIC

D．CISAB

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。

Private Sub Command1_Click()

Dim i As Integer,s As String

s="首都经济贸易大学"

For i=1 To b Step 2

Text1=Text1&Mid(s,i,1)

Next i

End Sub

窗体运行后，单击命令按钮Command1，Text1中显示的是______。

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。

Private Sub Command1_Click()

Dim m As Single，n As Integer

m=2.54

n=Len(Str(m)+Space(5))

Me.Text1=n

End Sub

窗体运行后，单击命令按钮Command1，Text1中显示的是( )。

A．5 B．8 C．9 D．10

设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：

Private Sub Command1 Click（）

X!=Val(Text1．Text)

Select Casc x

Case Is<-10，Is>=20

Print"输入错误"

Case Is<0

Print 20-x

Case Is<10

Print 20

Case Is<=20

Print x+10

End Seleet

End Sub

程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（）。

A.5

B.20

C.25

D.输入错误