填空题
工程中有Form1和Form2两个窗体。Form1窗体外观如图5所示。程序运行时,在Form1中名称为Text1的文本框中输入一个数值(圆的半径),然后单击命令按钮“计算并显示”(其名称为Command1),则显示Form2窗体,且根据输入的圆的半径计算圆的面积,并在Form2的窗体上显示出来,如图6所示。如果单击命令按钮,文本框中输入的不是数值,则用信息框显示“请输入数值数据!”。请填空。
Private Sub Command1_Click()
If Text1.Text="" Then
Msgbox "请输入半径!"
ElseIf Not IsNumeric(______) Then
MsgBox "请输入数值数据!"
Else
r=Val(______)
Form2.Show
______.Print "圆的面积是" & 3.14 * r * r
End If
End Sub
【参考答案】
Text1.Text Text1.Text Form2
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
有如下事件过程: Private Sub Form_Active() Dim Score(1 to 3) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score (i)=2*i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为______。
点击查看答案&解析
填空题
下列事件过程的功能是:通过Form _ Load事件给数组赋初值为35、48、15、22、67,Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容,将程序补充完整。 Dim Arr ( ) Private Sub Form _ Load( ) ______ End Sub Private Sub Form _ Click( ) ______ If Int(x 3)=x 3 Then Print x End If Next x End Sub
点击查看答案&解析
相关试题
Visual Basic识别对象靠的是对象的___...
数据库系统的三级模式分别为______模...
关系式x≤-5或x≥5所对应的布尔表达式是...