1、编写一个程序根据输入的三角形的三条边判断是否能组成三角形，如果可以则输出它的面积和三角形类型。

1、
Private Sub Command1_Click()
Dim a, b, c As Integer

a = Val(InputBox("边1"))
b = Val(InputBox("边2"))
c = Val(InputBox("边3"))

If a + b > c And a + c > b And b + c > a Then
Print "周长:" & a + b + c

Else
Print "不能构成三角形"
End If
End Sub
2、Private Sub Command1_Click()
dim s as integer
s=0
for i=1 to 70
if i mod 7=0 then
s=s+i
endif
next i
print s
end sub

写了12两道，希望能帮上你