举一反三
- 在窗体上画一个名称为Command1的命令按钮，再画两个名称分别Labell，Label2的标签，然后编写如下程序运行后，单击命令按钮，则两个标签中显示的内容分别是（） A: 5和3 B: 25和3 C: 25和6 D: 5和6
- 在窗体中添加一个命令按钮 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 ，然后单击“确定”按钮，程序的运行结果为（ ）。
- 在窗体上添加一个命令按钮Command1和3个标签Label1、Label2、Label3，然后编写如下代码。 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 运行程序，连续 3 次单击命令按钮后，则 3 个标签中显示的内容分别是（ ）。
- 窗体上有名称为Command1的命令按钮，名称分别为Label1、Label2、Label3的标签。编写如下程序：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=8z=z+ny=y+nx=x+yLabel1=xLabel2=yLabel3=zEndSub运行程序时，连续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 程序运行后，单击按钮，窗体上显示的是
内容
- 0
在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，显示结果为（ ）。
- 1
在窗体中添加一个命令按钮Command1，并编写如下程序： PrivateSubCommand1_Click() x=InputBox(x) Ifx^2=9Theny=x Ifx^2<9Theny=1/x Ifx^2>9Theny=x^2+1 Printy EndSub 程序运行时，单击命令按钮，在InputBox中输入3，然后单击“确定”按钮，程序的运行结果为（）。
- 2
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下：Public x As IntegerPrivate Sub Form_Load()x=1:y=5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下：Private Sub Command1_Click()Print Form1.x,yEnd SubModule1的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是 A: 1 5 B: 0 5 C: 0 0 D: 程序有错
- 3
在窗体上画一个命令按钮＜其名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click() For i=1 T04 If i=1 Thenx=i If i＜=4 Then x=x+1 Print x Next i End Sub 程序运行后，单击命令按钮；其输出结果为 ______。 A: A) 1 2 3 4 B: B) 2 3 4 5 C: C) 2 3 4 4 D: D) 3 4 5 6
- 4
在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：FunctionFun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFun1=t+bEndFunctionPrivateSubCommand1_Click()DimxAsIntegerx=10PrintFun1(Fun1(x,(Fun1(x,x-1))),x-1)EndSub程序运行后，单击命令按钮，输出结果是( )。