Public DS As Double
Public DC As Double
Public Y As Double
Public S As Double
Public h As Double


Private Sub Command1_Click()
pi = 4 * Atn(1)
DS = Val(Text1(0).Text)
DC = Val(Text1(1).Text)
h = Val(Text1(2).Text)
Dim i As Integer
Dim F As Double
Dim n As Integer '项目个数
Dim sum As Double
n = 0
sum = 0
For i = 0 To Text7.UBound
F = DS + DC * Sin(Val(Text2(i).Text) * pi / 180) ^ 2 'F值
If Val(Text3(i)) > 0 Then
Text5(i) = Round(Abs(F) * (Val(Text4(i))) ^ 2 / 2000 / (Val(Text3(i)) - h) _
+ (Val(Text3(i)) - h) / 2000 + 1, 5)
sum = sum + Text5(i)
n = n + 1
End If
Next
If n > 0 Then
Text6.Text = Round(sum / n, 4)
Else
MsgBox "容我卜一卦，嘿！你今天要中500万！"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
pi = 4 * Atn(1)
DS = Val(Text1(0).Text)
DC = Val(Text1(1).Text)
h = Val(Text1(2).Text)
Dim i As Integer
For i = 0 To Text7.UBound
Text7(i).Text = Round(DS + DC * Sin(Val(Text2(i).Text) * pi / 180) ^ 2, 3)
Next
End Sub

Private Sub Command4_Click()
Dim t As Control
For Each t In Me.Controls
If TypeOf t Is TextBox Then t.Text = ""
Next
End Sub


 Private Sub form_load()
Dim i As Long
    For i = 0 To Text1.UBound
    Text1(i).Text = ""
Next
Dim t As Object
    For Each t In Text2
    t.Text = ""
Next
Dim t1 As Object
    For Each t1 In Text3
    t1.Text = ""
Next
Dim t2 As Object
    For Each t2 In Text4
    t2.Text = ""
Next
Dim t3 As Object
    For Each t3 In Text5
    t3.Text = ""
Next
Dim t4 As Object
    For Each t4 In Text7
    t4.Text = ""
Next
Text6.Text = ""

 End Sub

小白到处求大神终于写完一个简单的程序了，请大家看看有没有需要简化，需要改进的地方。谢谢

豁然开朗  谢谢
这三条命令，变量是窗体全局变量，内容都是一样的，因为在二个过程中使用过，建议可以单独定义为一个过程。提高代码复用性。
DS = Val(Text1(0).Text)
DC = Val(Text1(1).Text)
h = Val(Text1(2).Text)
这个是怎么单独定义的，放在哪里呢

[此贴子已经被作者于2016-8-3 18:17编辑过]

pi = 4 * Atn(1)这个移过去不能使用了啊，计算结果不对了呢
 Private Sub form_load()
  pi = 4 * Atn(1)
Call Command4_Click
 End Sub

谢谢大神，又解锁新姿势了