解释VB代码.(我是初学者请各位帮帮忙忙)万分谢谢!

来源：百度知道 编辑：UC知道 时间：2024/06/23 05:39:22
窗体一：
Private Sub Command1_Click()
Const pi = 3.14
If Text1.Text <> "" Then
r = Text1.Text
If r = Val(Text1.Text) Then
s = pi * r * r
f = 4 * pi * r * r
v = 4 / 3 * pi * r * r * r
Label5.Caption = s
Label6.Caption = f
Label7.Caption = v
Else
MsgBox "输入的不是数据，请重新输入！"
Text1.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

窗体二：
Private Sub Command1_Click()
Const pi = 3.14
Label8.Caption = Val(InputBox("请输入圆的半径: ", " 求圆面积、球表面积和球体积"))
If Label8.Caption <> 0 Then
r = Label8.Caption
s = pi * r * r
f = 4 * pi * r * r
v = 4 / 3 * pi * r * r * r
Label5.Caption = s
Label6.Caption = f
Label7.Caption = v
Else
MsgBox "输入的不是数据，请重新输入！"
End If
End Sub

窗体一：
Private Sub Command1_Click()
Const pi = 3.14 /*定义pi常数
If Text1.Text <> "" Then /*判断文本框1的内容是否为空
r = Text1.Text /*把文本框1 的内容付给r
If r = Val(Text1.Text) Then /*判断文本框1的内容中的数字
是不是=r ，错误的语言

s = pi * r * r /*计算
f = 4 * pi * r * r
v = 4 / 3 * pi * r * r * r
Label5.Caption = s
Label6.Caption = f
Label7.Caption = v
Else
MsgBox "输入的不是数据，请重新输入！"
Text1.SetFocus
End If
End If
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub

窗体二：
Private Sub Command1_Click()
Const pi = 3.14
Label8.Caption = Val(InputBox("请输入圆的半径: ", " 求圆面积、球表面积和球体积"))
If Label8.Caption <> 0 Then
r = Label8.Caption
s = pi * r * r
f = 4 * pi * r * r
v = 4 / 3 * pi * r * r * r
Label5.Capt