错误:外部过程无效

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

您的代码似乎在您的类或模块中定义的每个函数或 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