VB题：输入两个数判断他们之间的奇数和偶数，再两数相加（乘）

2025-04-08 23:37:01

推荐回答（1个）

回答1：

你应该是想达到这个效果吧，如上图。
逐行手敲，亲测可用。有问题可以问我。

Private Sub Command1_Click()
Dim a, b
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
If Val(Text1.Text) Mod 10 = 1 Then
a = "第一个数为奇数"
Else
a = "第一个数为偶数"
End If

If Val(Text2.Text) Mod 10 = 1 Then
b = "第二个数为奇数"
Else
b = "第二个数为偶数"
End If

'Print a
'Print b
Label6.Caption = "    " & a & vbCrLf & "     " & b

End Sub