运行下列程序：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