VBScriptで7ならべを作ってみました。”InputBox”の文字入力→【Enter】キー（OKボタン）でカードを置く、パスするようにしています。”InputBox”への文字の表示に制限があるため、スペードは”S”、ハートは”H”、ダイヤは”D”、クローバーは”C”にしています。また、レイアウト上、10を”0”で表現しています。
http://www.nicovideo.jp/watch/sm25069355
