程序填空
马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男人、女人和小孩，每个男人花了3先令，每个女人花了2先令，每个小孩花了1先令，共花去34先令。求小孩的人数。
Private Sub Command1_Click()
n = 0
For m = 1 To 28
For w = 1 To 28
s = m * 3 + w * 2 + c
If s = 34 Then Print c
Next w
Next m
End Sub
“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=1^3+5^3+3^3。求100至999的范围内所有奇数中的水仙花数之和。
Private Sub Form_Click()
Dim i%, a%, b%, c%, sum%
FontSize = 14: FontBold = True
sum = 0
I = 100
Do
a = I \ 100
b = I \ 10 Mod 10
c = I Mod 10
Then
sum = sum + I
End If
I = I + 1
Loop While I <= 999
Print sum
End Sub
