vbsの作法 その4

概要

vbsの作法、調べてみた。
書式指定してみた。

写真

サンプルコード

Set stb = CreateObject("System.Text.StringBuilder")
stb.Append_3 "    "
for i = 1 to 9
    stb.AppendFormat "   {0:d}", i
next 
stb.Append_3 vbcrlf
for i = 1 to 9
    stb.AppendFormat "  {0:d}", i
    for j = 1 to 9
        if i * j < 10 then
            stb.AppendFormat "   {0:d}", i * j
        else
            stb.AppendFormat " {0:d}", i * j
        end if
    next
    stb.Append_3 vbcrlf
next
msgbox stb.ToString

以上。