UC知道VB我错在哪？
来源：百度知道 编辑：UC知道 时间：2024/06/20 17:31:36
现有1角,5角和元硬币各10枚,从中取出15枚,面值共7元,问1角,5角和1元硬币各取多少块?
我的编辑过程是
Private Sub Command1_Click()
Dim a, b, c As Double
For a = 0 To 7
For b = 0 To 14
For c = 0 To 15
If 1 * a + 5 * b + 10 * c = 70 And a + b + c = 15 Then
Print "1角、5角、1元分别所需："; " a; b; c"
Next a
Next b
Next c
End Sub
但是回答说有NEXT 没有 FOR
我前面明明有FOR了啊
请问我错在哪？请改正 谢谢 好的有+分
晕了 补上去之后 运行变成了：1角、5角、1元分别所需：a; b; c
请问能用枚举法写一次吗？我会大大加分的 谢谢
我的编辑过程是
Private Sub Command1_Click()
Dim a, b, c As Double
For a = 0 To 7
For b = 0 To 14
For c = 0 To 15
If 1 * a + 5 * b + 10 * c = 70 And a + b + c = 15 Then
Print "1角、5角、1元分别所需："; " a; b; c"
Next a
Next b
Next c
End Sub
但是回答说有NEXT 没有 FOR
我前面明明有FOR了啊
请问我错在哪？请改正 谢谢 好的有+分
晕了 补上去之后 运行变成了：1角、5角、1元分别所需：a; b; c
请问能用枚举法写一次吗？我会大大加分的 谢谢
在next a 的前面加上endif
无end if
Private Sub Command1_Click()
Dim a, b, c As Double
For a = 0 To 7
For b = 0 To 14
For c = 0 To 15
If 1 * a + 5 * b + 10 * c = 70 And a + b + c = 15 Then
Print "1角、5角、1元分别所需：" & a & "," & b & "," & c
End If
Next c
Next b
Next a
End Sub