运行以下程序,第二次单击窗体后,窗体上显示()。PrivateSubForm_Click()Dimx%Staticy%Form1.Clsx=x+3y=y*x+2Printx&","&yEndSub
举一反三
- 运行以下程序,单击命令按钮Command1,窗体上显示()。PrivateSubpt(ByValx%,ByRefy%)x=x+2y=y+3EndSubPrivateSubCommand1_Click()Dimx%,y%x=1:y=2Callpt(x,y)Form1.Printx;yEndSub
- 在窗体上添加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 程序运行后,单击按钮,窗体上显示的是
- 在窗体上添加1个按钮Button1,然后编写Click事件代码: Dim x A...g 程序运行后,单击按钮,窗体上显示的是
- 在窗体中添加一个命令按钮 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 ,然后单击“确定”按钮,程序的运行结果为( )。
- 设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是_____。