有如下程序代码：Private Sub Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd Sub运行程序，单击窗体，输出结果是________。

相似题目

• 对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）>mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）

  A . 499 B . 237 C . 498

  查看最佳答案

• 有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

  A . 定义一个数据处理方法 B . 定义一个数据输入方法 C . 定义一个事件过程 D . 定义一个数据类型

  查看最佳答案

• 有如下程序： Private Sub Command1_Click（） Fo rj=1 To 10 a=a+j\7 Next j Print a End Sub 在运行时输出a的值是（）

  A . 5 B . 4 C . 3 D . 2

  查看最佳答案

• 设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

  查看最佳答案

• 假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。

  查看最佳答案

• 单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜

  单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End Sub A．23 47 B．5 11 C．10 22 D．23 29

  查看最佳答案

• 在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码；Option Base 1Private Sub Com

  在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码； Option Base 1 Private Sub Command1_ Click() Dim a(4, 4), For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub程序运行后，单击命令按钮，输出结果为______。 A．6 9 7 10 B．7 10 8 11 C．8 11 9 12 D．9 12 10 13

  查看最佳答案

• 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click（

  在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s= "ABBACDDCAB" For i=6 To 2 Step -2 x=Mid(s,i,i) y=Left(s,i) z=x&amp;y Next i MsgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。 A．AABA B．ABBA C．BABBA D．BBAB

  查看最佳答案

• 在窗体上设计如下两个事件过程： Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer)Print Chr（KeyCode) End Sub Private Sub Form_KeyPress（KeyAscii As Integer)Print Chr（KeyAscii) End Sub 在程序运行后，按“a”键（不按住Shift

  查看最佳答案

• 现有以下程序代码：Private sub Form_click（)Static s as integers=s+1 text4, text = str（s)End

  现有以下程序代码： Private sub Form_click() Static s as integer s=s+1 text4, text = str(s) End sub 单击窗体4次后，文本框中的内容是()。 A．4 B．0 C．2 D．以上都不对

  查看最佳答案

• 有如下代码: Private Sub Command1_Click（）

  A．1 B．2 C．3 D．4

  查看最佳答案

• 在窗体中添加一个名称为COMMAND1的命令按钮，然后编写如下事件代码： PRIVATE SUB COMMAND1_CLICK（

  在窗体中添加一个名称为COMMAND1的命令按钮，然后编写如下事件代码： PRIVATE SUB COMMAND1_CLICK() A =75 IF A ＞60 THEN K=1 ELSEIF A ＞ 70 THEN K=2 ELSEIF A ＞ 80 THEN K=3 ELSEIF A ＞90 THEN K=4 ENDIF MSGBOX K END SUB 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。 A．1 B．2 C．3 D．4

  查看最佳答案

• 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click（)

  在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() A=75 If A＞60 Then I=1 If A＞70 Then 1=2 If A＞80 Then 1=3 If A＞90 Then 1=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是()。 A．1 B．2 C．3 D．4

  查看最佳答案

• 在窗体上面一个命令按钮（其Name属性为Command1)，然后编写如下代码：Option Base 1Private Sub Cor

  在窗体上面一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Coramandl_Click() Dim a s=0 a=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是______。 A．4221 B．1234 C．34 D．12

  查看最佳答案

• 有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I

  有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。 A．12 B．30 C．24 D．18

  查看最佳答案

• 在窗体中添加一个命令按钮，编写如下程序：Private Sub Sub1（p，m，n)p=p+1：m=m+1：n=n+1Print "sub1：

  在窗体中添加一个命令按钮，编写如下程序： Private Sub Sub1(p，m，n) p=p+1：m=m+1：n=n+1 Print "sub1："；p；m；n End Sub Private Sub Command1_Click() a1=1：b=2：c1=3 Call Sub1(a，b1+3，c1) Print"Main："；a1；b1；c1 End Sub 程序运行后，输出结果为 A．Sub： 2 6 4 Main： 2 6 4 B．Sub： 2 6 4 Main： 2 6 4 C．Sub： 2 6 4 Main： 1 2 3 D．Sub： 2 6 4 Main： 2 2 3

  查看最佳答案

• 在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click() Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是

  A．10 10 10 B．30 30 30 C．30 30 10 D．10 30 30

  查看最佳答案

• 程序段如下：Private Sub Command1_ Click（)a = 0for 1=15 To 15 Step- 2a = a +1Next IPrint a,

  程序段如下：Private Sub Command1_ Click() a = 0 for 1=15 To 15 Step- 2 a = a +1 Next I Print a, IEnd Sub发生Command 1的单击事件后，程序的输出结果是 ______。 A．0 13 B．15 13 C．0 15 D．15 15

  查看最佳答案

• ◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。

  查看最佳答案

• 有如下程序：Private Sub Command1_Click（）Fo rj=1 To 10a=a+j\7Next jPrint aEnd Sub在运行时输出a的值是（）

  A．5 B．4 C．3 D．2

  查看最佳答案

• 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 （8) 和 （9) 。

  查看最佳答案

• 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 （6) 和 （7) 。

  查看最佳答案

• 在窗体中有一个文本框Test1，编写事件代码如下：Private Sub Form_Click（）

  A．1 B．2 C．3 D．4

  查看最佳答案

• 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,

  A．Forml的Caption属性值为100 B．Form2的Caption属性值为-100 C．Form1的Caption属性值为-100 D．Form2的Caption属性值为100

  查看最佳答案