设工程中有2个窗体：Forml、Form2，Forml为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Forml的文本框Tcxtl中输入口令并按同车键(回车键的ASCII码为13)后，隐藏Forml，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序：Private Sub Text1_KeyPress(KeyAscii As Integer)IfKeyAscii=13 ThenIf Text1．Text=“Teacher”ThenForm2．input．Visible=TrueElseForm2．input．Visible=FalseEnd ifEnd ffForml．HideForm2．ShowEnd Sub菜单结构程序运行时发现刚输入口令时就隐藏了Forml，显示了Form2，程序需要修改。下面修改方案中正确的是A．把Forml中Textl文本框及相关程序放到Form2窗体中B．把Forml．Hide、Form2．Show两行移到2个End If之间C．把IfKeyAscii=13 Then改为IfKey Ascii=“Teacher”ThenD．把2个Form2．input．Visible中的“Form2．”删去
设工程中有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．”删去
相关考题：
如果Form1是启动窗体，并且Form1的Load事件过程中有Form2．Show，则程序启动后（ ）。A．发生一个运行时错误B．发生一个编译时错误C．在所有的初始化代码运行后Forml是活动窗体D．在所有的初始化代码运行后Form2是活动窗体
如果Form2是启动窗体,并且Form2的Load事件过程中有Form1.Show,则程序启动后( )。 A、发生一个运行时错误参考答案：C、在所有的初始化代码运行后Form1是活动窗体D、在所有的初始化代码运行后Form2是活动窗体
工程中有Form1、Form2两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。Private Sub Command1_Click()IfText1．Text=””ThenMsgBox”请输入半径!”ElseIf Not IsNumerie(【 】)ThenMsgBox“请输入数值数据!”．Elser=Val(【 】)Form2．Show【 】．Print”圆的面积是”3．14”r*rEnd IfEnd Sub
设一个工程由两个窗体组成，其名称分别为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 运行以上的程序，正确的结果是A．Forml的Caption属性值为100B．Form2的Caption属性值为-100C．Forml的Caption属性值为-100D．Form2的Caption属性值为100
请教:2016年计算机二级VB基础练习一简答题20如何解答? 在考生文件夹下有一个工程文件sjt3.vbp，含有两个窗体，名称分别为Forml、Form2。其中Forml E有两个控件(图像框和计时器)和一个菜单项“操作”，含有三个子菜单(如图l所示)。Form2匕有一个名称为Commandl、标题为“返回”的命令按钮(如图2所示)。要求当单击“窗体2”菜单命令时，Forml隐藏，Form2导委。.单考‘动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新开始移动。单击“退出”菜单命令时，结束程序运行。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。
一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称为mdlFune的标准模块。假定在 Forml、Form2和mdlFunc中分别建立了自定义过程，其定义格式为： Forml中定义的过程： Privme Sub frmFunction1( ) …… End Sub Form2中定义的过程： Public Sub frmFunction2( ) End Sub mdlFunc 中定义的过程： PubHc Sub mdl Function( ) End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是A．上述三个过程都可以在工程中的任何窗体或模块中被调用B．frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用C．上述三个过程都只能在各自被定义的模块中调用D．只有mdlFunction过程能够被工程中各个窗体或模块调用
（ 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 ThenIf Text1.Text= " Teacher " ThenForm2.input.visible=TrueElseForm2.input.visible=FalseEnd IfEnd IfForm1.HideForm2.ShowEnd 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 " ThenD ）把 2 个 Form2.input.Visible 中的 “ Form2 ” 删去
如果Forml是启动窗体,并且Forml的load事件过程中有form2.show,则程序启动后() A、发生一个运行错误B、发生一个编译错误C、在所有的初始化代码运行后,Form1是活动窗体D、在所有的初始化代码运行后,Form2是活动窗体
设工程中有2个窗体：Form1、Form2、Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输人口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序：Private Sub Text 1 KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenIf Text1．Text=TeacherThenForm2．input．Visible=TrueElseForm2．input．Visible FalseEnd IfEnd IfForml．HideForm2．ShowEnd Sub菜单结构标题 名称级别成绩管理mark1成绩查询query2成绩录入mput3程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（ ）。A.把Form1中Text1文本框及相关程序放到Form2窗体中B.把Form1．Hide、Form2．Show两行移动2个End If之间C.把If KeyAscii=13 Then改为If KeyAseii=TeacherThenD.把2个Form2 input．Visible中的“Form2．”删去