云想衣裳花想容打一词:vb实验： 输入半径，计算圆周长和圆面积得输出

来源：百度文库 编辑：中科新闻网 时间：2024/04/30 05:26:05
Private Sub Command1_Click()
Dim a!
a = 3.14
Dim b!
Text1.Text = b
Dim c!

c = 2 * a * b
Text2.Print c
End Sub

Private Sub Form_Load()
Text2.Text = ""
Text1 = ""
Text3.Text = ""

End Sub

Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
MsgBox "有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
程序哪里错了？

错了一堆
Private Sub Command1_Click()
Dim a! （定义语句不能在中间，除非是REDIM）
Dim b!
Dim c!
a = 3.14
b=Text1.Text
c = 2 * a * b
Text2.text= c (也可以是 val （c )） text没有PRINT
End Sub 事件

Private Sub Form_Load()
Text2.Text = ""
Text1 = ""
Text3.Text = "" text3干吗用的，程序中没有

End Sub

Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
'（你的Isnumeric函数的语句在哪里？如果另外有的话那这段程序没有问题）
MsgBox "有非数字字符错误"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Text1.Text = b应该改为b=text1.text

vb实验： 输入半径，计算圆周长和圆面积得输出 圆面积公式和圆周长公式？ 用java语言如何编写计算圆周长和圆面积程序 vb编程:输入半径,求圆形面积 圆周长、圆面积、圆柱体积公式。 圆周长的计算公式 已知弦长和半径，如何求面积？？ 半径 圆心角 弧长 面积 圆周长，圆面积，圆球表面积，圆球体积，圆柱体体积，圆柱体积 VB哦！ 6. 用InputBox输入球体的半径，然后计算球体的体积。