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

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

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

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
追问：呃……好复杂！呃……好复杂！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！