Question

我需要编写一个程序，打印数字从1到100，数字可以打印3打印“d3”，数字可以打印5打印“d5”，如果两者都可以打印，那么打印“d53”，但是在VB中我得到第二行的错误“对于I = 1到100”：外部程序无效“！

Dim I As Integer 

For I = 1 To 100 
  If I Mod 3 And I Mod 5 Then Print "d53" 

  Else: If I Mod 3 Then Print "d3" 

  Else: If I Mod 5 Then Print "d5"

 Next I 
end sub

Answer 1

您的代码似乎超出了您的类或模块中定义的每个Function或Sub 你的代码应该用Sub或Function括起来（看看你的孤独End Sub我想你需要一个Sub

Sub Main
    Dim I As Integer 

    For I = 1 To 100 
        Console.Write(I)
        If (I Mod 3) = 0 And (I Mod 5) = 0 Then 
            Console.WriteLine"=d53"

        Else If (I Mod 3) = 0 Then 
            Console.Write("=d3")

        Else If (I Mod 5) = 0 Then 
            Console.Write("=d5")
        End if
        Console.WriteLine()
    Next I 

End Sub

Answer 2

If (i Mod 3) = 0 And (i Mod 5) = 0 Then 
    Print ...
ElseIf (i Mod 3) = 0 Then 
    Print ...
ElseIf (i Mod 5) = 0 Then 
    Print ...
End If

错误：外部程序无效

2 个答案: