private sub 7743 Select Case 7743 Case "中卒" MsgBox "正解" Case "高卒" MsgBox "それは妄想です。" Exit Sub Case "大卒" MsgBox "それは妄想です。" Exit Sub End Select Me![算数ドリル].SetFocus End Sub
Private Sub 7743() Dim ans Select Case 7743は正直に答えなさい。.Value Case "中卒" MsgBox "当り!! あなたは低脳です。" Case "高卒", "大卒" ans = MsgBox("それは妄想です。病院に送りますか?", vbYesNo) Select Case ans Case "6" Call AfterProcess Case "7" MsgBox "捕まりました。" End Select End Select End Sub
Private Sub AfterProcess() MsgBox "犯罪を未然に防ぎました。" End Sub