从起源上说，意识是（）

中的内容复制到Form2上的文本框中，应进行的操作是

A.执行Forml中的语句：Forml．Textl=Form2．Textl

B.执行Forml中的语句：Textl=Forml．Text

C.执行Form2中的语句：Forml．Textl=Textl

D.执行Form2中的语句：Textl=Forml．Textl

工程中有Form1、Form2两个窗体（Form1中有文本框Text1；Form2中有Text1文本框和Command1命令按钮）。

Forml是启动窗体。在这些模块中编写下面的程序代码：

下面关于程序的叙述中错误的是

A.双击Form1的Text1后，Text1中显示“VisualBa．sic”，弹出Form2

B.双击Form1的Text1后，Form2成为当前窗体

C.单击Form2的命令按钮，Form1成为当前窗体

D.Form2的Text1=Form1．Text1语句不能正确执行

设工程文件中包名称分别为Forml、Form2的两个窗体，且Forml的菜单属性设置如下：

关于上述程序，以下叙述中错误的是

A.Index属性的值可以用来区分控件数组元素

B.Index为1的菜单项的标题可能会改变

C.两个名称均为Mnul的菜单项构成一个控件数组

D.语句Form2．Hide将Form2卸载

A、发生一个运行错误

B、发生一个编译错误

C、在所有的初始化代码运行后,Form1是活动窗体

D、在所有的初始化代码运行后,Form2是活动窗体

A．发生一个运行时错误

B．发生一个编译时错误

C．在所有的初始化代码运行后Forml是活动窗体

D．在所有的初始化代码运行后Form2是活动窗体

A．发生一个运行时错误

B．发生一个编译时错误

C．在所有的初始化代码运行后Forml是活动窗体

D．在所有的初始化代码运行后Form2是活动窗体

Form1的文本框Text1中输人口令并按回车键(回车键的 ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序： Private Sub Text 1 KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1．Text="Teacher"Then Form2．input．Visible=True Else Form2．input．Visible False End If End If Forml．Hide Form2．Show End Sub 菜单结构

标题 名称

级别

成绩管理

mark

1

成绩查询

query

2

成绩录入

mput

3

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（）。

A.把Form1中Text1文本框及相关程序放到Form2窗体中

B.把Form1．Hide、Form2．Show两行移动2个End If之间

C.把If KeyAscii=13 Then改为If KeyAseii="Teacher"Then

D.把2个Form2 input．Visible中的“Form2．”删去

Form1的文本框Text1中输人口令并按回车键(回车键的

ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序：

Private Sub Text 1 KeyPress(KeyAscii As Integer)

If KeyAscii=13 Then

If Text1．Text="Teacher"Then

Form2．input．Visible=True

Else

Form2．input．Visible False

End If

End If

Forml．Hide

Form2．Show

End Sub

菜单结构

标题 名称

级别

成绩管理

mark

1

成绩查询

query

2

成绩录入

mput

3

程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（）。

A.把Form1中Text1文本框及相关程序放到Form2窗体中

B.把Form1．Hide、Form2．Show两行移动2个End If之间

C.把If KeyAscii=13 Then改为If KeyAseii="Teacher"Then

D.把2个Form2 input．Visible中的“Form2．”删去