鸡兔同笼、三个数排序、水仙花数字的VB程序代码.doc

鸡兔同笼
在窗体中插入一个按钮，编写如下程序。
Private Sub Command1_Click()
Dim h%, f%, x%, y%
h = InputBox("请输入总头数h：")
f = InputBox("请输入总脚数f：")
x = 2 * h - f / 2
y = f / 2 - h
Print "鸡的数量："; x
Print "兔的数量是："; y
End Sub

将三个数字进行排序的VB代码：
Private Sub Form_Click()
Dim a#, b#, c#, x#, y#, z#
i: a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a = b Or b = c Or a = c Then
Print "输入数据无法运算，请重新输入"
GoTo i
End If

If a < b Then
x = b
If x < c Then
x = c
y = b
z = a
End If
Else
x = a
If b > c Then
y = b
z = c
Else
y = c
z = b
End If
End If
Print "自大至小排序为："; x, y, z

End Sub
输入一个正的三位数，判断是否是水仙花数的VB代码。
Private Sub Form_Click()
Dim x%, a%, b%, c%
i: x = InputBox("请输入一个三位数")
If x <= 99 Or x >= 1000 Then
Print "请重新输入一个三位数"
GoTo i
Else
a = x Mod 10
b = x \ 10 Mod 10
c = x \ 100 Mod 10
If x = a * a * a + b * b * b + c * c * c Then
Print "x是水仙花数"
Else
Print "x不是水仙花数"
End If
End If
End Sub