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

admin2013-04-11  36

问题 设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Forml的文本框Tcxtl中输入口令并按同车键(回车键的ASCII码为13)后,隐藏Forml,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此.某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAscii As Integer)
IfKeyAscii=13 Then
If Text1.Text=“Teacher”Then
Form2.input.Visible=True
Else
Form2.input.Visible=False
End if
End ff
Forml.Hide
Form2.Show
End Sub
菜单结构

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

选项 A、把Forml中Textl文本框及相关程序放到Form2窗体中
B、把Forml.Hide、Form2.Show两行移到2个End If之间
C、把IfKeyAscii=13 Then改为IfKey Ascii=“Teacher”Then
D、把2个Form2.input.Visible中的“Form2.”删去

答案B

解析 左原程序中,只要触发文本框控件的keyPress事件。则会执行隐藏Form1,显示Form2语句。所以将Form.Hide和Form2.Show两行移到两个End if之间,在每次输入口令之后,只要不按回车键就不会执行程序,按下后程序会检验是否口令为“Teacher”,是则“成绩录入”可见,否则不可见,之后执行Form1.Hide和Form2.Show。
转载请注明原文地址:https://jikaoti.com/ti/PuO0FFFM
0

最新回复(0)