VB操作问题

VB操作问题

Private Sub Command1_Click()
Me.Cls
Dim j As Long, s As Single, n(3) As Single, p As Single
For j = 1 To 3
Randomize
n(j) = Val(InputBox("三角形第【" & j & "】边长", "输入", CInt(10 + Rnd * 50)))
If n(j) = 0 Or n(j) = -1 Then Exit Sub
Print "三角形第【" & j & "】边长"; n(j)
Next
If n(1) + n(2) > n(3) Or n(1) + n(3) > n(2) Or n(2) + n(3) > n(1) Then
Else
Print "不能组成三角形，请重新输入3边长。"
Exit Sub
End If
'   （海伦公式）
'（p=(a+b+c)/2）
'　S=√[p(p-a)(p-b)(p-c)]
p = (n(1) + n(2) + n(3)) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "三角形面积"; s
End Sub