单项选择题

设工程中有两个窗体：Form1和Form2。Form1为启动窗体，Form2中有菜单(其结构如表1所示)。要求在程序运行时，在Form1的文本框Text1中输入121令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，则所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写了如下程序：

表1 菜单结构

标题

名称

级别

成绩管理

mark

1

成绩查询

query

2

成绩录入

input

2

Private Sub Text1_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
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，因此需要修改程序。下面的修改方案中正确的是

A．把Form1中Text1文本框及相关程序放到Form2窗体中
B．把Form1.Hide、Form2.Show两行移到两个End If之间
C．把If KeyAscii=13 Then改为If KeyAscii="Teacher" Then
D．把两个Form2.input.Visible中的"Form2."删去

<上一题目录下一题>

热门试题

单项选择题

计算π的近似值的一个公式是：，某人编写了下面的程序用此公式计算并输出π的近似值： Private Sub Command1_Click() PI=1:Sign=1:n=20000 For k=3 To n Sign=-Sign PI=PI+Sign k Next k Print PI*4 End Sub 运行后发现结果为3.22751，显然，程序需要修改。下面的修改方案中正确的是

单项选择题

下面的程序运行时，若输入395，则输出结果是 Private Sub Command1_Click() Dim x% x=InputBox( 请输入一个3位整数 ) Print x Mod 10, x 100, (x Mod 100) 10 End Sub

A．3 9 5
B．5 3 9
C．5 9 3
D．3 5 9