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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询