某病人，在抢救休克治疗中，测得CVP为5cmH<sub>2</s

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

A．abc和ABC

B．abc和abe

C．ABC和abc

D．ABC和ABC

在窗体上添加一个按钮(cmd) ，编写如下程序：

Private sub crud_click( )

Dim s, i

Fori = 1 to 10

s=s+i

Next

Msgbox s

End sub

程序运行后，单击按钮，在消息框中显示的信息为 【 】 。

某一重症感染中毒性休克患者，测得BP80/50mmHg，P120bpm，CVP15cmH2O，CI2.0L/min·m^2，SVR 1800dynes·s/cm5^，PVR300dynes·s/cm^5，请选择下列治疗措施中哪项是最佳选择()。

A.扩容治疗并用洋地黄类药物

B.扩容治疗并用阿拉明

C.扩容治疗并用多巴胺、硝普钠联合治疗

D.扩容治疗并用多巴胺

E.扩容治疗并用硝普钠

A、重危创伤应从现场开始急救

B、对重危剧痛，呻吟病人优先抢救，再抢救安静病人

C、抢救重危创伤病人可概括为"ABC"支持

D、骨折合并休克时，先处理休克

E、骨折病人移动时须先制动

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗V1中把窗体的KeyPreview属性设置为True，然后编写如下程序：

Dim S1 As String，S2 As String

Private Sub Form_Load()

Text1．Text=””

Text2．Text=””

TeXt1．Enabled=False

Text2．Enabled=False

End Sub

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

S2=S2&Chr(KeyCode)

End Sub

Privtee Sub Form_KeyPress(KeyAscii As Integer)

S1=S1&Chr(KeyAscii)

End Sub

Pfivtee Sub Command 1_Click()

Text1．Text=S1

Text2．Text=S2

S1=””

S2=””

End Sub

程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )。

A．abc和ABC

B．空白

C．ABC和abc

D．出错

A、Sub plus(sum, a , b ): sum = a + b: End Sub

B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub

C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub

D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub

在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：

Dim S1 As String, S2 As String

Private Sub Form_Load（）

Text1. Text=””

Text2. Text=””

End Sub

Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）

S2=s2 & Chr（KeyCode）

End Sub

Private Sub Text1_KeyPress（KeyAscii As Integer）

S1=S1 & chr（KeyAscii）

End Sub

Private Sub Command1_Click（）

Text1.Text=S2

Text2.Text=S1

S1=""

S2=""

End Sub

程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（ ）。A．abc 和 ABC

B．abc 和 abc

C．ABC 和 abc

D．ABC 和 ABC

设字符串s1='ABCDEFG',s2='PQRST',则运算s=CONCAT(SUB(s1，2，LEN(s2))，SUB(s1，LEN(s2，2))后的串值为(65)。

A．'ABCDEFEF'

B．'BCDEFG'

C．'BCPQRST'

D．'BCQR'

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：Public X As Integer Private Sub Commandl Click（ ）x＝10 Call slCall s2MsgBox x End Sub Private Sub sl（ ）x＝x+20 End Sub Private Sub s2（ ）Dim x As Integer x=x+20End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为（ ）。

A.10

B.30

C.40

D.50