注意）この方法は拡張子が付いている人しか出来ません。 メモ帳にこのぶんをはりつけて拡張子をvbsに変えれば使えます Dim weightMsgBox"そこにお酒があります。"MsgBox"のどが渇いているので飲みたいです。"weight = InputBox("年齢を入力してください")If …