【隐身守候】
2020-06-01 23:21
采纳率: 100%
浏览 276

c语言初学者,请各位大佬帮帮忙,谢谢!急用!

程序填空
马克思曾经做过这样一道趣味数学题:有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

1条回答 默认 最新

相关推荐 更多相似问题