没有合适的资源?快使用搜索试试~ 我知道了~
2020年安徽省计算机水平考试【VB二级】模拟试题汇编.pdf
所需积分/C币: 46 浏览量·596 PDF 960KB 2020-12-21 20:31:17 上传
身份认证 购VIP最低享 7 折!

2020年安徽省计算机水平考试【VB二级】模拟试题汇编,带参考答案。
资源推荐
资源详情
资源评论








1 / 38
2020 下半年【VB 二级】模拟卷(1)
一、单项选择题(每题 1.5 分,共 30 分)
1.以下叙述中错误的是___c_。
A.在VB的窗体中,一个命令按钮是一个对象
B.事件是能够被对象识别的状态变化或动作
C.事件都是由用户的键盘操作或鼠标操作触发的
D.不同的对象可以具有相同的方法
2. 假设变量i为整型变量,下面不能正常执行的语句是_A___。
A.i = 32768 * 2
B.i = 32768 * 0.5
C.i = 19 ^ 2
D.i = 1638 * 2
3. 下列语句中有非法调用的是___B_。
A. x = Sgn(-1)
B. x = Sqr(-1)
C. x = Int(-1)
D. x = Asc("A")
4. 逻辑表达式Not "a">"b" And 6<3 Or 9>3的值为_A___。
A. True
B. False
C. 0
D. 1
5. 表达式Mid("ABCD",2,2)>Left("ABCD",2)的值为__A__。
A. True
B.False
C.0
D.-1
6. 执行语句 x = InputBox("您好!",1,"2019"),所产生的对话框的标题是__D__。
A. 您好!
B. 2019
C. 0
D. 1
7. 表达式Int(Rnd*6)+1产生的是__B__区间的随机整数。
A. [0,6]
B. [1,6]
C. [1,7]
D. [2,6]
8. 设x=10,执行语句If x Then x=1 Else x=-1后,x的值是___C_。
A. 实时错误
B. 编译错误
C. 1
D. -1

2 / 38
9. 以下循环体的执行次数是___B_。
For k = 10 To 0 Step 3
Print "你好"
Next k
A. 12
B. 0
C. -11
D. -10
10. 如果要改变窗体的背景颜色,需要设置的属性是___C_。
A. Caption
B. Name
C. BackColor
D. BorderStyle
11. 若要使标签的大小自动与所显示的文本相适应,则可通过设置_A___属性的值为True来
实现。
A. AutoSize
B. Alignment
C. Appearance
D. Visible
12. 复选框的Value属性值为0时,表示__B__。
A. 复选框被选中
B. 复选框未被选中
C. 复选框内有灰色的勾
D. 复选框操作错误
13. 列表框List1用于显示若干城市的名称,单击其中某个城市名时,标签Label1中显示所
选中城市名称,正确的语句是___C_。
A. Label1.Caption = List1.ListIndex
B. Label1.Name = List1.ListIndex
C. Label1.Caption = List1.Text
D. Label1.Name = List1.Text
14. 以下对图像框的描述,正确的是_D___。
A. 可以通过Print方法在图像框中输出文本
B. 不可以使用LoadPicture函数来清空图像框中的图形
C. 图像框控件可以作为容器使用
D. 用 Stretch 属性可以自动调整图像框中图形的大小
15. 拖动滚动条滑块过程中触发的是_D___事件。
A. Change
B. Click
C. KeyUp
D. Scroll
16. 目录列表框的Path属性作用是A____。
A. 显示当前驱动器或指定驱动器上的路径
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名

3 / 38
D. 只显示当前路径下的文件名
17. 默认数组下界为0,并有数组声明语句:Dim A(3,-2 to 2, 5),则数组A包含___B_个
元素。
A. 200
B. 120
C. 75
D. 60
18. 对于过程中定义的局部变量,为了保证退出过程后仍能够保存该变量的值,应使用
_B___关键字定义该变量。
A. Dim
B. Static
C. Public
D. Private
19. 下列几个关键字均表示文件的打开方式,只能进行读不能写的是__A__。
A. Input
B. Output
C. Random
D. Append
20. VB中数据库的访问技术不包括___D_。
A. ADO
B. DAO
C. RDO
D. DBMS
二、程序改错题(共 10 分)
注意事项:以下程序有 2 处错误,错误均在"'*ERROR*"注释行,请直接在该行修改。不得
增加或减少程序行数,也不得删除或修改错误标记'*ERROR*。
窗体Form1.frm中程序的功能是:单击删除按钮,删除Text1中和Text2相同的字符串,
并将新的字符串显示在标签Label1中。(例如:在Text1中输入“abcdefgh”,Text2中输入
“def”,单击删除按钮,在Label1中显示“abcgh”)
程序运行效果如下图所示:
程序代码如下:
Private Sub Command1_Click()
Dim x$, y$, n%
x = Text1.Text

4 / 38
y = Text2.Text
Do
n = InStr(x, y) '查找字符串y在字符串x的起始位置
If n = 0 Then Exit '*ERROR*
x = Left(x, n - 1) + Right(x, Len(x) - Len(y) - n + 1)
Loop
Label1.Text = x '*ERROR*
End Sub
参考答案
*ERROR* If n=0 Then Exit Do
*ERROR* Labe11.Caption=x
三、基本操作题(共 15 分)
注意事项:请勿删除考生文件夹中的内容,否则将影响考生成绩。
在考生文件夹下\基本操作题\文件夹中,完成以下要求:
1.启动工程文件sjt1.vbp,将工程名称改为“spks”,窗体文件sjt1.frm的窗体名称
改为“vbcz”,窗体的标题改为“字号调整”;
2.在窗体上添加以下控件:
文本框Text1,最多可输入6个字符,内容为“不忘初心”,字体为“宋体小一”,文
字颜色为红色(&H000000FF&);
标签Label1,可自动调整大小,标题为“当前字号”,文字颜色为蓝色
(&H00FF0000&);
文本框Text2,内容为“10”,字体为“宋体四号”;
垂直滚动条Vscroll1,取值范围为[1,36],当前Value值为10,单击Vscroll1箭头
时,Value改变值为2,单击Vscroll1区域时,Value改变值为6。
程序运行效果如下图所示:
四、简单应用题(共 15 分)
注意事项:请勿删除考生文件夹中的内容,否则将影响考生成绩。
在考生文件夹下\简单应用题\文件夹中,完成以下要求:
1.启动工程文件sjt2.vbp,打开窗体文件sjt2.frm;
2.编写Form_Load()事件:在Combo1中按照“+”、“-”、“*”、“/”的顺序,添加
四个运算符;
3.编写Command1_Click()事件:在Text1和Text2中分别输入一个数,选择Combo1中的
运算符,单击Command1完成相应的运算,并将计算结果放入文本框Text3中(要求使用
Select Case结构);

5 / 38
4.调试、运行该程序,将工程、窗体保存并生成可执行文件sjt2.exe。
程序运行效果如下图所示:
注:窗体上已添加的控件包括:文本框 Text1 和 Text2,用于输入数字,文本框 Text3,
用于显示运算结果;组合框 Combo1,用于选择运算符;命令按钮 Command1,标题为“=”。
参考程序如下:
参考程序如下:
Private Sub Form_Load()
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "*"
Combo1.AddItem "/"
End Sub
Private Sub Command1_Click()
Dim a As Single, b As Single, x As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
Select Case Combo1.Text
Case "+"
x = a + b
Case "-"
x = a - b
Case "*"
x = a * b
Case "/"
x = a / b '除数不能为 0
End Select
Text3.Text = x
End Sub
五、综合应用题(共 30 分)
注意事项:请勿删除考生文件夹中的内容,否则将影响考生成绩。
在考生文件夹下\综合应用题\文件夹中,完成以下要求:
1.启动工程文件 yyt.vbp,在窗体 Form1 上添加菜单,格式与内容如下:
事件 窗体(W)
单击 显示
双击 隐藏
─────
退出 Ctrl+X
其中,括号内的字符为热键;分隔条的名称为 fgt,其他菜单项的名称与标题相同,但
剩余37页未读,继续阅读
资源评论

rfxia
- 粉丝: 10
- 资源: 21

上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
已下载
下载帮助

相关资源
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈



安全验证
文档复制为VIP权益,开通VIP直接复制
