5.3 程序举例

例 14 ：计算所有的水仙花数。
程序代码：

Private Sub Command1_Click()

Dim p As Integer

List1.Clear

For n = 100 To 999

a = Int(n / 100)

b = Int((n - a * 100) / 10)

c = n - (a * 100 + b * 10)

p = a ^ 3 + b ^ 3 + c ^ 3

If p = n Then List1.AddItem p

Next

End Sub

执行结果：

例 15 ：趣味数学题： 30 人在饭馆用餐，其中有男人，女人和小孩。每个男人花了 3 先令，每个女人花了 2 先令，每个小孩花了 1 先令，共花去 50 先令。问男人、女人以及小孩各有几人？

程序代码：

Private Sub Command1_Click()

List1.Clear

For X = 1 To 16

For Y = 1 To 24

z = 30 - X - Y

If 3 * X + 2 * Y + z = 50 Then

p = Format(X, "@@@") & Format(Y, "@@@@@") & Format(z, "@@@@@")

List1.AddItem p

End If

Next

Next

End Sub

执行结果：

习题：

1 ．编程计算 1-2+3-4+5-6 …± n 的值，其中 n 由文本框输入。

2 ．编程计算 2 0 -2 1 +2 2 -2 3 + … +2 10 的值。

3 ．已知下式成立： e=1+ + + + … + + …，计算 e 的值（精确到 10 -6 ）。

4 ．百钱买百鸡。公元前 5 世纪，我国数学家张丘建在《算经》中提出“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？
5 ．有一阶梯，如果每步跨 2 阶，最后余 1 阶；每步跨 3 阶，最后余 2 阶；每步跨 5 阶，最后余 4 阶；每步跨 6 阶，最后余 5 阶；每步跨 7 阶，正好到达阶梯顶。问阶梯至少有多少阶。