お前ら、Windowsパソコン使ってるならちょっと来い。

メモ帳に
msgbox 8*4 って打って
名前を　aaaa.vbs てしてみろｗ

sub とか function とか無くても動くのか

まあ、簡単なプログラムだからな。

ちなみに、
Dim x, y, op
x = InputBox(“Xの値を入力してください”)
op = InputBox(“+.足し算 -.引き算 *.掛け算 /.割り算 どれにしますか？記号を入力してください”)
y = InputBox(“Yの値を入力してください”)
If op = “+” Then
MsgBox x+y
Else
If op = “-” Then
MsgBox x-y
Else
If op = “*” Then
MsgBox x*y
Else
If op = “/” Then
MsgBox x/y
Else
MsgBox “わかりません”
End If
End If
End If
End If

こうすると、計算機が出来るらしい。

前に、いろいろ作ってみたが、これが一番上手くいった。

Dim ans
ans = MsgBox(“あなたは1933年より後に生まれましたか？”, vbYesNo)
If ans = vbYes Then
ans = MsgBox(“あなたは1953年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “60才以上80才未満以上でしょう”
Else
ans = MsgBox(“あなたは1973年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “40才以上60才未満でしょう”
Else
ans = MsgBox(“あなたは1993年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “20才以上40才未満でしょう”
Else
ans = MsgBox(“あなたは2003年より後に生まれましたか？”, vbYesNo)
If ans = vbNo Then
MsgBox “あなたは10歳以上20歳未満でしょう”
Else
MsgBox “10歳未満でしょう”
End If
End If
End If
End If
Else
MsgBox “80才以上です”
End If

これは、質問形式にしたら面白そうだけどな。これ選ぶの面倒だし。

なるほど
エクセルVBAは少し覚えたけど、VBは全く知らない
どんな場面で使うのかも分からない

やってみた
簡単なのはVBAの知識でもできそうな気が