vb 输入两个整数,判断是否有相同的奇偶性
来源:百度知道 编辑:UC知道 时间:2024/05/14 19:47:26
3Q~
Private Sub Form_Click()
i = InputBox("请输入第一个整数")
b = InputBox("请输入第二个整数")
If i Mod 2 = 0 And b Mod 2 = 0 Then
MsgBox i & " " & b & vbCrLf & " 都是偶数"
ElseIf i Mod 2 <> 0 And b Mod 2 <> 0 Then
MsgBox i & " " & b & vbCrLf & " 都是奇数"
Else
MsgBox i & " " & b & vbCrLf & "一个是偶数一个是奇数"
End If
End Sub
Private Sub Form_Click()
i = InputBox("请输入第一个整数")
b = InputBox("请输入第二个整数")
If i Mod 2 = 0 And b Mod 2 = 0 Then
MsgBox i & " " & b & vbCrLf & " 都是偶数"
ElseIf i Mod 2 <> 0 And b Mod 2 <> 0 Then
MsgBox i & " " & b & vbCrLf & " 都是奇数"
Else
MsgBox i & " " & b & vbCrLf & "一个是偶数一个是奇数"
End If
End Sub
看看是不是你要的答案