Dim i, j, k, c
For i = 0 To 10
For j = 0 To 10 - i
For k = 0 To 10 - 2 * j - i
If i + 2 * j + 5 * k = 10 Then
Debug.Print i & "张1角 + " & j & "张2角 + " & k & "张5角=1元"
End If
Next k
Next j
Next i
'本例循环161次,楼上循环198次且语法错误
print "1角钱个数"，"2角钱个数","5角钱个数"
for i=0 to 10
for j=0 to 5
for m=0 to 2
if i+2*j+5*m=10 then print i,j,n
next m
next j
next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024