设工程中有两个窗体:Forml、Form2,Forml为启动窗体。Form2 中有菜单,其结构如表。要求在程序运行时,在Forml的文本框中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Forml,显示Form2 、 若口令为“Teacher”,

admin2020-02-27  25

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

Private Sub TextI l_KeyPress(KeyAseii As Integer)
    If KevAseii=13 Then
       If Textl.Text=“Teaeher”Then
         Form2.input.Visible=True
      EIse
         Forln2.input.Visible=False
      End lf
    End If
    Forml.Hide
    Form2.Show
End Sub
程序运行时发观刚输入口令时就隐藏了Forml,显示了Form2,程序需要修改。下面修改方案中正确的是(     )。

选项 A、把Forml 中Textl文本框及相关程序放到Form2窗体中
B、把Forml.Hide、Form2.Show两行移到2个End If之间
C、把lf KeyAscii=13 Then改为If KeyAscii=“Teaeher”’Fhen
D、把2个F0rm2.in¨lt.Visit)le中的“Form2.”删去

答案B

解析 原程序的执行流程为,当按下一个键后,激活KeyPress事件.事件中隐藏Forml和显示Ftom2的语句与判断是否按了回车键的语句是顺序的.即不论按了什么键,都会执行隐藏Forml和显示From2的语句。这两句应该上移到第二个EndIf前面,也就是放在判断是否按了回车键的If语句块中。因此B选项正确。
转载请注明原文地址:https://jikaoti.com/ti/IBx0FFFM
0

最新回复(0)