[填空题] 工程中有Form1、Form2两个窗体，Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入______个数值(圆的半径)，然后单击命令按钮“计算并显示”

13 查阅

[填空题] 工程中有Form1、Form2两个窗体，Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入______个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!”，请填空。Private Sub Command1_Click()If Text1.Text="" ThenMsgBox "请输入半径!"ElseIf Not IsNumeric( [6] ) ThenMsgBox "请输入数值数据!"Elser=Val( [7] )Form2.Show[8] .Print "圆的面积是" & 3.14*r*rEnd IfEnd Sub

参考答案:

[6] Text1.Text[7] Text1.Text [8] Form2

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

计算机考试