初学VB，不知道我这个程序哪里错了

Question

Module Module1    Sub Main()
        Dim i, j, n As Integer
        i = 0
        Do While i <= 9
            j = 0
            Do While j <= 9
                n = 10407 + 1000 * i + 10 * j
                If n Mod 57 = 0 Or n Mod 67 = 0 Then
                    Print(n)
                End If
                j = j + 1
            Loop            i = i + 1
        Loop
    End SubEnd Module

Answer 1

Private Sub Form_Click()
        Dim i, j, n As Integer
        i = 0
        Do While i <= 9
            j = 0
            Do While j <= 9
                n = 10407 + 1000 * i + 10 * j
                If n Mod 57 = 0 Or n Mod 67 = 0 Then
                    Print (n)
                End If
                j = j + 1
            Loop            i = i + 1
        Loop
End Sub
代码没问题。位置可能有问题，执行的时候窗体可能未加载，所以无法输出。可用debug.print或者做在窗体的单击事件里面。
        Dim i, j, n As Integer
        i = 0
        Do While i <= 9
            j = 0
            Do While j <= 9
                n = 10407 + 1000 * i + 10 * j
                If n Mod 57 = 0 Or n Mod 67 = 0 Then
                    Debug.Print (n)
                End If
                j = j + 1
            Loop            i = i + 1
        Loop

Answer 2

应该建什么工程啊？建立WINFORM工程

Answer 3

具体点啊，因为我之前是学C++的，习惯控制台应用程序了，但是到VB了就不知道怎么做了

Answer 4

Module Module1    Sub Main()
        Dim i, j, n As Integer
        i = 0
        Do While i <= 9
            j = 0
            Do While j <= 9
                n = 10407 + 1000 * i + 10 * j
                If n Mod 57 = 0 Or n Mod 67 = 0 Then
                    System.Console.WriteLine(n)
                End If
                j = j + 1
            Loop            i = i + 1
        Loop
    End SubEnd Module