填空题
工程中有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
【参考答案】
Text1.Text
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
有如下函数过程: Function gys(By Val x As Integer, ByVal y As Integer) As Integer Do While y<>0 preminder=x y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程: Private Sub Command1_Click Dim a As Integer,b As Integer a=10;b=2 x=gys(a,b) Print x End Sub 该程序的运行结果是______。
点击查看答案&解析
填空题
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。 Private Sub Command1_Click() Open c: test.dat For Output As#1 Fori=1 to Len(Text1.Text) (12) Next Close# i End Sub
点击查看答案&解析
相关试题
SetFocus
A
Form2
Addltem
Text1.Text