编写VB程序.急!!!急!!!急!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/24 05:25:16
编写这样一个程序:
1*2+2*3+3*4+4*5+.....+N*(N+1)<30000
求N的最大值
再编写这样一个程序:
输入三角形的三边长a b c,如果能构成三角形,则算出三角形的面积,否则,输出"不能构成三角形"

回答你第一道问题，已经通过测试。

Dim i As Integer
Dim s As Integer

Private Sub Form_Click()
Print "Perfect!,The maximun of N is:"; i
End Sub

Private Sub Form_Load()
s = 0
i = 1
Do While (s < 30000)
s = s + i * (i + 1)
i = i + 1
Loop
i = i - 1
End Sub

输入-1就退出，已经通过测试，回答你的第二题。
Option Explicit
Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer, l As Double, s As Double

123
a = InputBox("DeltaA", "Input")
If a = -1 Then End
b = InputBox("DeltaB", "Input")
If b = -1 Then End
c = InputBox("DeltaC", "Input")
If c = -1 Then End

If a + b > c And a + c > b And b + c > a Then
l = (a + b + c) / 2
s = Sqr(l * (l - a) * (l - b) * (l - c))
Print "Perfect!,The cover of this triangle is:"; s
Else
MsgBox &