vb编程实例

你装VB时有个MSDN,也就是帮助，里面大量实例，还带解释

楼上的 s=sqr(p*(p-a)*(p-b)*(p-c))
因该改成s=sqr（abs(p*(p-a)*(p-b)*(p-c)))
应为当三角形的三边不能够够成三角行的时候并且三边相差很大的时候用P减去某条边的时候就有可能的负数！！

下面的代码是利用三边计算三角形面积
Private Sub Command1_Click()
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))
if a+b>c and b+c>a and a+c>b then
text4.text="三角形的面积是:" & s
else
text4.text="不能构成三角形"
end if
end sub

下面是计算两数之和的代码
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
text3.text=a+b
end sub

下面的代码是做一个两位数的换位的.
比较简单.适合高中生.

Private Sub Command1_Click()
x = Val(Text1)
X1 = x Mod 10
X2 = (x Mod 100) \ 10
Label1 = X1 * 10 + X2

End Sub

我觉得你可以用用Labview,他的功能也很强大啊。最重要的是他是一种图形编程软件，也就是说不用编写代码直接连线就成。而且他的界面可以写得非常漂亮。在很多大学里，已经专门开了这样一门课程。这门软件深受很多工程师和科学家的喜欢。

倒计时程序
在窗体