以下程序的功能是：把程序文件smtextl．txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text=" "
Open"smtext1.txt"______As______
DO While______
Input # 2，inData
Text1.Text=Text1.Text&inData
Loop
Close # 2
End Sub

病毒性肺炎特点不包括下列哪项

A．常是上呼吸道病毒感染向下蔓延所致
B．细胞内可检见包涵体
C．病变严重者，肺泡内可出现脓性渗出物
D．炎症从支气管、细支气管开始沿肺间质发展