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

计算机等级考试二级VB模拟试题及答案推荐度：
相关推荐

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

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

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

　　(1)在名称为Form1的窗体上画一个名称为Text1的文本框，其高、宽分别为400、2000。请在属性框中设置适当的属性满足以下要求：

　　1)Text1的字体为“黑体”，字号为“四号”;

　　2)窗体的标题为“输入”，不显示最大化按钮和最小化按钮。

　　运行后的窗体如图所示。

　　(2)在名称为Form1的窗体上画一个图片框，(名称为Picture1)、一个垂直滚动条(名称为VScroll1)和一个命令按钮(名称为Command1，标题为“设置属性”)，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的宽度与图形的宽度相同，图片框的高度任意(如图1所示)。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：

　　Min 100

　　Max 2400

　　LargeChange 200

　　SmallChange 20

　　之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。要求程序中不得使用任何变量。

　　Private Sub Command1_Click()

　　VScroll1.Min = 100

　　VScroll1.Max = 2400

　　VScroll1.LargeChange = 200

　　VScroll1.SmallChange = 20

　　End Sub

　　Private Sub VScroll1_Change()

　　Picture1.Height = VScroll1.Value

　　End Sub

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

　　(1)在考生文件夹下有一个工程文件sjt21.vbp，其窗体上有一个名称为Text1的文本框;一个名称为L1的列表框;一个命令按钮，名称为C1，标题为“添加”(如图所示)。程序的功能是，在运行时，如果在文本框中输入一行内容并单击“添加”按钮，则把文本框中的内容作为列表项添加到列表中。如果单击列表中的某一项，则立即从列表中删除该项。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。

　　'Private Sub C1_Click()

　　' L1.? Text1.Text

　　'End Sub

　　'Private Sub L1_Click()

　　' L1.RemoveItem ?

　　'End Sub

　　'正确程序：

　　Private Sub C1_Click()

　　L1.AddItem Text1.Text

　　End Sub

　　Private Sub L1_Click()

　　L1.RemoveItem L1.ListIndex

　　End Sub

　　'答案"

　　'AddItem

　　'L1.ListIndex

　　(2)在考生文件夹下有一个工程文件sjt22.vbp，相应的窗体文件为sjt22.frm。在窗体上有两个命令按钮，其名称分别为Command1、Command2，一个标签控件，其名称为Label1，一个计时器控件，其名称为Timer1，如图1所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interval属性设置为50，Enabled属性设置为True。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2所示，移动出窗体右边界后，自动从左边界开始向右移动;如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动;再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。

　　要求：

　　去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

　　Private Sub Form_Load()

　　Command1.Caption = "开始"

　　Command2.Caption = "停止"

　　Timer1.Interval = 50

　　Timer1.Enabled = False

　　Label1.Caption = "热烈欢迎"

　　Label1.AutoSize = True

　　Label1.FontSize = 16

　　Label1.FontBold = True

　　End Sub

　　Private Sub Command1_Click()

　　Command1.Caption = "继续"

　　Timer1.Enabled = True

　　' Timer1.Enabled = ?

　　Command1.Enabled = False

　　'Command1.Enabled = ?

　　Command2.Enabled = True

　　End Sub

　　Private Sub Command2_Click()

　　Timer1.Enabled = False

　　' Timer1.Enabled = ?

　　Command2.Enabled = False

　　Command1.Enabled = True

　　End Sub

　　Private Sub Timer1_Timer()

　　If Label1.Left < Width Then

　　Label1.Left = Label1.Left + 20

　　' Label1.Left = ?

　　Else

　　Label1.Left = 0

　　End If

　　End Sub

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

　　在考生目录下有一个工程文件sjt31.vbp。窗体中已经给出了所有控件。其功能是：单击“显示”命令，则把考生目录下的int5.txt文件中的所有字符放入Text1(可多行显示)，如图所示;如果单击“统计”命令按钮，则统计文本框中字母A、B、C、D各自出现的次数，并依次放到窗体变量an，bn，cn，dn之中(放在其他变量中将无成绩);如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out5.txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。

　　要求：

　　统计每个字母出现的次数时，不区分大小写。

　　注意：

　　不能修改已经给出的程序部分;在结束程序运行之前，必须单击“保存”按钮，把结果存入out5.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。

　　Dim an As Integer

　　Dim bn As Integer

　　Dim cn As Integer

　　Dim dn As Integer

　　Private Sub Command1_Click()

　　Open "in5.txt" For Input As #1

　　Do While Not EOF(1)

　　Input #1, a$