VB经典程序100例：计算两个数字的和：
VB经典程序100例：
1、计算两个数字的和：
Dim x, y, z
x = InputBox("请输入第一个数字")
y = InputBox("请输入第二个数字")
z = x + y
MsgBox "两个数字的和为：" & z
2、计算三角形的面积：
Dim a, b, c, s, area
a = InputBox("请输入三角形的第一条边长")
b = InputBox("请输入三角形的第二条边长")
c = InputBox("请输入三角形的第三条边长")
s = (a + b + c) / 2
area = Sqr(s * (s - a) * (s - b) * (s - c))
MsgBox "三角形的面积为：" & area
3、求两个数字的最大公约数：
Dim a, b, temp
a = InputBox("请输入第一个数字")
b = InputBox("请输入第二个数字")
Do While b <> 0
temp = b
b = a Mod b
a = temp
Loop
MsgBox "这两个数字的最大公约数为：" & a
本站系公益性非盈利分享网址，本文来自用户投稿，不代表码文网立场，如若转载，请注明出处
评论列表（41条）