Re4：50歳から始めるラズベリーパイ-7

Re4：50歳から始めるラズベリーパイ

LibreOfficeでVBAプログラミング入門

amazon kindle版を出版しました。

---

(4)素数を求めるプログラムです。
①～③に最もあてはまる，記号，数値を選択してください。

Option VBAsupport 1 'VBAと互換性

Sub Main
Dim i as Integer
Dim j as Integer
Dim n as Integer
n=1

 FOR i =2 TO 100
   FOR j =2 TO i-1
     IF i ① j ②0 THEN
       ③ LP1
     ENDIF
   NEXT j
     Cells(n,1)=i
     n=n+1
LP1:
 NEXT i
End Sub

(1) AND (2) NOT (3) OR (4) > (5) >=
(6) < (7) <= (8) = (9) ELSE (10) MOD
(11)EXIT (12)WHILE (13)GOTO (14) UNTIL (15)CASE

---

答え
①：(10) MOD ②：(8) = ③：(13)GOTO

Option VBAsupport 1 'VBAと互換性

Sub Main

 Dim i as Integer
 Dim j as Integer
 Dim n as Integer
  n=1

 FOR i =2 TO 100
   FOR j =2 TO i-1
     IF i MOD j =0 THEN
       GOTO LP1
     ENDIF
   NEXT j
     Cells(n,1)=i
     n=n+1
LP1:
 NEXT i

End Sub

結果はこのようになります。