[单选题]

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

Private Sub Text1_KeyPress ( KeyAscii As Integer )

If KeyAscii=13 Then

If Text1.Text= " Teacher " Then

F.orm2.input.visible=True

E.lse

F.orm2.input.visible=False

E.nd If

E.nd If

F.orm1.Hide

F.orm2.Show

E.nd S u b

程序运行时发现刚输入口令时就隐藏了 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 ” 删去

参考答案与解析:

相关试题

设工程中有2个窗体:Forml、Form2,Forml为启动窗体。Form2中有

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

  • 查看答案
  • 工程中有两个窗体,名称分别为Form1、Form2,Fonn1为启动窗体,该窗体

    [单选题]工程中有两个窗体,名称分别为Form1、Form2,Fonn1为启动窗体,该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示Form2,则按钮Click事件过程应该是 ______。A.Private Sub Command1_click() Foma2.Show End SubB.Private Sub Command1_Click() Form2.Visible End SubC.Private Sub Command1_Click() Load Form2 End S

  • 查看答案
  • 一个工程中含有窗体Form1、Form2和标准模块Modell,如果在Form1

    [单选题]一个工程中含有窗体Form1、Form2和标准模块Modell,如果在Form1中有语句Public X As Integer,在Modell中有语句Public Y As Integer。则以下叙述中正确的是 ______。A.变量X、Y的作用域相同B.Y的作用域是ModellC.在Form1中可以直接使用XD.在Form2中可以直接使用X和Y

  • 查看答案
  • 一个工程中含有窗体Form1、Form2和标准模块Modell,如果在Form1

    [单选题]一个工程中含有窗体Form1、Form2和标准模块Modell,如果在Form1中有语句PublicX As Integer,在Modell中有语句Public Y As Integer。则以下叙述中正确的是A.变量X、Y的作用域相同B.Y的作用域是ModellC.在Form1中可以直接使用xD.在Form2中可以直接使用X和Y

  • 查看答案
  • 设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一

    [单选题]设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:Private Sub Command1_Click()D.im a As Integera=10C.all g(Form2,a)E.nd SubPrivate Sub g(f As Form,x As Integer)y=IIf(x>10,100,-100)f,Showf.Caption=yE.nd Sub运行以上程序,正确的结果是( )。A.

  • 查看答案
  • 设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一

    [单选题]设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下: Private Sub Command1_Click( ) Dim a As Integer a=10 Call g(Form2,A ) End Sub Private Sub g(f As Form,x As Integer) y=IIf(x>10,000,-100) f.Show f.Caption=y End Sub运行以上程序,正确的结

  • 查看答案
  • 设一个工程由两个窗体组成,其名称分别为Form1和Form2,其中Form1为启

    [单选题]设一个工程由两个窗体组成,其名称分别为Form1和Form2,其中Form1为启动窗体。在窗体Form1上有一个名称为Command1的命令按钮,Form1的程序代码如下:程序抽行时,单击命令按钮Command1,正确的结果是( )。A. Form2的Caption属性值为-100B. Form1的Caption属性值为100C. Form1的Caption属性值为-100D. Form2的Caption属性值为100

  • 查看答案
  • 设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一

    [单选题]设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为 Command1的命令按钮。窗体Form1的程序代码如下: Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2,A)End Sub Private Sub g(f As Form, x As Integer) y=IIf(x>10, 100,-100) f.Show f.Caption =y End Sub 运行以上的程序,正确的结

  • 查看答案
  • 一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1

    [单选题]一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Public X As Integer,在Model1中有语句Public Y As Integer。则以下叙述中正确的是( )。A.变量X、Y的作用域相同B.Y的作用域是Model1C.在Form1中可以直接使用XD.在Form2中可以直接使用X和Y

  • 查看答案
  • 一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1

    [单选题]一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X As Integer,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是( )。A.变量X、Y的作用域相同B.Y的作用域是Model1C.在Form1中可以直接使用XD.在Form2中可以直接使用X和Y

  • 查看答案