计算机等级 百分网手机站

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

时间:2017-08-31 10:47:30 计算机等级 我要投稿

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

  Next

  Text2.Text = f

  End Sub

  Private Sub Command2_Click()

  Open "out5.txt" For Output As #1

  Print #1, Text2.Text

  Close #1

  End Sub

【2016计算机二级考试vb复习试题及答案】相关文章:

1.2016年计算机vb二级复习试题及答案

2.2016计算机等级考试二级VB模拟试题及答案

3.2016最新计算机二级vb考试试题及答案

4.2016计算机二级VB语言考试试题及答案

5.计算机二级vb考试试题及答案

6.2016年计算机二级vb试题及答案

7.2017计算机等级考试vb二级试题及答案

8.计算机等级考试二级VB模拟试题及答案