form16.frm

计算一个圆上可以放多少的小圆！还有可以计算在一个大球面上可以放多少个小球面！

X = 360 / Q
Form17.MSFlexGrid1.TextMatrix(1, 4) = X

Y = 360 / r
Form17.MSFlexGrid1.TextMatrix(2, 4) = Y

Z = 360 / S
Form17.MSFlexGrid1.TextMatrix(3, 4) = Z

aa = 360 / T
Form17.MSFlexGrid1.TextMatrix(4, 4) = aa

AB = 360 / u
Form17.MSFlexGrid1.TextMatrix(5, 4) = AB

ac = 360 / v
Form17.MSFlexGrid1.TextMatrix(6, 4) = ac


AD = (Sin(X / 2 * 3.14159265358979 / 180) * d - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(1, 5) = AD

ae = (Sin(Y / 2 * 3.14159265358979 / 180) * e - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(2, 5) = ae

af = (Sin(Z / 2 * 3.14159265358979 / 180) * f - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(3, 5) = af

ag = (Sin(aa / 2 * 3.14159265358979 / 180) * g - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(4, 5) = ag

ah = (Sin(AB / 2 * 3.14159265358979 / 180) * i - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(5, 5) = ah

ai = (Sin(ac / 2 * 3.14159265358979 / 180) * j - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(6, 5) = ai

ElseIf Form17.Option1 = True Then

d = 0
Form17.MSFlexGrid1.TextMatrix(1, 1) = d



e = A + b
Form17.MSFlexGrid1.TextMatrix(2, 1) = e

f = e + A + b
Form17.MSFlexGrid1.TextMatrix(3, 1) = f

g = f + A + b
Form17.MSFlexGrid1.TextMatrix(4, 1) = g

i = g + A + b
Form17.MSFlexGrid1.TextMatrix(5, 1) = i

j = i + A + b
Form17.MSFlexGrid1.TextMatrix(6, 1) = j



k = (d + A / 2) * 2

If k <= c Then
Form17.MSFlexGrid1.TextMatrix(1, 2) = k
ElseIf k > c Then
Form17.MSFlexGrid1.TextMatrix(1, 2) = "No" & "-" & (k)
End If

l = (e + A / 2) * 2

If l <= c Then
Form17.MSFlexGrid1.TextMatrix(2, 2) = l
ElseIf l > c Then
Form17.MSFlexGrid1.TextMatrix(2, 2) = "No" & "-" & (l)
End If

m = (f + A / 2) * 2

If m <= c Then
Form17.MSFlexGrid1.TextMatrix(3, 2) = m
ElseIf m > c Then
Form17.MSFlexGrid1.TextMatrix(3, 2) = "No" & "-" & (m)
End If

N = (g + A / 2) * 2

If N <= c Then
Form17.MSFlexGrid1.TextMatrix(4, 2) = N
ElseIf N > c Then
Form17.MSFlexGrid1.TextMatrix(4, 2) = "No" & "-" & (N)
End If

O = (i + A / 2) * 2

If O <= c Then
Form17.MSFlexGrid1.TextMatrix(5, 2) = O
ElseIf O > c Then
Form17.MSFlexGrid1.TextMatrix(5, 2) = "No" & "-" & (O)
End If

p = (j + A / 2) * 2

If p <= c Then
Form17.MSFlexGrid1.TextMatrix(6, 2) = p
ElseIf p > c Then
Form17.MSFlexGrid1.TextMatrix(6, 2) = "No" & "-" & (p)
End If

Q = Int(d * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(1, 3) = 1


r = Int(e * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(2, 3) = r

S = Int(f * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(3, 3) = S

T = Int(g * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(4, 3) = T

u = Int(i * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(5, 3) = u

v = Int(j * 2 * 3.14159 / (A + b))
Form17.MSFlexGrid1.TextMatrix(6, 3) = v


X = 0
Form17.MSFlexGrid1.TextMatrix(1, 4) = X

Y = 360 / r
Form17.MSFlexGrid1.TextMatrix(2, 4) = Y

Z = 360 / S
Form17.MSFlexGrid1.TextMatrix(3, 4) = Z

aa = 360 / T
Form17.MSFlexGrid1.TextMatrix(4, 4) = aa

AB = 360 / u
Form17.MSFlexGrid1.TextMatrix(5, 4) = AB

ac = 360 / v
Form17.MSFlexGrid1.TextMatrix(6, 4) = ac


AD = (Sin(X / 2 * 3.14159265358979 / 180) * d - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(1, 5) = 0

ae = (Sin(Y / 2 * 3.14159265358979 / 180) * e - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(2, 5) = ae

af = (Sin(Z / 2 * 3.14159265358979 / 180) * f - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(3, 5) = af

ag = (Sin(aa / 2 * 3.14159265358979 / 180) * g - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(4, 5) = ag

ah = (Sin(AB / 2 * 3.14159265358979 / 180) * i - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(5, 5) = ah

ai = (Sin(ac / 2 * 3.14159265358979 / 180) * j - A / 2) * 2
Form17.MSFlexGrid1.TextMatrix(6, 5) = ai

End If
End Sub

Private Sub Combo1_Change()

End Sub

Private Sub cls_Click()
On Error Resume Next
Form17.MSFlexGrid1.TextMatrix(0, 0) = "ROW"
Form17.MSFlexGrid1.TextMatrix(0, 1) = "Center D"
Form17.MSFlexGrid1.TextMatrix(0, 2) = "MAX D"
Form17.MSFlexGrid1.TextMatrix(0, 3) = "Number"
Form17.MSFlexGrid1.TextMatrix(0, 4) = "Angle"
Form17.MSFlexGrid1.TextMatrix(0, 5) = "Distance"
Form17.MSFlexGrid1.TextMatrix(1, 0) = "ROW 1"
Form17.MSFlexGrid1.TextMatrix(2, 0) = "ROW 2"
Form17.MSFlexGrid1.TextMatrix(3, 0) = "ROW 3"
Form17.MSFlexGrid1.TextMatrix(4, 0) = "ROW 4"
Form17.MSFlexGrid1.TextMatrix(5, 0) = "ROW 5"
Form17.MSFlexGrid1.TextMatrix(6, 0) = "ROW 6"

Form17.MSFlexGrid1.TextMatrix(1, 1) = ""
Form17.MSFlexGrid1.TextMatrix(1, 2) = ""
Form17.MSFlexGrid1.TextMatrix(1, 3) = ""
Form17.MSFlexGrid1.TextMatrix(1, 4) = ""
Form17.MSFlexGrid1.TextMatrix(1, 5) = ""
Form17.MSFlexGrid1.TextMatrix(1, 6) = ""

Form17.MSFlexGrid1.TextMatrix(2, 1) = ""
Form17.MSFlexGrid1.TextMatrix(2, 2) = ""
Form17.MSFlexGrid1.TextMatrix(2, 3) = ""
Form17.MSFlexGrid1.TextMatrix(2, 4) = ""
Form17.MSFlexGrid1.TextMatrix(2, 5) = ""
Form17.MSFlexGrid1.TextMatrix(2, 6) = ""

Form17.MSFlexGrid1.TextMatrix(3, 1) = ""
Form17.MSFlexGrid1.TextMatrix(3, 2) = ""
Form17.MSFlexGrid1.TextMatrix(3, 3) = ""
Form17.MSFlexGrid1.TextMatrix(3, 4) = ""
Form17.MSFlexGrid1.TextMatrix(3, 5) = ""
Form17.MSFlexGrid1.TextMatrix(3, 6) = ""

Form17.MSFlexGrid1.TextMatrix(4, 1) = ""
Form17.MSFlexGrid1.TextMatrix(4, 2) = ""
Form17.MSFlexGrid1.TextMatrix(4, 3) = ""
Form17.MSFlexGrid1.TextMatrix(4, 4) = ""
Form17.MSFlexGrid1.TextMatrix(4, 5) = ""
Form17.MSFlexGrid1.TextMatrix(4, 6) = ""

Form17.MSFlexGrid1.TextMatrix(5, 1) = ""
Form17.MSFlexGrid1.TextMatrix(5, 2) = ""
Form17.MSFlexGrid1.TextMatrix(5, 3) = ""
Form17.MSFlexGrid1.TextMatrix(5, 4) = ""
Form17.MSFlexGrid1.TextMatrix(5, 5) = ""
Form17.MSFlexGrid1.TextMatrix(5, 6) = ""
Form17.MSFlexGrid1.TextMatrix(6, 1) = ""
Form17.MSFlexGrid1.TextMatrix(6, 2) = ""
Form17.MSFlexGrid1.TextMatrix(6, 3) = ""
Form17.MSFlexGrid1.TextMatrix(6, 4) = ""
Form17.MSFlexGrid1.TextMatrix(6, 5) = ""
Form17.MSFlexGrid1.TextMatrix(6, 6) = ""

End Sub

Private Sub Form_Load()
Form17.Option1 = True
Form17.MSFlexGrid1.ColWidth(0) = TextWidth("000000000000")
Form17.MSFlexGrid1.ColWidth(1) = TextWidth("00000000000000")
Form17.MSFlexGrid1.ColWidth(2) = TextWidth("00000000000000")
Form17.MSFlexGrid1.ColWidth(3) = TextWidth("0000000000000")
Form17.MSFlexGrid1.ColWidth(4) = TextWidth("00000000000000")
Form17.MSFlexGrid1.ColWidth(5) = TextWidth("00000000000000")
Form17.MSFlexGrid1.RowHeight(0) = 348
Form17.MSFlexGrid1.RowHeight(1) = 348
Form17.MSFlexGrid1.RowHeight(2) = 348
Form17.MSFlexGrid1.RowHeight(3) = 348
Form17.MSFlexGrid1.RowHeight(4) = 348
Form17.MSFlexGrid1.RowHeight(5) = 348
Form17.MSFlexGrid1.RowHeight(6) = 348

Form17.MSFlexGrid1.TextMatrix(0, 0) = "ROW"
Form17.MSFlexGrid1.TextMatrix(0, 1) = "Center D"
Form17.MSFlexGrid1.TextMatrix(0, 2) = "MAX D"
Form17.MSFlexGrid1.TextMatrix(0, 3) = "Number"
Form17.MSFlexGrid1.TextMatrix(0, 4) = "Angle"
Form17.MSFlexGrid1.TextMatrix(0, 5) = "Distance"
Form17.MSFlexGrid1.TextMatrix(1, 0) = "ROW 1"
Form17.MSFlexGrid1.TextMatrix(2, 0) = "ROW 2"
Form17.MSFlexGrid1.TextMatrix(3, 0) = "ROW 3"
Form17.MSFlexGrid1.TextMatrix(4, 0) = "ROW 4"
Form17.MSFlexGrid1.TextMatrix(5, 0) = "ROW 5"
Form17.MSFlexGrid1.TextMatrix(6, 0) = "ROW 6"
Form17.Text1.Text = ""
Form17.Text2.Text = ""
Form17.Text3.Text = ""
End Sub

Private Sub Option1_Click()
On Error Resume Next


Form17.MSFlexGrid1.TextMatrix(0, 0) = "ROW"
Form17.MSFlexGrid1.TextMatrix(0, 1) = "Center D"
Form17.MSFlexGrid1.TextMatrix(0, 2) = "MAX D"
Form17.MSFlexGrid1.TextMatrix(0, 3) = "Number"
Form17.MSFlexGrid1.TextMatrix(0, 4) = "Angle"
Form17.MSFlexGrid1.TextMatrix(0, 5) = "Distance"
Form17.MSFlexGrid1.TextMatrix(1, 0) = "ROW 1"
Form17.MSFlexGrid1.TextMatrix(2, 0) = "ROW 2"
Form17.MSFlexGrid1.TextMatrix(3, 0) = "ROW 3"
Form17.MSFlexGrid1.TextMatrix(4, 0) = "ROW 4"
Form17.MSFlexGrid1.TextMatrix(5, 0) = "ROW 5"
Form17.MSFlexGrid1.TextMatrix(6, 0) = "ROW 6"

Form17.MSFlexGrid1.TextMatrix(1, 1) = ""
Form17.MSFlexGrid1.TextMatrix(1, 2) = ""
Form17.MSFlexGrid1.TextMatrix(1, 3) = ""
Form17.MSFlexGrid1.TextMatrix(1, 4) = ""
Form17.MSFlexGrid1.TextMatrix(1, 5) = ""
Form17.MSFlexGrid1.TextMatrix(1, 6) = ""

Form17.MSFlexGrid1.TextMatrix(2, 1) = ""
Form17.MSFlexGrid1.TextMatrix(2, 2) = ""
Form17.MSFlexGrid1.TextMatrix(2, 3) = ""
Form17.MSFlexGrid1.TextMatrix(2, 4) = ""
Form17.MSFlexGrid1.TextMatrix(2, 5) = ""
Form17.MSFlexGrid1.TextMatrix(2, 6) = ""

Form17.MSFlexGrid1.TextMatrix(3, 1) = ""
Form17.MSFlexGrid1.TextMatrix(3, 2) = ""
Form17.MSFlexGrid1.TextMatrix(3, 3) = ""
Form17.MSFlexGrid1.TextMatrix(3, 4) = ""
Form17.MSFlexGrid1.TextMatrix(3, 5) = ""
Form17.MSFlexGrid1.TextMatrix(3, 6) = ""

Form17.MSFlexGrid1.TextMatrix(4, 1) = ""
Form17.MSFlexGrid1.TextMatrix(4, 2) = ""
Form17.MSFlexGrid1.TextMatrix(4, 3) = ""
Form17.MSFlexGrid1.TextMatrix(4, 4) = ""
Form17.MSFlexGrid1.TextMatrix(4, 5) = ""
Form17.MSFlexGrid1.TextMatrix(4, 6) = ""

Form17.MSFlexGrid1.TextMatrix(5, 1) = ""
Form17.MSFlexGrid1.TextMatrix(5, 2) = ""
Form17.MSFlexGrid1.TextMatrix(5, 3) = ""
Form17.MSFlexGrid1.TextMatrix(5, 4) = ""
Form17.MSFlexGrid1.TextMatrix(5, 5) = ""
Form17.MSFlexGrid1.TextMatrix(5, 6) = ""
Form17.MSFlexGrid1.TextMatrix(6, 1) = ""
Form17.MSFlexGrid1.TextMatrix(6, 2) = ""
Form17.MSFlexGrid1.TextMatrix(6, 3) = ""
Form17.MSFlexGrid1.TextMatrix(6, 4) = ""
Form17.MSFlexGrid1.TextMatrix(6, 5) = ""
Form17.MSFlexGrid1.TextMatrix(6, 6) = ""


End Sub


Private Sub Option2_Click()
On Error Resume Next


Form17.MSFlexGrid1.TextMatrix(0, 0) = "ROW"
Form17.MSFlexGrid1.TextMatrix(0, 1) = "Center D"
Form17.MSFlexGrid1.TextMatrix(0, 2) = "MAX D"
Form17.MSFlexGrid1.TextMatrix(0, 3) = "Number"
Form17.MSFlexGrid1.TextMatrix(0, 4) = "Angle"
Form17.MSFlexGrid1.TextMatrix(0, 5) = "Distance"
Form17.MSFlexGrid1.TextMatrix(1, 0) = "ROW 1"
Form17.MSFlexGrid1.TextMatrix(2, 0) = "ROW 2"
Form17.MSFlexGrid1.TextMatrix(3, 0) = "ROW 3"
Form17.MSFlexGrid1.TextMatrix(4, 0) = "ROW 4"
Form17.MSFlexGrid1.TextMatrix(5, 0) = "ROW 5"
Form17.MSFlexGrid1.TextMatrix(6, 0) = "ROW 6"

Form17.MSFlexGrid1.TextMatrix(1, 1) = ""
Form17.MSFlexGrid1.TextMatrix(1, 2) = ""
Form17.MSFlexGrid1.TextMatrix(1, 3) = ""
Form17.MSFlexGrid1.TextMatrix(1, 4) = ""
Form17.MSFlexGrid1.TextMatrix(1, 5) = ""
Form17.MSFlexGrid1.TextMatrix(1, 6) = ""

Form17.MSFlexGrid1.TextMatrix(2, 1) = ""
Form17.MSFlexGrid1.TextMatrix(2, 2) = ""
Form17.MSFlexGrid1.TextMatrix(2, 3) = ""
Form17.MSFlexGrid1.TextMatrix(2, 4) = ""
Form17.MSFlexGrid1.TextMatrix(2, 5) = ""
Form17.MSFlexGrid1.TextMatrix(2, 6) = ""

Form17.MSFlexGrid1.TextMatrix(3, 1) = ""
Form17.MSFlexGrid1.TextMatrix(3, 2) = ""
Form17.MSFlexGrid1.TextMatrix(3, 3) = ""
Form17.MSFlexGrid1.TextMatrix(3, 4) = ""
Form17.MSFlexGrid1.TextMatrix(3, 5) = ""
Form17.MSFlexGrid1.TextMatrix(3, 6) = ""

Form17.MSFlexGrid1.TextMatrix(4, 1) = ""
Form17.MSFlexGrid1.TextMatrix(4, 2) = ""
Form17.MSFlexGrid1.TextMatrix(4, 3) = ""
Form17.MSFlexGrid1.TextMatrix(4, 4) = ""
Form17.MSFlexGrid1.TextMatrix(4, 5) = ""
Form17.MSFlexGrid1.TextMatrix(4, 6) = ""

Form17.MSFlexGrid1.TextMatrix(5, 1) = ""
Form17.MSFlexGrid1.TextMatrix(5, 2) = ""
Form17.MSFlexGrid1.TextMatrix(5, 3) = ""
Form17.MSFlexGrid1.TextMatrix(5, 4) = ""
Form17.MSFlexGrid1.TextMatrix(5, 5) = ""
Form17.MSFlexGrid1.TextMatrix(5, 6) = ""
Form17.MSFlexGrid1.TextMatrix(6, 1) = ""
Form17.MSFlexGrid1.TextMatrix(6, 2) = ""
Form17.MSFlexGrid1.TextMatrix(6, 3) = ""
Form17.MSFlexGrid1.TextMatrix(6, 4) = ""
Form17.MSFlexGrid1.TextMatrix(6, 5) = ""
Form17.MSFlexGrid1.TextMatrix(6, 6) = ""


End Sub

Private Sub Option3_Click()
On Error Resume Next


Form17.MSFlexGrid1.TextMatrix(0, 0) = "ROW"
Form17.MSFlexGrid1.TextMatrix(0, 1) = "Center D"
Form17.MSFlexGrid1.TextMatrix(0, 2) = "MAX D"
Form17.MSFlexGrid1.TextMatrix(0, 3) = "Number"
Form17.MSFlexGrid1.TextMatrix(0, 4) = "Angle"
Form17.MSFlexGrid1.TextMatrix(0, 5) = "Distance"
Form17.MSFlexGrid1.TextMatrix(1, 0) = "ROW 1"
Form17.MSFlexGrid1.TextMatrix(2, 0) = "ROW 2"
Form17.MSFlexGrid1.TextMatrix(3, 0) = "ROW 3"
Form17.MSFlexGrid1.TextMatrix(4, 0) = "ROW 4"
Form17.MSFlexGrid1.TextMatrix(5, 0) = "ROW 5"
Form17.MSFlexGrid1.TextMatrix(6, 0) = "ROW 6"

Form17.MSFlexGrid1.TextMatrix(1, 1) = ""
Form17.MSFlexGrid1.TextMatrix(1, 2) = ""
Form17.MSFlexGrid1.TextMatrix(1, 3) = ""
Form17.MSFlexGrid1.TextMatrix(1, 4) = ""
Form17.MSFlexGrid1.TextMatrix(1, 5) = ""
Form17.MSFlexGrid1.TextMatrix(1, 6) = ""

Form17.MSFlexGrid1.TextMatrix(2, 1) = ""
Form17.MSFlexGrid1.TextMatrix(2, 2) = ""
Form17.MSFlexGrid1.TextMatrix(2, 3) = ""
Form17.MSFlexGrid1.TextMatrix(2, 4) = ""
Form17.MSFlexGrid1.TextMatrix(2, 5) = ""
Form17.MSFlexGrid1.TextMatrix(2, 6) = ""

Form17.MSFlexGrid1.TextMatrix(3, 1) = ""
Form17.MSFlexGrid1.TextMatrix(3, 2) = ""
Form17.MSFlexGrid1.TextMatrix(3, 3) = ""
Form17.MSFlexGrid1.TextMatrix(3, 4) = ""
Form17.MSFlexGrid1.TextMatrix(3, 5) = ""
Form17.MSFlexGrid1.TextMatrix(3, 6) = ""

Form17.MSFlexGrid1.TextMatrix(4, 1) = ""
Form17.MSFlexGrid1.TextMatrix(4, 2) = ""
Form17.MSFlexGrid1.TextMatrix(4, 3) = ""
Form17.MSFlexGrid1.TextMatrix(4, 4) = ""
Form17.MSFlexGrid1.TextMatrix(4, 5) = ""
Form17.MSFlexGrid1.TextMatrix(4, 6) = ""

Form17.MSFlexGrid1.TextMatrix(5, 1) = ""
Form17.MSFlexGrid1.TextMatrix(5, 2) = ""
Form17.MSFlexGrid1.TextMatrix(5, 3) = ""
Form17.MSFlexGrid1.TextMatrix(5, 4) = ""
Form17.MSFlexGrid1.TextMatrix(5, 5) = ""
Form17.MSFlexGrid1.TextMatrix(5, 6) = ""
Form17.MSFlexGrid1.TextMatrix(6, 1) = ""
Form17.MSFlexGrid1.TextMatrix(6, 2) = ""
Form17.MSFlexGrid1.TextMatrix(6, 3) = ""
Form17.MSFlexGrid1.TextMatrix(6, 4) = ""
Form17.MSFlexGrid1.TextMatrix(6, 5) = ""
Form17.MSFlexGrid1.TextMatrix(6, 6) = ""


End Sub