急！VB题目。各位大虾帮忙。

来源：百度知道 编辑：UC知道 时间：2024/06/18 12:59:30
考试中...
50元的整币兑换成5元2元1元 三种币均有缺少一种或两种都计算在内的方法有多少种?
还有答案！！！

Private Sub Command1_Click()
For i = 0 To 10 '三重循环计算符合条件的兑换方式
For j = 0 To 25
For k = 0 To 50
If 5 * i + 2 * j + k = 50 Then
s = s + 1 '符合条件，则s加1
List1.AddItem "5元" & i & "张" & " || " & "2元" & j & "张" & " || " & "1元" & k & "张"
If i * j * k <> 0 Then th = th + 1 '判断三种都存在
If (i = 0 And j * k <> 0) Or (j = 0 And i * k <> 0) Or (k = 0 And i * j <> 0) Then tw = tw + 1 '判断缺一种
If (i <> 0 And j + k = 0) Or (j <> 0 And i + k = 0) Or (k <> 0 And i + j = 0) Then one = one + 1 '判断缺两种
End If
Next k
Next j
Next i
MsgBox "共" & s & "种兑换方式" & vbCrLf & "三种都有：" & th & "种" &