vb实用小程序源代码

Private Sub mianji()
Dim a As Single, b As Single, c As Single
a = Val(InputBox("请输入三角形的边a:", "输入"))
b = Val(InputBox("请输入三角形的边b:", "输入"))
c = Val(InputBox("请输入三角形的边c:", "输入"))

If (a + b) <= c Or b + c <=a Or a + c <= b Then
MsgBox "三条边不能构成三角形,请重新输入!", , "注意"
Exit Sub
End If
q = (a + b + c) / 2
s = Sqr(q * (q - a) * (q - b) * (q - c))
Print "三角形的面积是: "; s
End Sub

这个是由键盘输入3个数，试编程判断它们是否可以构成一个三角形。如果能构成一个三角形，请计算该三角形的面积。

Private
Sub
mianji()
Dim
a
As
Single,
b
As
Single,
c
As
Single
a
=
Val(InputBox("请输入三角形的边a:",
"输入"))
b
=
Val(InputBox("请输入三角形的边b:",
"输入"))
c
=
Val(InputBox("请输入三角形的边c:",
"输入"))
If
(a
+
b)
<=
c
Or
b
+
c
<=a
Or
a
+
c
<=
b
Then
MsgBox
"三条边不能构成三角形,请重新输入!",
,
"注意"
Exit
Sub
End
If
q
=
(a
+
b
+
c)
/
2
s
=
Sqr(q
*
(q
-
a)
*
(q
-
b)
*
(q
-
c))
Print
"三角形的面积是:
";
s
End
Sub
这个是由键盘输入3个数，试编程判断它们是否可以构成一个三角形。如果能构成一个三角形，请计算该三角形的面积。

你要简单说下你的目的或者要实现什么，要不编程这东西不好说的，如果只是想积累些实用代码，可以直接在百度知道里面搜索，会有很多的

什么小程序？？？讲清楚..