Sub if_and()
Dim KOKUGO, EIGO As Long
KOKUGO = InputBox("国語の点数を入力して下さい")
EIGO = InputBox("英語の点数を入力して下さい")
If KOKUGO >= 70 And EIGO >= 70 Then
msgbox "国語・英語ともに合格です。" '条件式に国語と英語が70点以上なら合格
Else
msgbox "不合格です。" '国語・英語のうちいづれかまたは、両方が69点以下なら不合格
End If
End Sub
Sub if_OR()
Dim KOKUGO, EIGO As Long
KOKUGO = InputBox("国語の点数を入力して下さい")
EIGO = InputBox("英語の点数を入力して下さい")
If KOKUGO >= 70 Or EIGO >= 70 Then
MsgBox "合格です。" '条件式に国語と英語がいづれか70点以上なら合格
Else
MsgBox "不合格です。" '国語と英語の両方が69点以下なら不合格
End If
End Sub
Sub if_NOT()
Dim KOKUGO As Long
KOKUGO = InputBox("国語の点数を入力して下さい")
If Not KOKUGO >= 70 Then
MsgBox "国語は不合格です。" '国語69点以下なら不合格
Else
MsgBox "国語は合格です。" '国語70点以上なら合格
End If
End Sub