单项选择题

设工程中有2个窗体： Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：
　　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两行移到2个End If之间
C．把If KeyAscii=13 Then改为 If KeyAscii="Teaeher" Then
D．把2个Form2.input.Visible中的“Form2”删去

<上一题目录下一题>

热门试题

单项选择题

窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Comand1_Click() For k=List1.ListCount-1 To 0 Step -1 If List1.Selected(k) Then List2.AddItem List1.List(k) List1.RemoveItem k End If Next k End Sub 程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是（）

A．在List2中插入了“外语”、“物理”两项
B．在List1中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把List1中最后1个列表项删除并插入到List2中

单项选择题

窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Comand1_Click() Dim arr(5) As Integer For k=1 To 5 arr(k)=k Next k prog arr() For k=1 To 5 Print arr(k) Next k End Sub Sub prog(a() As Integer) n=Ubound(a) For i=n To 2 step -1 For j=1 To n-1 if a(j)< p> t=a(j):a(j)=a(j+1):a(j+1)=t End If Next j Next i End Sub 程序运行时，单击命令按钮后显示的是（）

A．12345
B．54321
C．01234
D．43210