假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：　　Private Type animal　　　animalName As String*20　　　aColor As String*10　　End Type　　在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:　　Private Sub Command1_Click()　　　Dim rec As animal　　　Open "c:vbTest.dat" For Random As #1 Len = Len(rec)　　　rec.animalName = "Cat"　　　rec.aColor = "White"　　　Put #1, , rec　　　Close #1　　End Sub　　则以下叙述中正确的是（ ）。

设有工程文件Proj，其中含有Form1窗体、Form2窗体、标准模块Module1.bas：，在Form1窗体模块的通用声明段中书写了如下语句PubliAInteger，在Form1窗体模块中还定义了通用过程Loca1Sub。则以下说法中正确的是（） 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和 Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。Private Sub Command1_ Click（) 【14】 Form1 Form2. 【15】 End Sub 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2。启动窗体为 Form1，在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，在横线处将程序补充完整。 Private SubCommand1_Click（) Unload Form1 Form2． 【7】 End Sub 已知两个窗体Form1、Form2，下列事件过程中，______ 可以实现单击窗体Form1的命令按钮时，显示窗体Form2，而窗体Form1消失。 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Fonn2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click（)______Form1Form2.______ End Sub 一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFunc的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub frmFunctionl（) End Sub Form2中定义的过程： Public Sub fimFunction2（) End Sub mdlFunc中定义的过程： P 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1中画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将程序补充完整。 Private Sub Command1_Click（) 【8】 Me Form2． 【9】 End Sub 假定建立了一个工程，该工程包括两个窗体，其名称（Name属性)分别为Form1和Form2，启动窗体为 Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在 【14】 和 【15】 处将程序补充完整。 Private Sub Command1_Click（) 【14】 Form1Form2. 【15】 End Su 设窗体名称为form1。以下叙述中正确的是（） Mdiform为MDI窗体，其中有菜单MnuTest，Form1为子窗体，也有菜单MnuTest，执行下列程序后，单击MnuTest菜单，输出结果为______。 其中Mdiform中代码如下： Private Sub MDIForm_Load （)Form1.Show End Sub Private Sub Mnutest_Click （)MsgBox "MDI" End Sub Form1中代 一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1()...... End Sub Func中定义的过程： Public Sub Fun2() ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过程，则调用格式正确的是 ( ) 一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为Func的标准模块。假定在Form1和Func中分别建立了自定义过程，其定义格式为： Form1中定义的过程： Private Sub Fun1（)...... End Sub Func中定义的过程： Public Sub Fun2（) ...... End Sub 若要在窗体For2g调用Porm1和Func中分别建立的自定义过 假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Fom2，启动窗体为Form1。在Form1上面画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在 【8】 和 【9】 处将程序补充完整。 Private Sub Command1_Click（) 【8】 form2 【9】 End Sub 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下，请填空。 Private Sub Command1_Click（) Form1.Hide Form2. （12) End Sub 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮， Form1窗体消失，显示Form2窗体，程序如下： Private Sub Command1_Click（) 【 】 Form2 【 】 End Sub 试补充完整。 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮， Form1窗体消失，显示Form2窗体，程序如下，请填空。 Private Sub Command1_Click（)Form1.HideForm2. 【8】 End Sub 在名称为Form1的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private Sub Form Click（) Open "d：estsmtext1.txt" For Input As 1 Do While NotLine Input 1，aspectswhole$=whole$+aspect$+Chr$（13 在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（) 5Open "d:estsmtext1.txt" For Input As 1Do While Not _________Line Input 1, aspect$whole$ = whole$ + as 设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是 在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体 隐藏，显示Form2窗体，程序如下，请补充完整。 Private Sub Disp_Click（) Me．Hide Form2.【 】 End Sub