プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : 指定なし)
MsgBoxの連続表示を止める方法
投稿日時: 17/01/27 08:38:58
投稿者: hisayanxp

Vbsを勉強し始めて約2カ月経過しました。
質問をさせてください。
Dim x,y,ans
x=10
y=3
ans=x/y
MsgBox ans
MsgBox ans*y
の記述を実行するとMsgBoxが2つ表示されますが、どのように記述をいじれば1つ目のMsgBox ans を表示させなくて済むでしょうか?
これは純粋に興味があって質問させていただきました。
よろしくお願いします。

回答
投稿日時: 17/01/27 09:20:41
投稿者: sk

引用:
Dim x,y,ans
x=10
y=3
ans=x/y
MsgBox ans
MsgBox ans*y

引用:
どのように記述をいじれば1つ目のMsgBox ans を
表示させなくて済むでしょうか?

・そもそもそのステートメントを記述しなければよい。
 
・ステートメント全体を削除することなく、
 一時的にコードを実行しないようにしたいならば
 そのステートメントの行頭に '(シングルクォーテーション)を挿入し、
 「コメント」として解釈されるようにする(コメントアウト)。
 
----------------------------------------
Dim x,y,ans
x=10
y=3
ans=x/y
'MsgBox ans
MsgBox ans*y
----------------------------------------
 
・一定の条件を応じて、そのステートメントを
 実行するかしないか、フローを分岐させたい場合は
 If ステートメントや Select Case ステートメントを
 使用する。
 
----------------------------------------
Dim x,y,ans
x=10
y=3
ans=x/y
'変数 x の値が 10 未満である場合
If x < 10 Then
    MsgBox ans
'上記の条件を満たさなかった場合
Else
    MsgBox ans*y
End If
----------------------------------------

投稿日時: 17/01/27 10:51:41
投稿者: hisayanxp

sk さん ありがとうございました。よくわかりました。