（ 20 ） 在窗体上画 1 个命令按钮 （ 名称为 Command1 ） 和 1 个文本框 （ 名称为 Text1 ） ， 然后编写下列事

过程：

Private Sub Command1_Click( )

x=Val(Text1.Text)

Select Case x

C．ase 1,3

y=x*x

C．ase Is>=10,Is<=-10

y=x

C．ase -10 To 10

y=-x

E．nd Select

E．nd Sub

程序运行后，在文本框中输入 3 ，然后单击命令按钮，则下列叙述中正确的是（ ）。

A． ）执行 y=x*x

B． ）执行 y=-x

C． ）先执行 y=x*x ，再执行 y=-x

D． ）程序出错

[单选题]在窗体上画1个命令按钮（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Command1_Click（）x=Val（Text1.Text）Select Case xC．ase 1，3y=x*xC．ase Is>=10，Is<=-10y=xC．ase -10 To 10y=-xE．nd SelectE．nd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是（ ）。A．执行y=x*xB．执行y=-xC．先执

[单选题]（ 25 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列程序：Private Sub Command1_Click( )D．im a ( 10 ) As IntegerD．im x As IntegerF．or i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)E．nd SubF．unction f(x As Integer)x=x+3f=xE．nd Function程序运行后，单击命令按钮，输出结果为（ ）。A． ） 12B． ） 15C．

[单选题]（ 31 ）在窗体上画 1 个命令按钮，名称为 Command1 ，然后编写下列程序：D．im Flag As BooleanPrivate Sub Command1_Click( )D．im intNum As IntegerintNum=InputBox(" 请输入 :")If Flag ThenPrint f(intNum)E．nd IfE．nd SubF．unction f(X As Integer)As IntegerIf X<10 ThenY=XE．lseY=X+10E．n

[单选题]在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：D．im Flag As BooleanPrivate Sub Command1_Click（）D．im intNum As IntegerintNum=InputBox（"请输入："）If Flag ThenPrint f（intNum）E．nd IfE．nd SubF．unction f（X As Integer）As IntegerIf X<10 ThenY=XE．lseY=X+10E．nd Iff=YE．nd F

[单选题]（ 33 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click （）D．im a （ 5.5 ） As IntegerF．or i=1 To 5F．or j=1to5a （ i+j ） *5/10Next jNext is=0F．or i=1 To 5s=s+a （ i,i ）Next iPrint sE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）A． ） 15B． ） 13C．

[单选题]（ 23 ）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_Click( )a=0F．or i=1 To 2F．or j=1 To 4If j Mod 2<>0 Thena=a-1E．nd Ifa=a+1Next jNext iPrint aE．nd Sub程序运行后，单击命令按钮，输出结果是（ ）。A． ） 0B． ） 2C． ） 3D． ） 4

[试题]（ 7 ）在窗体上画 1 个命令按钮，其名称为 Command1 ，然后编写下列事件过程：Private Sub Command1_Click( )D．im arr(1 To 100 ） As IntegerF．or i=1 To 100arr(i)=Int(Rnd*1000)Next iMax=arr ( 1 )Min=arr ( 1 )F．or i=1 To 100If ( 7 ) ThenMax=arr(i)E．nd IfIf ( 8 ) ThenMin=arr(i)E．nd IfNext

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click（）D．im a（10）As IntegerD．im x As IntegerF．or i=1 To 10a（i）=8+iNextx=2Print a（f（x）+x）E．nd SubF．unction f（x As Integer）x=x+3f=xE．nd Function程序运行后，单击命令按钮，输出结果为（ ）。A．12B．15C．17D．18

[单选题]在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y En

[单选题]在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)＋x) End Sub Function f(x As Integer) x=x＋3 f=x End Function 程序运行后，单击命令按钮，输出结果为______。A．12B．15C．17D．18