![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
VBscript のバックアップ(No.2)Dim x x = "ハローＷＳＨべたべただね！" MsgBox x
Option Explicit Dim x x = "今日勉強するのは？" x = x & "何がいい？" MsgBox x
結果
今日勉強するのは？何がいい？
Option Explicit Dim x x = "今日勉強するのは？" & vbCrLf x = x & "何がいい？" MsgBox x
結果
今日勉強するのは？ 何がいい？
変数を使わなくて、直接 MsgBox に記述してもよい。
MsgBox "今日勉強するのは？" & vbCrLf & "何がいい？"
Option Explicit Dim x x = "今日勉強するのは？" & vbCrLf x &= "何がいい？" MsgBox x
結果
エラーになります。。。
Option Explicit
Dim x
x = InputBox("メッセージを入れてね♪")
MsgBox "あなたが入れたメッセージは、「" & x & "」 ですね。"
InputBox("メッセージ",[, タイトル][, デフォルト][, 表示位置x][, 表示位置y][, ヘルプファイル, context])
文を短くするために、：を使うと、改行したのと同じ意味になります。
Dim x : Dim y これと、 Dim x Dim y これは、同じ 意味としては、これも同じ Dim x, y
| ＋ | 足算 | x = 12 + 7 |
| − | 引算 | x = 12 - 7 |
| ＊ | 掛算 | x = 12 * 7 |
| ／ | 割算 | x = 12 / 7 |
| ￥ | 割算の商（整数部分） | x = 12 \ 7 |
| mod | 割算の余り | x = 12 mod 7 |
| ＾ | べき乗 | x = 12 ^ 7 |
| − | −符号 | x = -12 |
| （） | カッコ | x = (12 - 7) * 4 |
Option Explicit Dim x, y x = 5 : y = 3 If x > y Then MsgBox x & "は" & y & " より大きい。"
| ＜ | より小さい |
| ＜＝ | 以下 |
| ＞ | より大きい |
| ＞＝ | 以上 |
| ＝ | 等しい |
| ＜＞ | 等しくない |
MsgBox("内容"[,追加するボタン][,"タイトル"][,ヘルプファイル,context])
追加できるボタン
| vbQuestion | 「？」アイコンを出す |
| vbInformation | 「ｉ」アイコンを出す |
| vbCritical | 「×」アイコンを出す |
| vbExclamation | 「！」注意アイコンを出す |
| vbYesNoCancel | 「はい」「いいえ」「キャンセル」のボタンを追加 |
MsgBox("あなたは未成年ですか？",vbQuestion + vbYesNoCancel,"年齢チェック！")~
| vbYes | MsgBox()のYes、Noボタンの Yes に使う |
| vbNo | MsgBox()のYes、Noボタンの No に使う |
| vbCancel | MsgBox()のキャンセルボタンに使う |
Dim MsgFlag
MsgFlag = MsgBox("あなたは未成年ですか？",vbQuestion + vbYesNoCancel,"年齢チェック！")
if MsgFlag = vbYes Then
MsgBox "お酒が飲めます", vbInformation
ElseIf MsgFlag = vbNo Then
MsgBox "お酒は飲めません", vbCritical
Else
MsgBox "キャンセルされました", vbExclamation
End If
