在VB窗体上添加一个名称为 Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后

A.空白

B.错误提示

C.绿色

D.白色

在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使程序运行时，单击“隐藏”菜单项，文本框消失；单击“显示”菜单项，文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sit2．vbp，窗体文件名保存为sjr2．frm。

在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：

MsgBox f(24，18)End Sub

Public Function f(m As Integer，n As Integer)As"integerDo While m＜＞n

Do While m＞n m=m-n

Loop

Do While m＜n

n=n-m

Loop

Loop

f=m

End

Function

窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A.2

B.4

C.6

D.8

表项。当双击列表框中的某个项目时，在标签kabel1中显示所选中的项目，如图所示。

请在【 】和【 】处填入适当内容，将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub

当双击列表框中的某个项目时，在标签Labe1中显示所选中的项如图所示。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form. _Load() List1．AddItem"北京" List1．Addltem"上海" List1．AddItem"河北" End Sub Private Sub List1【 】() Labe1．Caption=【 】 End Sub

A.-5

B.25

C.-1

D.1

窗体时，执行语句Listl．AddItem“Item1”和List1．Addltem“Item2”，每当单击列表项时，就将执行语句List1．AddItem List1．Text一次，如图6-2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。 请在【 】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【 】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。

A．4

B．5

C．6

D．7