2016计算机二级考试vb复习试题及答案

今年第二次计算机等级考试即将开始了，yjbys为帮助大家巩固vb基础知识，下面为大家分享的是计算机等级考试vb复习试题，同学们赶紧来学习吧!

　　1.基本操作(2小题，每小题15分，共计30分)

(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处在选中状态下，运行时的窗体如图所示。请画控件并设置相应属性。

(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在运行时，单击“复制”菜单项，则把Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。运行时的窗体如图所示。要求在程序中不得使用任何变量，每个事件过程中 只能写一条语句。

Private Sub clear_Click()

= ""

'或 = ""

'或 = ""

End Sub

Private Sub copy_Click()

=

'或 = 前可以加Me或Form1

'或 = 前可以加Me或Form1

End Sub

　　2.简单应用(2小题，每题20分，计40分)

(1)在考生文件夹下有一个工程文件，相应的窗体文件为。其功能是产生20个0～1000的随机整数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮(名称为Command1，标题为“输出平均值”)，即可求出其平均值，并在窗体上显示出来(如图所示)。这个程序不完整，请把它补充完整，并能正确运行。

Option Base 1

Private Sub Command1_Click()

Dim arrN(20) As Integer

Dim Aver As Single

Dim Sum As Integer

Randomize

For i = 1 To 20

'arrN(i) = ?

arrN(i) = Int(Rnd * 1000)

'或arrN(i) = Fix(Rnd * 1000)

Next i

'Sum = ?

Sum = 0

For i = 1 To 20

'Sum = ?

Sum = Sum + arrN(i)

Next i

'Aver = ?

Aver = Sum / 20

Print Aver

End Sub

(2)在考生目录下有一个工程文件，窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间(秒)，移动滚动框可以调节时间，调节范围为1-10秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自动变为黄灯，1秒后变为绿灯;绿灯到时后自动变为黄灯，1秒后变为红灯，如此切换(如图所示)。

所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的`?改为正确内容。

提示： 在三个图片框picture1、picture2、picture3中分别放置了红灯亮、绿灯亮、黄灯亮的图标，并重叠在一起，当要使某个灯亮时，就使相应的图片框可见，而其他图片框不可见，并保持规定的时间，时间到就切换为另一个图片框可见，其他图片框不可见。

Dim red, green

Private Sub Command1_Click()

' ? = e

red = e

green = e

' led = ?

led = True

End Sub

Private Sub Timer1_Timer()

If ble Then

red = red - 1

If red = 0 Then

ble = False

' ? ble = True

ble = True

End If

ElseIf ble Then

ble = False

If red = 0 Then

ble = True

red = e

Else

ble = True

green = e

End If

ElseIf ble Then

' green = ?

green = green - 1

If green = 0 Then

ble = False

ble = True

End If

End If

End Sub

　　3.综合应用(1小题，计30分)

以下数列：1，1，3，5，9，15，25，41，…，的规律是从第3个数开始，每个数是它前面两个数的和加1。

在考生目录下有一个工程文件。窗体中已经给出了所有控件，如图所示。请编写适当的事件过程实现以下功能：在Text1中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值。如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的文件中。(提示：因数据较大，应使用Long型变量)

注意： 在结束程序运行之前，必须单击“存盘”按钮，把结果存入文件，否则无成绩。最后把修改后的文件按原文件名存盘。

Dim a(50) As Long

Private Sub Command1_Click()

Dim f As Long

a(1) = 1

a(2) = 1

For i = 3 To Val()

f = a(i - 2) + a(i - 1) + 1

a(i) = f

Next

= f

End Sub

Private Sub Command2_Click()

Open "" For Output As #1

Print #1,

Close #1

End Sub