下記は、条件判定の行い方により速度が変わるというサンプルです。 [前提条件] 1.3の倍数、3が付く数字であるかを判定。 2.4の倍数の時は、評価しない。 ※ 3が付く数字の評価では、2秒の待機を行っています。 [比較条件] サンプルA 3つの判定を同時に行っています。 サンプルB 4の倍数であるかの判定を行った後、 3の倍数、3が付く数字であるかを判定。 ****************************** Option Explicit 'Win32 API Sleep関数を有効にする。 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'メイン関数(実行する関数) Public Sub Main() Const MAX_NUM = 12 '最大ループ回数 Dim i As Long 'ループ