新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：

Private Sub Command1_Click（）

(6)

F．orm2. (7)

E．nd Sub

试补充完整。

[主观题]在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。Private Sub Disp_Click （）Me.HideF．orm2. (10)E．nd Sub

[单选题]窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是（　　）。A.B.C.D.

[单选题]窗体Form. 1上有一个名称为Command 1的命令按钮，以下对应窗体单击事件的事件过程是A．）Private Sub Form. 1_Click() B）Private Sub Form. _Click()E．nd Sub End SubC．）Private Sub Commandl_Click() D）Private Sub Command_ Click()E．nd Sub End Sub

[单选题]（ 24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序Private Sub Commandl_Click （）D．im nIf Text1.Text<> " 23456 " Thenn=n ＋ 1Print " 口令输入错误 " & n & " 次 "E．nd IfE．nd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上

[主观题]在窗体上有一个命令按钮，其名称为Command1。要实现程序运行后，单击命令按钮，如果在输入对话框里分别输入12和4，编写如下事件过程：Private Sub Command1_Click()A．=InputBox("被除数")B．=InputBox("除数")Print A；"÷"；B；"="；A / BE．nd Sub则窗体中显示的内容是______。

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Sum = 0F．or m = 1 To 3Select Case mC．ase 1a = 1C．ase 2a = 2C．ase 3a = 3E．nd SelectPrint a,Sum = Sum + aNext mPrint SumE．nd Sub运行时，单击按钮，输出结果是( )。A． 3 3 3 9B． 3 2 1 6C． 1 1 1 3D． 1 2 3 6

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a = 80: b = 50: c = 30If ac Then b = cIf b = c And ac Then c = a + bPrint a, b, cE．nd Sub运行时，单击按钮，窗体输出的结果是( )。A． 80 50 30B． 80 30 30C． 50 30 80D． 50 30 30

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()x = InputBox("x=")y = InputBox("y=")Print x + yE．nd Sub运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是( )。A． 444B． 123321C． 123+321D． 出错信息

[单选题]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下

[单选题]窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：D．im y As IntegerPrivate Sub Command1_Click()D．im x As Integerx=2Text1.Text=p2(p1(x),y)Text2.Text=p1(x)E．nd SubPrivate Function p1(x As Integer)As Integerx=x+y:y=x+yp1=x+yE．nd FunctionPrivate Function p2(x