VB程序編程1,求1到100中5的倍數2,已知三角形的三邊求三角形的面積

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 100

If i Mod 5 = 0 Then Print i

Next i

End Sub

2

Private Sub Command1_Click()

Dim s, p, a, b, c As Single

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

p = (a + b + c) / 2

s = Sqr((p * (p - a) * (p - b) * (p - c)))

Print s

End Sub