问题 填空题

工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时,在Form1中名称为Text1的文本框中输入一个数值(圆的半径),然后单击命令按钮"计算并显示"(其名称为Command1),则显示Form2窗体,且根据输入的圆的半径计算圆的面积,并在Form2的窗体上显示出来,如图2所示。如果单击命令按钮时,文本框中输入的不是数值,则用信息框显示"请输入数值数据!"。请填空。


Private Sub Command1_Click()
If Text1.Text=" "Then
MsgBox"请输入半径!"
Elself Not IsNumeric( (9) )Then
MsgBox"请输入数值数据!"
Else
r=Val( (10) )
Form2.Show
(11) .Print"圆的面积是"&3.14"r*r
End If
End Sub

答案

参考答案:Form2

解析: IsNumeric是一个字符串函数,其参数是一个字符串或者数字,返回值是一个布尔值,如果这个参数是纯数字组成,将会返回True,否则将返回False,在这里的作用是为了检验文本框中输入的是否为纯数据即数值数据,所以[9]应该填Text1.Text;在判断完成以后要将Text1中的文本内容转化为数字,因此[10]也应填Text1.Text;最后输入的结果要在Form2中显示出来,所以[11]应该填Form2,表示利用的是Form2的Print方法。

单项选择题
问答题 简答题