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