落ち着け… 素数を数えるんだ… Set 確認対象 1 Do While (KeyState(2) <> 1) For i = 2 To (確認対象 - 1) If 確認対象 Mod i = 0 Then Set 素数ではない Break EndIf Next If Not 素数ではない Then Talk システム $(確認対象) Suspend EndIf Incr 確認対象 …