Module Module1

    Sub Main()
        ' エラトステネスのふるい
        ' 正しい結果が出力されるように???を修正する

        Dim f(100) As Integer
        Dim i As Integer
        Dim j As Integer
        Dim cnt As Integer

        ???
        For i = 2 To 100
            ???
        Next

        For j = 2 To ???
            For i = 2 To ???
                If ??? Then
                    ???
                End If
            Next
        Next

        cnt = 0
        For i = 1 To 100
            If ??? Then
                Console.Write(i.ToString() + " ")
                cnt = cnt + 1
            End If
        Next

        Console.WriteLine("")
        Console.WriteLine("100までの素数は" + cnt.ToString() + "個")
        Console.WriteLine("")
        Console.WriteLine("何かキーを押してください")
        Console.ReadKey()


    End Sub

End Module