vbsについて。
xqbhf606さん
2010/2/2418:23:29
vbsについて。
最近、ニコニコ動画でvbsを使ったプログラミング？の説明をする動画をみて、vbsを使ってみてプログラミングしたんですが、どうしても分からないところがあります。
内容は、
function menseki( data )
data = (data * data) * 3.14
menseki = data
end function
kotae = menseki ( hankei )
moji = inputbox("半径を入力してください","円の面積")
if (moji = "") then
msgbox("入力してくださいお")
else
msgbox( kotae )
end if
↑で実行して文字を入力するウィンドウまでは出てくるんですが、入力してOKを押すと、次に出てくるウィンドウ（答えが表示される）が「0」になります。
それがどうしても分かりません・・・
文の入力する順が間違っているのでしょうか・・・どうしても自分の力では解決できません。
詳しい方、ご回答をお待ちしています。
- 閲覧数：
- 325
- 回答数：
- 3
- お礼：
- 25枚
ベストアンサーに選ばれた回答
編集あり2010/2/2419:25:35
はい、入力する順も違いますし、変数名も異なります。
function menseki( data )
data = (data * data) * 3.14
menseki = data
end function
** ここは、問題ないです。
kotae = menseki ( hankei ) ①
moji = inputbox("半径を入力してください","円の面積") ②
if (moji = "") then
msgbox("入力してくださいお")
else
msgbox( kotae )
end if
******
②で半径を入力するように問いかけているのに、上の①で
半径(hankei)を使って円の面積を出しています。
(hankeiに値が手動で設定していないので、初期値0が代入され
結果、kotae=0です)
この場合、②で半径を入力後
半径が入力されているかIF文でチェックを行い
入力されていれば、円の面積に半径を渡して解をメッセージボックスに
表示するのでしょう。
*** 一例です。
hankei = inputbox("半径を入力してください","円の面積")
if (hankei = "") then
msgbox("入力してくださいお")
else
kotae = menseki ( hankei )
msgbox( kotae )
end if
質問した人からのコメント
2010/3/2 22:01:36
詳しく教えていただき、ありがとうございました。
お二人の回答者さんもありがとうございました。＾＾
ちょい足しを取り消しますが
よろしいですか?
- 取り消す
- キャンセル
ベストアンサー以外の回答
1〜2件/2件中
- 並び替え：回答日時の
- 新しい順
- |古い順
2010/2/2419:25:12
function menseki( data )
data = (data * data) * 3.14
menseki = data
end function
moji = inputbox("半径を入力してください","円の面積")
if (moji = "") then
msgbox("入力してくださいお")
else
kotae = menseki ( moji )
msgbox( kotae )
end if
これなら出来ましたよ。（一応）
変数：hankeiには値はないですし、
ＩｎｐｕｔＢｏｘ関数を実行したあとで
mensekiの計算を行なわないとダメなのでは？
ちょい足しを取り消しますが
よろしいですか?
- 取り消す
- キャンセル
2010/2/2419:22:40
ちょい足しを取り消しますが
よろしいですか?
- 取り消す
- キャンセル
「inputbox、hankei」に関する質問
- 連携サービス
- ブログ
- textream（掲示板）
- ペット
- Chocotle（動画アプリ）