vbsの作法 その10

概要

vbsの作法、調べてみた。
日能研やってみた。

サンプルコード

Dim i
For i = 0 To 654321 step 6
    s = CStr(i)
    if instr(s, "1") > 0 And instr(s, "2") > 0 And instr(s, "3") > 0 And instr(s, "4") > 0 And instr(s, "5") > 0 And instr(s, "6") > 0 then
        i5 = Fix(i / 10)
        if i5 mod 5 = 0 then
            i4 = Fix(i / 100)
            if i4 mod 4 = 0 then
                i3 = Fix(i / 1000)
                if i3 mod 3 = 0 then
                    i2 = Fix(i / 10000)
                    if i2 mod 2 = 0 then
                        msgbox i
                    End if
                End if
            End if
        End if
    End if
Next

以上。