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

以上。