求助：VB 问题

如果真的有答案 cEnd IfNext cNext bNext aEnd Sub 答案补充 这是非常复杂的循环体 b c%For a = 1 To 9For b = 1 To 12For c = 1 To 36If a + b + c = Val(36 & 4 * a + 3 * b + c / 2) ThenPrint a b% 不能输出的原因是所有的答案都不符合要求Private Sub Command1_Click()Dim a% c下面添加 End If 答案补充 正确的应该是这样的 b cEnd IfNext cNext bNext a 答案补充 LZ 那你可能写错了那个数字吧 呵呵 ||| 你用了If语句还没有结束缺少了End if 结束语句在Print a b c%For a = 1 To 9For b = 1 To 12For c = 1 To 36If a + b + c = 36 & 4 * a + 3 * b + c / 2 = 36 ThenPrint a b% 应该是这样的：Dim a% 呵呵 而非是逻辑运算 你进行的算术运算 偏要来浪费我们的脑细胞 明明是你的一条语句写错了嘛 你不妨用别的方法做做例:for i=1 to 5if i=5 then print iend ifnext i ||| 一道程序咯 ||| If a + b + c = 36 & 4 * a + 3 * b + c / 2 = 36 ThenIf a + b + c = 36 && 4 * a + 3 * b + c / 2 = 36 Then你看看对不对 答案补充 我没有在家.调试不了 如果&&没错那就是无错了 答案补充 程序是把NEXT当成了THEN里面的语句了 你的程序里没有配套的End If 以后编程要认真点了 应该是If a + b + c = 36 And 4 * a + 3 * b + c / 2 = 36 Then的 根本就是没解的方程 您老在耍我们噢 所以才会提示缺少FOR 你要我对每次循环都要计算吗