VB编程求解：有一根长度为321米的钢材料，要将它截取成两种规格的短料，规格a.b的长度的分别为1

VB编程求解：有一根长度为321米的钢材料，要将它截取成两种规格的短料，规格a.b的长度的分别为1

Dim n As Integer
        n = InputBox("请输入钢材料的总长度")
        Dim x, y As Integer
        x = n  17
        y = n  27
        Dim i, j, temp As Integer
        temp = 16
        For i = 1 To x
            For j = 1 To y
                If (n - 17 * i - 27 * j) < temp And (n - 17 * i - 27 * j) > 0 Then
                    temp = n - 17 * i - 27 * j
                End If
            Next
        Next

        For i = 1 To x
            For j = 1 To y
                If (n - 17 * i - 27 * j) = temp Then
                    MsgBox("当截取长度为17米的钢材料数量为" & i & "根，截取长度27米的钢材料为" & j & "根时剩余残料最少，为" & temp & "米")
                End If
            Next
        Next运行结果：

追问
为什么我运行不起来呢

病情分析：
护士资格考试辅导分为五科：基础护理学30课时=（28课时2套模拟试题）外科护理学30课时=（28课时2套模拟试题）内科护理学30课时=（28课时2套模拟试题）妇产科护理学20课时=（19课时1套模拟试题）儿科护理学20课时=（19课时1套模拟试题）2．护师资格考试辅导分为五科：基础护理学30课时=（28课时2套模拟试题）外科护理学30课时=（28课时2套模拟试题）内科护理学30课时=（28课时2套模拟试题）妇产科护理学20课时=（19课时1套模拟试题）儿科护理学20课时=（19课时1套模拟试题
指导意见：
护士资格考试辅导分为五科：基础护理学30课时=（28课时2套模拟试题）外科护理学30课时=（28课时2套模拟试题）内科护理学30课时=（28课时2套模拟试题）妇产科护理学20课时=（19课时1套模拟试题）儿科护理学20课时=（19课时1套模拟试题）2．护师资格考试辅导分为五科：基础护理学30课时=（28课时2套模拟试题）外科护理学30课时=（28课时2套模拟试题）内科护理学30课时=（28课时2套模拟试题）妇产科护理学20课时=（19课时1套模拟试题）儿科护理学20课时=（19课时1套模拟试题
病情分析：
根据你的描述：考护士证需要看两门功课。
指导意见：
建议：买本护士资格证的复习资料就行。一定要多看，一定能考过去

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息