Question

VB编程：键盘输入一个两位数XY，X是十位，Y是个位，编程计算X+Y的值和X*Y的值

求大神回答！挺急的在线等

Answer 1

Private Sub Form_Click()
Dim n As Integer, x As Integer, y As Integer
n = Val(InputBox("请输入一个两位数"))
If n > 9 And n < 100 Then
   x = n \ 10
   y = n Mod 10
   MsgBox "X+Y=" & (x + y) & vbCrLf & "X*Y=" & (x * y)
Else
   MsgBox "输入错误！"
End If
End Sub