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()

　　Text2.Text = ""

　　'或 Me.Text2.Text = ""

　　'或 Form1.Text2.Text = ""

　　End Sub

　　Private Sub copy_Click()

　　Text2.Text = Text1.Text

　　'或 Me.Text2.Text = Text1.Text Text1.Text前可以加Me或Form1

　　'或 Form1.Text2.Text = Text1.Text Text1.Text前可以加Me或Form1

　　End Sub

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

　　(1)在考生文件夹下有一个工程文件sjt21.vbp，相应的窗体文件为sjt21.frm。其功能是产生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)在考生目录下有一个工程文件sjt22.vbp，窗体中的两个滚动条分别表示红灯亮和绿灯亮的时间(秒)，移动滚动框可以调节时间，调节范围为1-10秒。刚运行时，红灯亮。单击“开始”按钮则开始切换：红灯到时后自动变为黄灯，1秒后变为绿灯;绿灯到时后自动变为黄灯，1秒后变为红灯，如此切换(如图所示)。

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

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

　　Dim red, green

　　Private Sub Command1_Click()

　　' ? = HScroll1.Value

　　red = HScroll1.Value

　　green = HScroll2.Value

　　' Timer1.Enabled = ?

　　Timer1.Enabled = True

　　End Sub

　　Private Sub Timer1_Timer()

　　If Picture1.Visible Then

　　red = red - 1

　　If red = 0 Then

　　Picture1.Visible = False

　　' ? .Visible = True

　　Form1.Picture3.Visible = True

　　End If

　　ElseIf Picture3.Visible Then

　　Picture3.Visible = False

　　If red = 0 Then

　　Picture2.Visible = True

　　red = HScroll1.Value

　　Else

　　Picture1.Visible = True

　　green = HScroll2.Value

　　End If

　　ElseIf Picture2.Visible Then

　　' green = ?

　　green = green - 1

　　If green = 0 Then

　　Picture2.Visible = False

　　Picture3.Visible = True

　　End If

　　End Sub

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

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

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

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

　　Dim a(50) As Long

　　Private Sub Command1_Click()

　　Dim f As Long

　　a(1) = 1

　　a(2) = 1

　　For i = 3 To Val(Text1.Text)

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

　　a(i) = f

　　Text2.Text = f

　　End Sub

　　Private Sub Command2_Click()