第1个回答 2011-01-07
三个正整数之和:
Private Sub Form_Load()
For i = 0 To 19
For j = 0 To 19
For k = 0 To 19
If i + j + k = 19 Then m = m + 1
Next k
Next j
Next i
Text1.Text = m
End Sub
答案:210
如果是三个有理数之和,则无穷大。
第2个回答 2011-01-08
前三个数字的和是260,又5个数字总和是480,则后两个数字的和是480-260=220,又后3个数字的平均数是90,则后三个数字的和是270,则第三个数字是270-220=50.
第3个回答 2011-01-07
0 0 19
0 1 18
等等
共40种。
Private Sub Command1_Click()
Dim i, j, k, Sum
Sum = 0
For i = 0 To 10
For j = i To 10
k = 19 - i - j
If k >= j Then List1.AddItem i & " " & j & " " & k: Sum = Sum + 1
Next j
Next i
List1.AddItem Sum
End Sub本回答被提问者采纳
第4个回答 2011-01-07
无数啊
0+19
0.1+18.9
0.01+18.99
......