例 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 阶，正好到达阶梯顶。问阶梯至少有多少阶。
|
第五章
