运行以下程序，单击命令按钮Command1，窗体上显示（）。PrivateSubpt(ByValx%,ByRefy%)x=x+2y=y+3EndSubPrivateSubCommand1_Click()Dimx%,y%x=1:y=2Callpt(x,y)Form1.Printx;yEndSub
举一反三
- 在窗体中添加一个命令按钮 Command1 ， 并编写如下程序 ： Private Sub Command1_Click() x = InputBox(x) If x ^ 2 = 9 Then y = x If x ^ 2 < 9 Then y = 1 / x If x ^ 2 > 9 Then y = x ^ 2 + 1 Print y End Sub 程序运行时，单击命令按钮，在 InputBox 中输入 3 ，然后单击“确定”按钮，程序的运行结果为（ ）。
- 以下程序运行后的输出结果是 ______。 Sub add(x，y) x=x+y Print "x="；x；"，y="；y End Sub Private Sub Command1_Click() x=1 y=1 Call add((x)，(y)) Print"x="; x；"，y="；y End Sub A: x=1，y=1 B: x=2，y=2 C: x=2，y=1 D: x=1，y=1 E: x=1，y＝1 F: x=1，y=1 G: x=2，y=1 H: x=2，y=1
- 如下程序的运行结果是（ ） intx=1,y=1;if(x==1) y=x+1;elseif(y==2) x=y+1;else y=0; A: x=1, y=2 B: x=3, y=2 C: x=3, y=0 D: x=1, y=0
- 以下代码显示的结果是什么？def f1(x = 1, y = 2): x = x + y y += 1 print(x, y) f1(2, 1) A: 1 3 B: 2 3 C: 程序运行出错，因为 x 和 y 未定义 D: 3 2 E: 3 3
- 在窗体上添加1个按钮Button1，然后编写Click事件代码： Dim x As Short = -1 Dim y As Single If x <= 0 Then y = x ^ 2 Else y = x End If Label1.Text = y.ToString 程序运行后，单击按钮，窗体上显示的是