vb.net - 错误：无效的外部程序

Question

我需要编写一个程序，该程序将打印从 1 到 100 的数字，对于可以用 3 打印“d3”的数字，可以用 5 打印“d5”的数字，如果两者都可以打印“d53”，但在 VB I第二行出现错误“for I=1 to 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