（ 6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （ 圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （ 其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。Private Sub Command1_Click()If Text1.Text= ”” ThenMsgBox “ 请输入半径！ ”Else If Not IsNumeric( 【 6 】 ) ThenMsgBox “ 请输入数值数据！ ”Elser=val( 【 7 】 )Form2.show【 8 】 .Print “ 圆的面积是 ” 3.14*r*rEnd IfEnd Sub
（ 6 ）工程中有 Form1 、 Form2 两个窗体。 Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值 （ 圆的半径 ） ， 然后单击命令按钮 “ 计算并显示 ” （ 其名称为Command1 ） ，则显示 Form2 窗体，且根据输入的圆的半径计算圆的面积，并在 Form2 的窗体上显示出来，如图 2 所示 。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示 “ 请输入数值数据！ ” 请填空。
Private Sub Command1_Click()
If Text1.Text= ”” Then
MsgBox “ 请输入半径！ ”
Else If Not IsNumeric( 【 6 】 ) Then
MsgBox “ 请输入数值数据！ ”
Else
r=val( 【 7 】 )
Form2.show
【 8 】 .Print “ 圆的面积是 ” &3.14*r*r
End If
End Sub
相关考题：
创建一个工程，该工程包含两个窗体，名字分别为Form1和Form2。下列程序代码用于实现以下功能：单击命令按钮Command1后，Form1窗体消失，显示Form2，并且Form2中按钮Command2变为可用。请填空。Private Sub Command1_ Click()______MeForm2______CommandEnable = TrueEnd Sub
新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：Private Sub Command1_Click（）【6】Form2. 【7】End Sub试补充完整。
在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。Private Sub Disp_Click （）Me.HideForm2. 【10】End Sub
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
在考生文件夹中有一个工程文件execise25.vbp，相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为“输入”；还有一个文本框，其名称为Text1，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(1～12)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出“8月份是秋季”，如下图所示。该程序不完整，请补充完整。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。
在名为Form1的窗体上建立一个名为Text1的文本框；一个名为Crud1，标题为“输出”的命令按钮(如下图所示)。要求程序运行后，在文本框中任意输入一个字符串，然后单击“输出”按钮，则将文本框中的文字显示在窗体上。注意：在程序中不能使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise61.frm，工程文件名为execise61.vbp。
在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签，一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程，使程序运行后，在文本框中输入严计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。运行后的窗体如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise31.vbp，窗体文件名为execise31.frm。
在考生文件夹中有一个工程文件execise55.vbp，它包含两个名称分别为Form1和Form2的窗体，Form1和Form2窗体上建立了标题分别为Cmd1和Crud2的按钮。请先把Form1上按钮的标题改为End，把Form2上按钮的标题改为Display，并将Form2设为启动窗体，将Form1设为不显示。该程序实现的功能是：在程序运行时显示Form2窗体，单击Form2上的Display按钮，则显示Form1窗体；若单击Form1上的End按钮，则关闭Form1和Form2，并结束程序运行。注意：请去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。正确程序运行后的界面如下图所示。
请根据以下各题的要求设计Visual Basic应用程序(包括界面和代码)。1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。
新建一个工程，内有两个窗体，名称分别为Form1、Form2，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下，请填空。Private Sub Command1_Click()Form1.HideForm2.______End Sub
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Tem1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Command1 Click()Text3=Text1+Text2End SubPrivate Sub Forml Load()Text1＝""Text2=""Text3=""End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，都没有初始内容，再画3个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“显示”、 “隐藏”、 “复制”。程序运行时，向Text1中输入的所有字符，都显示“*”。单击“显示”按钮后，在Text1中显示所有字符。再单击“隐藏”按钮后，Text1中的内容不变但显示的都是“?”。单击“复制”按钮后，把Text1中的实际内容复制到Text2中，如图25所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。
工程中有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。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示Form2，请在空白处将程序补充完整。Private Sub Command1_Click()______form2．______End Sub
设一个工程由两个窗体组成，其名称分别为Form1和Form2，其中Form1为启动窗体。在窗体Form1上有一个名称为Command1的命令按钮，Form1的程序代码如下：程序抽行时，单击命令按钮Command1，正确的结果是（ ）。A. Form2的Caption属性值为-100B. Form1的Caption属性值为100C. Form1的Caption属性值为-100D. Form2的Caption属性值为100
有一个ylc5.vbp，只有一个窗体Form1，需要创建Form2。在窗体Form1上建立Command1和Command2两个命令按钮，标题分别为“隐藏启动窗体”和“关闭窗体”。在窗体Form2上创建标题为“打开窗体1”的按钮。将Form2设为启动窗体，单击Form2上的按钮，则显示Form1窗体：若单击Form1上的“隐藏启动窗体”按钮，则Form2消失。若单击Form1上的“关闭窗体”按钮，则Form1和Form2都消失，退出程序。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5-1.frm， ylc5-2.frm。程序中不得使用任何变量。
在考生文件夹中有一个工程文件execise63.vbp及窗体文件execise63.frm。在名为Form1上有一个名称为Cmd1，标题为Hide的命令按钮。在Form2上有一个名称为Cmd2，标题为Display的命令按钮。它的功能是在运行时只显示名为Form2的窗体，单击Form2上的 Display按钮，则显示名为Form1的窗体；单击Form1上的Hide按钮，则Foma1的窗体消失。这个程序不完整。要求：(1)把Form2设为启动窗体；把Form1上按钮的标题改为Hide，把Form2上按钮的标题改为Display。(2)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后把修改后的文件存盘。(3)工程文件和窗体文件仍按原名保存。正确程序运行后的界面如图所示。
在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Textl和Text2，初始内容均为空）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击“显示”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjtl．frm。
在考生文件夹中有一个工程文件execise45.vbp和窗体文件execise45.frm。它的功能是在运行时只显示名为Form2的窗体，单击Form2上的“上线”命令按钮，则显示名为Form1的窗体；单击Form1上的“隐身”命令按钮，则Form1的窗体消失。这个程序并不完整，要求：(1)把Form2设为启动窗体；把Form1上按钮的标题改为“隐身”，把Form2上按钮的标题改为“上线”。(2)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后把修改后的文件存盘。(3)工程文件和窗体文件仍按原名保存。正确程序运行后的界面如卜图所示。
（1）在名为Form1的窗体上绘制两个标签（名称分别为Label1和Label2，标题分别为“长”和“宽”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“输入”）。编写命令按钮的Click事件过程，使程序运行后，若单击命令按钮，则先后显示两个“输入”对话框，在两个“输入”对话框中分别输入长和宽，并分别在两个文本框中显示出来，运行后的窗体如图21-1所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj1．vbp，窗体文件名为sj1．frm。（2）在名为Form1的窗体上绘制一个标签（名称为Label1，标题为“输入”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”）。请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入内容，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图21-2和图21-3所示。注意：要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为Sj2．vbp，窗体文件名为sj2．frm。
在名为Form1的窗体上，绘制一个名为Text1的文本框。设置文本框属性，在文本框中显示“文本框”；再建立一个名为Cmd1，标题为Clear的命令按钮，如下图所示。编写适当的事件过程，使程序运行后，若单击Clear命令按钮，则清除文本框中所显示的信息。注意：文件必须存放在考生文件夹中，窗体文件名为execise5.frm，工程文件名为exeeise5.vbp。
在名为Form1的窗体上绘制两个标签(名称分别为Lab1和Lab2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Cmd1，标题为Display)。然后编写命令按钮的Click事件过程，使程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise57.vbp，窗体文件名为execise57.frm。
已知两个窗体Form1、Form2，下列事件过程中，______可以实现单击窗体Form1的命令按钮时，显示窗体Form2，而窗体Form1消失。A．Private Sub Command1_ Click() LoadForm2 Form1. Hide End SubB．Private Sub Command1_ Click() Show Form2 Form1. Hide EndSubC．Private Sub Command1_ click() Show Form2 Form1. Hide End SubD．Private Sub Command1_ click()
（ 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 ” 删去
设工程中有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．”删去
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
问答题（1）在名称为Form1的窗体上添加一个名称为Command1的命令按钮（如图1所示）一然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能：图1 ①窗体标题为“设置按钮属性”； ②命令按钮的标题为“等级考试”； ③程序运行后，命令按钮不可见； ④命令按钮的标题字号、字体用三号常规黑体显示。 程序的运行情况如图2所示。图2 要求：不编写任何代码。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。 （2）在名称为Form1的窗体上添加一个名称为Label1的标签，在属性窗口中把BorderStyle属性设置为1（如图1所示），编写适当的事件过程。使得程序在运行后，如果单击窗体，则可使标签移到窗体的右上角（只允许在程序中修改适当属性来实现），如图2所示。图1图2 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。