pKa小于8.5有利于直肠黏膜吸收的为（）A、脂溶性药物B、水溶性药物C、酸性药物D、碱性药物E、难溶性药物

有一过程如下:

Sub Sub1(m As Integer,total As Long)

Dim i As Integer

total=1

For i=1 To m

total=total*i

Next

End Sub

调用它的事件过程如下:

Private Sub Command1_Click()

Dim tot As Long,a As Integer

a=Val(InputBox("请输入数据"))

Call Sub1(a,tot)

Print tot

End Sub

则输入数据5,运行结果为【 】。

窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（ ）。

A.Private Sub Form1 Click（ ）

End Sub···

B.Private Sub Form1. Click（ ）

End Sub···

C.Private Sub Command1 click（ ）

End Sub···

D.Private Sub Command Click（ ）

End Sub···

  关于栓剂中药物吸收的正确叙述为

A.pKa小于3的药物有利于吸收

B.离子型的药物易穿过直肠黏膜

C.pKa大于10的药物有利于吸收

D.混悬型栓剂药物的粒径与吸收无关

E.直肠内存有粪便不利于药物吸收

窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是

A）Private Sub Form. 1_Click() B）Private Sub Form. _Click()

End Sub End Sub

C）Private Sub Commandl_Click() D）Private Sub Command_ Click()

End Sub End Sub

pKa小于8.5有利于吸收的是

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

假定有如下的Sub过程：

Sub Sub1(x As Single，y As single)

t=x

x=t/y

y=t Mod y

End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_click()

Dim a As Single

Dim b As Single

a=5

b=4

Sub1 a，b

Print a；b

End Sub

程序运行后，单击命令按钮，输出结果为

A．

B．

C．

D．

pKa小于8.5有利于直肠黏膜吸收的为

A.脂溶性药物

B.水溶性药物

C.酸性药物

D.碱性药物

E.难溶性药物

pKa大于4.0有利于直肠黏膜吸收的为

A.脂溶性药物

B.水溶性药物

C.酸性药物

D.碱性药物

E.难溶性药物

请帮忙给出每个问题的正确答案和分析，谢谢！

在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为

A．Sub： 2 6 4 Main： 2 6 4

B．Sub： 2 6 4 Main： 2 6 4

C．Sub： 2 6 4 Main： 1 2 3

D．Sub： 2 6 4 Main： 2 2 3