前提・実現したいこと
下記の条件分岐(test1、test2)で、true or falseの判定を結果()に返してそこでtrueの場合の記述がわかりません。
(★の箇所)
test1がtrueだった場合したにいくので、
test2に行くのは理解しています。
結果()で復帰値で管理したいです。
該当のソースコード
VBA
1 2Option Explicit 3 4Sub 結果() 5 ★test1()がTrueを返したの場合は、test2()に遷移してさらにTrueを返したの場合は・・・ 6End Sub 7 8 9 10Sub test1() 11 Dim intAge As Integer 12 intAge = InputBox("あなたの年齢を入力してください。") 13 14 If intAge > 19 Then 15 MsgBox "成人です。" 16 Else 17 MsgBox "未成年です。" 18 End If 19End Sub 20 21 22Sub test1() 23 Dim intAge As Integer 24 intAge = InputBox("あなたの年齢を入力してください。") 25 26 If intAge > 19 Then 27 MsgBox "成人です。" 28 Else 29 MsgBox "未成年です。" 30 End If 31End Sub 32 33 34Sub test2() 35 Dim intScore As Integer 36 intScore = InputBox("得点を入力してください") 37 38 If 79 < intScore And intScore <= 100 Then 39 MsgBox "優です" 40 ElseIf 69 < intScore And intScore < 80 Then 41 MsgBox "良です" 42 ElseIf 59 < intScore And intScore < 70 Then 43 MsgBox "可です" 44 ElseIf 0 < intScore And intScore < 60 Then 45 MsgBox "不可です" 46 Else 47 MsgBox "得点は 0~100の数字で入力してください" 48 End If 49 50End Sub 51 52