题目内容
工程中有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
查看答案
搜索结果不匹配?点我反馈
更多问题