人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Option Explicit

Dim a, b, c, d

a = InputBox("パスワードを入力して下さい。","認証")
If a = sm05161234 Then

b = InputBox("a + bのaの値を入力して下さい")
c = InputBox("a + bのbの値を入力して下さい")

d = b + c

MsgBox b & "+" & c & "は" & d & "です。","計算結果"

Else
MsgBox"正しくありません"
End If

このVBScriptで作ったプログラムはきちんと作動しますか?
間違っていますか?
やってみたところ、パスワード認証画面は出たけれど、何をしてもエラーメッセージが出ます。「この変数は宣言されていません。sm05161234」
どうすればよいですか?

●質問者: niseSM
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● ぽけっとしすてむ
If a = "sm05161234" Then

数値ではなく文字列を比較する場合、一般的な言語では上記のように文字列を囲ってあげます。

※試していませんが、多分これで大丈夫。


Hirotoさんのコメント
あ、5分差で回答が被ってしまいました。すみません。

niseSMさんのコメント
有難うございました!

ぽけっとしすてむさんのコメント
>5分差で回答が被ってしまいました よくあることです

2 ● Hiroto
ベストアンサー

4行目が誤っていると思います。

Option Explicit 

Dim a, b, c, d

a = InputBox("パスワードを入力して下さい。","認証")
If a = sm05161234 Then ' 「sm05161234」が引用符「"?"」で囲まれていない(文字列としてではなく変数として認識されている)

b = InputBox("a + bのaの値を入力して下さい")
c = InputBox("a + bのbの値を入力して下さい")

d = b + c

MsgBox b & "+" & c & "は" & d & "です。","計算結果"

Else
MsgBox"正しくありません"
End If

niseSMさんのコメント
有難うございました!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ