サクラエディタふぁん ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
664:名無しさん＠お腹いっぱい。 07/04/29 15:57:50 Bcai5wiB0 >>662 下記を、拡張子 .vbs で保存 main sub main() dim iStart, iEnd, iStep, sWork iStart = CLng(InputBox("開始の数を入力して下さい。","連番出力","1")) iEnd = CLng(InputBox("終了の数を入力して下さい。","連番出力","1")) iStep = CLng(InputBox("ステップ数を入力して下さい。","連番出力","1")) if iStep=0 then exit sub if Abs((iEnd-iStart)/iStep)>10000 then exit sub sWork = "" for i = iStart to iEnd step iStep sWork = sWork & CStr(i) & VbCrLf next InsText(sWork) end sub 665:662 07/04/29 16:19:59 dbQCvgbB0 　　　┌───────┐ 　　（｜●　　　　　　　● ｜ 　 ／｜ ┌▽▽▽▽┐　｜ 　／￣￣￣￣￣￣￣￣￣￣ 　（　┤ ｜　　　　　　｜　｜＜>>664ど〜もです。動作確認しました。神に感謝!! 　　＼　 └△△△△┘　　＼ ＼＿＿＿＿＿＿＿＿＿＿ 　　　｜　　　　　　　　　　｜＼＼ 　　　｜　　　　　　　　　　｜ （＿） 　　　｜　　　　　　　　　　｜ 　　　｜　　　 ／＼ 　　　｜ 　　　└──┘　└──┘

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5210日前に更新/197 KB
担当:undef