2014年计算机二级考试VB专家预测试卷及答案2

　　21.设窗体上有1个水平滚动条，已经通过属性窗V1把它的Max属性设置为1，Min属

　　性设置为100。下面叙述中正确的是( )。

　　A.程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加

　　B.程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少

　　C.由于滚动条的Max属性值小于Min属性值，程序会出错

　　D.由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动

　　22.有如下过程代码：

　　Sub var_dim()

　　static numa As Integer

　　Dim numb As Integer

　　numa=numa+2.

　　numb=numb+1

　　print numa;mub

　　End Sub

　　连续3次调剧var_dim过程，第3次调用时的输出是( )。

　　A.2 1

　　B.2 3

　　C.6 1

　　D.6 3

　　23.在窗体上画1个命令按钮，并编写如下事件过程：

　　private Sub Command1_Click()

　　For i=5 To 1 Step-0.8

　　Print Int(i);

　　Next i

　　End Sub

　　运行程序，单击命令按钮，窗体上显示的内容为( )。

　　A.5 4 3 2 1 1

　　B.5 4 3 2 1

　　C.4 3 2 1 1

　　D.4 4 3 2 1 1

　　24.在窗体上画1个命令按钮，并编写如下事件过程：

　　Private Sub Command1 Click()

　　Dim a(3，3)

　　For m=1 To 3

　　For n=1 To 3

　　If n=m or n=4—m Then

　　a(m.n)=m+n

　　Else

　　a(m，n)=0

　　End If

　　Print a(m，n);

　　Next n

　　Print

　　Next m

　　End Sub

　　运行程序，单击命令按钮，窗体上显示的内容为( )。

　　A.2 0 0

　　0 4 0

　　0 0 6

　　B.2 0 4

　　0 4 0

　　4 0 6

　　C.2 3 0

　　3 4 0

　　0 0 6

　　D.2 0 0

　　0 4 5

　　0 5 6

　　25.设有以下函数过程：

　　Function fun(a As Integer，b As Integer)

　　Dim c As Integer

　　If a　　 c=a：a=b：b=C

　　End IF

　　c=0

　　Do

　　c=c+a

　　Loop Until c Mod b=0

　　fun=c

　　End Function

　　若调用函数fun时的实际参数都是自然数，则函数返回的是( )。

　　A.a、b的最大公约数

　　B.a、b的最小公倍数

　　C.a除以b的余数

　　D.a除以b的商的整数部分

　　26.窗体上有1个名称为Text1的文本框;1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：

　　Private Sub Timer1 Timer()

　　Static flag As Integer

　　If Flag=0 Then Flag=1

　　Flag=-flag

　　If flag=1 Then

　　Text1.ForeColor=&HFF& &HFF&为红色

　　Else

　　Text1.ForeColor=&HCOO& &HCOO&为绿色

　　End If

　　End Sub

　　以下叙述中正确的是( )。

　　A.每次执行此事件过程时，flag的初始值均为0

　　B.flag的值只可能取0或1

　　C.程序执行后，文本框中的文字每5秒改变一次颜色

　　D.程序有逻辑错误，Else分支总也不能被执行

　　27.为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：

　　Private Sub Command1 Click()

　　Dim a%，s%，k%

　　s=1

　　a=2

　　For k=2 To 10

　　a=a*2

　　s2 s+a

　　Next k

　　Text1.Text=s

　　End Sub

　　执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。

　　A.把s=1改为s=0

　　B.把For k=2 T0 10改为For k=1 T0 10

　　C.交换语句s=s+a和a=a*2的顺序

　　D.同时进行B、C两种修改

　　28.标准模块中有如下程序代码：

　　Public x As Integer，y As Integer

　　Sub var pub()

　　x=10：y=20

　　End Sub

　　在窗体上有1个命令按钮，并有如事件过程：

　　Private Sub Command1 Click()

　　Dim x As Integer

　　Call var pub

　　x=x+100

　　y=y+100

　　Print x;y

　　End Sub

　　运行程序后单击命令按钮，窗体上显示的是( )。

　　A.100 100

　　B.100 120

　　C.110 100

　　D.110 120

　　29.设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：

　　Eunction fun(a As Integer，b As Integer)

　　While a>b

　　a=a—b

　　Wend

　　fun=a

　　End Function

　　在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是( )。

　　A.把a=a-b改为a=b-a

　　B.把a=a-b改为a=a\b

　　C.把While a>b改为While a%b

　　D.把While a>b改为While a>=b

　　30.下列关于通甩对话框CommonDialogl的叙述中，错误的是( )。

　　A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开

　　B.使用(’ommoDialog1.ShowColor方法，可以显示“颜色”对话框

　　C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告

　　D.在显示“字体”对话框前，必须先设置CommonDialog1的Flags属性，否则会出错

　　相关推荐：

　　2014年计算机等级考试时间调整通知

　　2014年全国计算机二级VB上机考试试题汇总

　　2014计算机等级《二级VB》上机预测题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通