您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >   [填空题] 工程中有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
问题:
发布时间:2022-07-01

[填空题] 工程中有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

可能感兴趣的题目: