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个数，试编程判断它们是否可以构成一个三角形。如果能构成一个三角形，请计算该三角形的面积。

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

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