计算机二级VB上机试题及答案
在平时的学习、工作中，许多人都需要跟试题打交道，试题是命题者按照一定的考核目的编写出来的。你知道什么样的试题才能切实地帮助到我们吗？下面是小编为大家收集的计算机二级VB上机试题及答案，仅供参考，希望能够帮助到大家。
1. 基本操作(2小题，每小题15分，共计30分)
注意：下面出现的“考生文件夹”均为%USER%
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1，标题为“框架”的窗体上画一个名称为Frame1，且没有标题的框架。框架内含有二个单选按钮，名称分别为Opt1 和Opt2、标题分别为“字体”、“大小”。
注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
解题思路：
启动Visual Basic系统，创建一个Form1窗体。
在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1。在框架内画二个单选按钮控件，通过其属性窗口将名称分别为Opt1和Opt2、标题(Caption属性)分别设为“字体”和“大小”。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“框架”。
参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw
请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。
(2)考生文件夹下的工程文件sjt2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示：
名称 X1 Y1 X2 Y2
Line1 600 1200 1600 300
Line2 600 1200 2600 1200
Line3 1600 300 2600 1200
要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画二个命令按钮，名称分别是Cmd1、Cmd2，标题分别为“显示高”、“隐藏高”，如图所示。
请编写适当的事件过程使得在运行时，单击“显示高”按钮，则显示三角形的高;单击“隐藏高”按钮，则隐藏三角形的高。
注意：
要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt2.vbp，相应的窗体文件名为sjt2.frm。
由于所提供的窗体控件不完整，需在该窗体上画一根直线控件，通过其属性窗口将名称设为Line4，点X1属性设为1600，点X2属性分别设为1600，点Y1属性设为300，点Y2属性设为1200，Visible属性设为False。画二个命令按钮控件，通过其属性窗口将名称分别设为Cmd1和Cmd2，标题(Caption属性)分别设为“显示高”和“隐藏高”。
单击“显示高”按钮(即运行Click事件过程)，在该Private Sub Cmd1_Click()事件过程中加入语句：
Private Sub Cmd1_Click()
Line4.Visible = True
End Sub
单击“隐藏高”按钮(即运行Click事件过程)，在该Private Sub Cmd2_Click()事件过程中加入语句：
Private Sub Cmd2_Click()
Line4.Visible = False
End Sub
参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw
请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。
2. 简单应用(2小题，每题20分，计40分)
注意：下面出现的“考生文件夹”均为%USER%
(1)在考生文件夹下有一个工程文件sjt3.vbp，在Form1的窗体中有一个文本框，二个命令按钮和一个计时器。程序的功能是在运行时，单击“开始计数”按钮，就开始计数，每隔1秒，文本框中的数加1;单击“停止计数”按钮，则停止计数(如图所示)。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功(july是几月？july代表7月份，英文缩写为jul，共有31天 ，源自于拉丁文Julius（即朱里斯）。)能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。
由于所提供的窗体控件属性不完整，通过属性窗口将计时器的Enabled属性设为False，Interval属性设为1000。
由于所提供的窗体程序不完整，在命令按钮的Private Sub C1_Click(Index As Integer)事件过程中，有二处地方需要修改。
1) 将语句
Select Case ?
改为
Select Case Index
2) 将语句
Case ?
改为
Case 0
由于所提供的窗体程序不完整，在计时器的Private Sub Timer1_Timer()事件过程中，有一处地方需要修改。
1) 将语句
Text1.Text = Text1.Text ?
改为
Text1.Text = Text1.Text + 1
参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw
请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。
(2)已知出租车行驶不超过4公里时一律收费10元。超过4公里时分段处理，具体处理方式为：15公里以内每公里加收 1.2元，15公里以上每公里收 1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数;单击“计算”按钮，则可根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。
在窗体文件中已经给出了全部控件(如图所示)，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。
注意：
不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。
由于所提供的窗体程序不完整，在Private Sub Command2_Click()事件过程中，有五处地方需要修改。
1) 将语句
Select Case ?
改为
Select Case s
2) 将语句
?
改为
f = 10
3) 将语句
f = 10 + ?
改为
f = 10 + (s - 4) * 1.2
4) 将语句
?
改为
Case Else
5) 将语句
f = 10 + ? + (s - 15) * 1.8
改为
f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8
参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw
请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。
3. 综合应用(1小题，计30分)
注意：下面出现的“考生文件夹”均为%USER%
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮。请画二个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”;再画二个名称分别为Text1和Text2，初始值为空的文本框，如图所示。
程序功能如下：
1)单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出);
2)单击“统计”按钮，则自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数，并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内。
“读数据”按钮的Click 事件过程已经给出，请为“统计”按钮编写适当的事件过程实现上述功能。
注意：
考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
解题思路：
启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。
由于所提供的窗体控件不完整，需画二个标签控件，通过其属性窗口将名称分别设为Label1和Label2，标题(Caption属性)分别设为“出现次数最多的字母是”和“它出现的次数为”。画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，初始内容(Text属性)均设为空。
由于所提供的窗体程序不完整，需在“统计”命令按钮的Click事件过程中加入语句：
Private Sub Command2_Click()
考生编写
Dim a(26) As Integer
n = Len(s)
For i = 1 To n
c = UCase(Mid(s, i, 1))
If c = "A" And c = "Z" Then
j = Asc(c) - Asc("A") + 1
a(j) = a(j) + 1
End If
Next i
Max = a(1)
t = Chr(Asc("A"))
For i = 2 To 26
If a(i) Max Then
Max = a(i)
t = Chr(Asc("A") + i - 1)
End If
Next i
Text1.Text = t
Text2.Text = Max
End Sub
参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat
请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。
【计算机二级VB上机试题及答案】相关文章：
计算机二级vb考试试题（附答案）08-12
2016年计算机二级JAVA上机试题及答案08-22
2016最新计算机二级C++上机试题及答案08-19
计算机二级C语言考试上机冲刺试题及答案08-19
2017年计算机二级VB考试试题及答案08-29
2016年计算机二级vb试题库及答案05-23
vb计算机二级考试试题05-24
2017年3月计算机二级VB上机操作题库及答案08-30
word上机测试题及答案08-08
