けいトロのブログ

背景を回転寿司壁紙に変えました。(けい「トロ」にはぴったりでしょw)

けいトロのブログ

けいトロのブログ

メモ帳でアプリ

注意)この方法は拡張子が付いている人しか出来ません。

メモ帳にこのぶんをはりつけて拡張子を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