在窗体上添加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
程序运行后，单击按钮，窗体上显示的是
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
程序运行后，单击按钮，窗体上显示的是
举一反三
- 在窗体上添加1个按钮Button1，然后编写Click事件代码： Dim x A...g 程序运行后，单击按钮，窗体上显示的是
- 设有如下通用过程，在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程： private sub command1_click() dim x as integer x=10 y=5 y=f(x) print x;y end sub public function f (x as integer) dim y as integer x=20 y=2 f=x*y end function 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）
- 在窗体中添加一个命令按钮 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 ，然后单击“确定”按钮，程序的运行结果为（ ）。
- 完成以下功能：计算分段函数完成程序。 x2+1 (x<0) y= 2x+1 (0≤x<1) 3x3 (x≥1) Private Sub Command1_Click() Dim y As Single, x As Single x = InputBox("请输入x的值") If x（） Then y = x * x + 1 （） x < 1 Then y = 2 * x + 1 Else y = 3 * x ^ 3 End If Print x; y End Sub
- 下列代码执行后，窗体上显示（ ）。 Dim x As Integer, y As Integer x = 50: y = 30 If x > y Then x = x - y Else y = y x If x < y Then x = x 20 Form1.Print x, y