运行下列程序:Private Sub form_Click( )x = InputBox("请输入一个数:")Select Cas

运行下列程序：

Private Sub form_Click( )

x = InputBox("请输入一个数：")

Select Case x

Case Is > 0: y = x + 1: x = y + 1

Case Is = 0: y = x + 2: x = y + 2

Case Else: y = x + 3: x = y + 3

End Select

Print x; y

End Sub

从键盘输入1，输出的结果是( )。

A.3 2

B.2 3

C.2 2

D.1 4