【ExcelVBA公開模試】約数の個数

文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

わえなび速読VBA単語【邪道ExcelVBA基本講座】｜わえなび VBA｜note

問題

ExcelVBAを用いて、1から1000までの整数の中で最も約数が多い数はいくつか求めなさい。（ただし複数ある場合は最小のものとする。）

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ3分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-9まで

わえなび式ExcelVBA公開模試（無料） - Program3_7｜わえなび VBA｜note

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

８４０です。

Sub moshi()
   cntmax = 0
   num = 0
   For i = 1 To 1000
       cnt = 0
       For j = 1 To i
           If i Mod j = 0 Then cnt = cnt + 1
       Next
       If cntmax < cnt Then
           cntmax = cnt
           num = i
       End If
   Next
   Debug.Print num
End Sub

バックナンバー

わえなび式ExcelVBA公開模試（無料）｜わえなび VBA｜note