H₁受体拮抗剂的结构类型有（）

有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。

A．Private Sub Form_Click() PopupMenu cut End Sub

B．Private Sub Command1_Click() PopupMenu edit End Sub

C．Private Sub Form_Click() PopupMenu edit End Sub

D．Private Sub Form_Click() PopupMenu cut End Sub

下列叙述中，正确的是（ ）。

A.Sub过程无返回值，不能定义返回值类型

B.Sub过程有返回值，返回值类型只能是符号常量

C.Sub过程有返回值，返回值类型可在调用过程时动态决定

D.Sub过程有返回值，返回值类型可由定义时的As子句声明

设在工程中定义了下列类型： Type Stutype ino As Integer strname As String*20 Strsex As String*1 Smark As Single End Type在窗体上正确使用这个类型的是下列哪个操作 A. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End Sub B. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub C. Sub Command1_Click() Dim student As Stutype With Stutype .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End With End Sub D. Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname=＂smith＂ .strsex=＂男＂ .smark=89 End student End Sub

在窗体中添加一个命令按钮，编写如下程序： 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

H1受体拮抗剂马来酸氯苯那敏的结构类型属于（ ）

（30）下列事件过程可以将打开文件对话框的标题改变为“new Caption”.A.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowFont End Sub B.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowHelp End Sub D.Private Sub Commandl_Click(） CommonDialog1.DialogTitle="new Caption" CommonDialog1.ShowColor End Sub

窗体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···

有一过程如下:

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,运行结果为【 】。

有以下程序 #include＜stdio.h＞ sub1(char a，char B) {char c；c＝a；a=b；b＝c；} sub2(char *a，char B) {char c；c＝*a；*a＝b；b＝c；} sub3(char *a，char *B) {char c；c=*a；*a=*b;*b=c；} main() { cha，a，b； a＝'A'；b＝'B'；sub3(&a，&b) putchar(a);putchar(b)； a＝'A'；b='B'；sub2(&a，b) ;putchar(a)；putchar(b)； a＝'A'；b='B'；sub1(a，b) ；putchar(a)；putchar(b)； } 程序运行后的输出结果是( )

A．BABBAB

B．ABBBBA

C．BABABA

D．BAABBA

以下叙述错误的是

A．如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B．Sub过程中不能嵌套定义Sub过程

C．Sub过程中可以嵌套调用Sub过程

D．Static类型用于定义变量，不能定义过程