Module Module1

    Sub Main()
        ' 繧ィ繝ゥ繝医せ繝�ロ繧ケ縺ョ縺オ繧九>
        ' 豁」縺励>邨先棡縺悟�蜉帙&繧後k繧医≧縺ォ???繧剃ソョ豁」縺吶k

        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