工程中有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两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Commandl)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”。请填空。
Private Sub Command1_Click()
IfText1．Text=””Then
MsgBox”请输入半径!”
ElseIf Not IsNumerie(【 】)Then
MsgBox“请输入数值数据!”．
Else
r=Val(【 】)
Form2．Show
【 】．Print”圆的面积是”&3．14”r*r
End If
End Sub
相关考题：
设工程中有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．”删去
在考生文件夹中有一个工程文件execise25.vbp，相应的窗体文件为execise25.timo在在名为Form1的窗体上有一个命令按钮，其名称为Cmd1，标题为“输入”；还有一个文本框，其名称为Text1，初始内容为空白。程序运行后，单击“输入”命令按钮，显示“输入”对话框。在对话框中输入某个月份的数值(1～12)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入8，将输出“8月份是秋季”，如下图所示。该程序不完整，请补充完整。要求：去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不得修改程序的其他部分。最后用原名保存工程文件和窗体文件。
请根据以下各题的要求设计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所示。
设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Forml的代码如下： Public x As Integer Privme Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1.x，y End Sub Modulel的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )。A．1 5B．0 5C．0 0D．程序有错
在考生文件夹中有一个工程文件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)工程文件和窗体文件仍按原名保存。正确程序运行后的界面如图所示。
（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。
（ 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
在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl)，然后编写如下事件过程：程序运行后，在文本框中输入3，然后单击命令按钮，则Y的值变为__________。