2016最新计算机二级vb考试试题及答案
来源:才华咖 本文已影响6.28K人
来源:才华咖 本文已影响6.28K人
2016年第二次计算机等级考试即将开始了,同学们复习了吗?为帮助大家巩固vb基础知识,下面yjbys小编为大家分享的是计算机等级考试vb复习试题,同学们赶紧来学习吧!
1.基本操作(2小题,每小题15分,共计30分)
(2)在名称为Form1的窗体上画一个图片框(名称为Picture1)、一个水平滚动条(名称为HScroll1)和一个命令按钮(名称为Command1,标题为“设置属性”),通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg,位于考生目录下),图片框的高度与图形的高度相同,图片框的宽度任意(如图1所示)。编写适当的事件过程,程序运行后,如果单击命令按钮,则设置水平滚动条的如下属性:
Min 100
Max 1500
LargeChange 100
SmallChange 10
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。程序中不得使用任何变量。
Private Sub Command1_Click()
= 100
= 1500
eChange = 100
lChange = 10
End Sub
Private Sub HScroll1_Change()
h = e
End Sub
2.简单应用(2小题,每题20分,计40分)
(1)在名称为Form1的窗体上画一个计时器,其名称为Timer1;再画一个图像框,其名称为Image1,在该图像框中装入一个图形文件;然后画一个水平滚动条,其名称为HScroll1,Min属性值为100,Max属性值为1200,LargeChange属性值为100,SmallChange属性值为25,编写适当的事件过程。程序运行后,可以使图像框闪烁,其闪烁速度可以通过滚动条调节。
提示:图像框的闪烁可以通过图像框交替地显示和隐藏来实现。
Private Sub HScroll1_Change()
rval = e
End Sub
Private Sub Timer1_Timer()
ble = Not ble
End Sub
(2)在考生目录下有一个工程文件,包含了所有控件和部分程序,如图所示。
要求:1)利用属性窗口设置适当的属性:
为List1列表框添加3个项目:宋体、黑体、楷体_GB2312;Text1文本框设置初始值为“计算机”;Hscroll1水平滚动条设置最小值和最大值分别为10和50。
2)去掉程序中的注释符,把程序中的?改为正确的内容,完成以下功能:如果在列表框中选择一种字体,然后移动滚动条中的滚动框,则可使文本框中的文字按所选择的字体显示,并可随着滚动框的移动放大或缩小;如果不选择字体直接移动滚动框,则显示一个信息框,提示“请选择字体”。
注意:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub HScroll1_Change()
Size = e
' Size = ?
If <> "" Then
Name =
' Name = ?
Else
MsgBox "请选择字体", , ""
End If
End Sub
3.综合应用(1小题,计30分)
在考生目录下有一个工程文件,其中的窗体中有一个名为Text1的文本框,初始内容为0;一个标签;一个计时器;一个有两个元素的单选按钮数组,名称为Op1,标题依次为“1秒”、“3秒”;两个命令按钮,名称分别为C1、C2,标题分别为“开始计数”、“停止计数”,同时给出了两个事件过程,但并不完整。在运行时要完成下面的功能:
单击一个单选按钮,可以设置计时间隔为1秒或3秒;单击“开始计数”,则Text1中的数按设定的计时间隔每次加1;单击“停止计数”,则Text1中的数不再变化。
请按下面的`要求设置属性和编写程序,以便实现上述功能:
1)设置计时器的属性,使其在初始状态下不计时。
2)去掉程序中的注释符,把程序中的?改为正确的内容。
3)为两个命令按钮编写适当的事件过程,每个事件过程中只能有一条语句,不能使用变量。
'要求考生编写的程序:
Private Sub C1_Click()
led = True
'或 led = 1 或非0值
'在 Timer1的前面可以加:Me. 、Form1. 、nt.
End Sub
Private Sub C2_Click()
led = False
'或 led = False
'在 Timer1的前面可以加:Me. 、Form1. 、nt.
End Sub
'提供给考生的程序:
Private Sub Op1_Click(Index As Integer)
' Select Case ?
Select Case Index
Case 0
rval = 1000
Case 1
rval = 3000
End Select
End Sub
Private Sub Timer1_Timer()
' = ? + 1
= + 1
End Sub
'答案:
'Index
'Text1
2016年计算机VB二级考试上机题及答案
2016年计算机二级《VB》考试试题及答案
2016年9月计算机二级考试VB考试试题及答案
2016最新计算机二级《VFP》上机考试题及答案
2016计算机等级考试二级VB模拟试题及答案
2016计算机二级vb考试题及答案
2016年计算机二级考试VB测试题及答案
2016最新计算机二级VF考前试题及答案
2016计算机VB二级考试上机题及答案
计算机二级考试《VB》操作试题及答案2016
2016计算机二级考试《VB》模拟试题及答案
2016下半年计算机二级vb考试试题及答案
2016年9月计算机二级vb考试试题及答案
2016计算机二级考试试题VB练习题及答案
2016年计算机二级VB语言考试试题及答案
2017计算机等级考试vb二级试题及答案
计算机二级VB考试题及答案
2017计算机二级考试《VB》单选试题及答案
2016年9月计算机二级VB考试题库及答案
2017计算机二级VB考试题及答案
2016年9月计算机二级VB考前冲刺试题及答案
2016年计算机二级vb试题及答案
计算机二级考试真题以及答案
2016计算机二级考试VB语言练习题及答案
2017年9月计算机二级VB考试试题及答案
2017年计算机二级VB考试题及答案
计算机二级VB模拟试题及答案2016
计算机二级VB考试上机操作题及答案2017
2016年计算机二级vb试题库及答案
2016年9月计算机二级《VB》备考试题及答案
2017年3月计算机二级考试VB备考试题及答案
2016年计算机二级VB上机试题及答案
2016年计算机二级考试《VB》冲刺题及答案
2016最新计算机二级C上机考试试题及答案
2016年计算机二级VB语言考试试题及答案
考试试题及答案参考
计算机二级《VB》考前冲刺试题及答案2016
2016年全国计算机二级vb考试题库及答案
2016年12月计算机二级VB备考试题及答案
2016年计算机二级考试《VB》练习题及答案