練習問題/解答例/素数判定/Ｅｘｃｅｌ VBA
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
Sub Exit_For使用例()
'いわゆる試し割りで素数かどうか判定する
'いろいろ調べてもっと効率よく計算できるように改造しまし...
Dim num As Integer
num = Range("A1").Value
'1と2は除外
If num = 2 Then
Range("A1").Value = "2は素数"
ElseIf num = 1 Then
Range("A1").Value = "1は素数ではない"
Else
End If
'2 < num のとき試し割りを実行
For i = 2 To (num - 1)
If num Mod i = 0 Then
'1とnum以外（2から(num - 1)までの数）で割り切...
'素数ではないのでループを抜ける
Range("A1").Value = num & "は素数ではない"
Exit For
Else
Range("A1").Value = num & "は素数"
End If
Next
End Sub
終了行:
Sub Exit_For使用例()
'いわゆる試し割りで素数かどうか判定する
'いろいろ調べてもっと効率よく計算できるように改造しまし...
Dim num As Integer
num = Range("A1").Value
'1と2は除外
If num = 2 Then
Range("A1").Value = "2は素数"
ElseIf num = 1 Then
Range("A1").Value = "1は素数ではない"
Else
End If
'2 < num のとき試し割りを実行
For i = 2 To (num - 1)
If num Mod i = 0 Then
'1とnum以外（2から(num - 1)までの数）で割り切...
'素数ではないのでループを抜ける
Range("A1").Value = num & "は素数ではない"
Exit For
Else
Range("A1").Value = num & "は素数"
End If
Next
End Sub
ページ名:
