Help us understand the problem. What is going on with this article?

VBSでFor文を使って細胞分裂の計算プログラムを作りました

More than 3 years have passed since last update.

以下、スクリプトです。
メモ帳などにコピーし、拡張子を.vbsで保存すると実行いただけます。


'==========================================
'変数定義
'==========================================
Dim intNumber,nissuu,kaisuu,I,Title

'==========================================
'変数初期値
'==========================================
intNumber=1
Title="細胞分裂計算プログラム"

MsgBox "細胞の数を調べます。",,Title
MsgBox "ひとつの細胞から始まり、1日目は1回分裂、2日目はさらに2回分裂という風に増えてゆきます。",,Title
nissuu=InputBox("何日目の細胞の数が知りたいですか?",Title)
kaisuu=0

'==========================================
'計算
'==========================================
For I=1 To nissuu Step 1
    kaisuu=kaisuu+I
Next

For I=1 To kaisuu Step 1
    intNumber=intNumber*2
Next
MsgBox nissuu & "日目の細胞の数は、" & intNumber & "個です。",,Title

yaseinoa
rosso-tokyo
渋谷にある少数精鋭のベンチャーSierです。最新技術・手法は常にキャッチアップし社内勉強会で情報共有しています。最近では外部技術セミナーも開催し情報発信の幅を広げています。
http://www.rosso-tokyo.co.jp
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away