メモ帳でアプリ
注意)この方法は拡張子が付いている人しか出来ません。
メモ帳にこのぶんをはりつけて拡張子をvbsに変えれば使えます
Dim weight
MsgBox"そこにお酒があります。"
MsgBox"のどが渇いているので飲みたいです。"
weight = InputBox("年齢を入力してください")
If weight > 19 Then
MsgBox"20才を超えているので飲めます"
Else
If weight < 20 Then
MsgBox("20才以下なので法律により飲んではいけません。")
Msgbox"水で我慢しましょう"
Else
End if
End if