《2022年[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案 2.pdf》由会员分享，可在线阅读，更多相关《2022年[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案 2.pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、全国高等学校（安徽考区）计 算 机 水 平 考 试 试 卷（二级Visual Basic 语言）一、单项选择题（每题1 分，共 40 分）1计算机硬件系统中最核心的部件是 1 。A）内存储器B）输入 / 输出设备C ）CPU D）硬盘2计算机最早的应用领域是 2 。A）科学计算B）图形处理C ）过程控制D）人工智能3下列属于文字处理软件的是 3 。A）Windows B）Word C ）PowerPoint D）Excel 4在计算机系统内部，所有数据都是采用 4 表示。A）十六进制B）十进制C ）八进制D）二进制5在 Windows系统中，下面文件命名合法的是 5 。A）A*.DOC B）A
2、B.DOC C ）A?.DOC D）A.DOC 6计算机可以播放DVD等音像制品 , 主要运用的是 6 技术。A）多媒体B）人工智能C ）数据库D）数据挖掘7将文件从FTP服务器传输到本地计算机的过程称为 7 。A）上传B）浏览C ）查找D）下载8下列 IP 地址中，错误的是 8 。A）219.231.10.155 B ）192.168.5.1 C）219.260.20.12 D ）192.10.6.7 9下列关于计算机病毒的叙述中，正确的是 9 。A）加密文件不会感染计算机病毒B）系统软件不会感染计算机病毒C）有防火墙的计算机系统也会感染病毒D）压缩的文件不会感染计算机病毒10计算机能直接运
3、行的是 10 。A）目标程序B）机器语言程序C ）汇编语言程序D）高级语言程序11下列选项中是Visual Basic的合法变量名的是 C 。A）1_abc B）abc-1 C ）abc_1 D）abc.1 12对正整数X、Y，有下列表达式，不能判断X能被 Y 整除的是 C 。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 9 页 - - - - - - - - - A）X/Y=Int(X/Y) B ）X Mod Y =0 C）XY=Fix(X/Y) D ）XY=X/Y
4、13下面可以正确定义2 个整形变量和一个字符型变量的语句是 B 。A）Dim x, y As Integer, n As String B) Dim x%, y As Integer, n As String C) Dim x%, y$, n As String D) Dim x As Integer, y, n As String 14下面表达式中， A 的运算结果与其他三个不同。A）Exp(-3.5) B）Int(-3.5)+0.5 C ）-Abs(-3.5) D） Sgn(-3.5)-2.5 15将任意一个正的两位整数N 的个位数与十位数对换的表达式为 A 。A） （N-Int(N/10
5、)*10）*10+Int(N/10) B ）N-Int(N)/10*10+Int(N)/10 C）Int(N/10)+(N-Int(N/10) D ）(N-Int(N/10)*10+Int(N/10) 16执行语句s = Mid(VisualBasic,1,6)后， s 的值是 A 。A) Visual B) Basic C) 6 D) 11 17表达式5 Mod 3+35*2的值是 B 。A）0 B）2 C ）4 D）6 18选拔性别S是女，身高T 超过 1.6 米且体重 W小于 62.5 公斤的人，表示该条件的表达式为 C 。A) S= 女 And T=1.6 And W1.7 Or W1
6、.6 And W62.5 D) S=女 Or T=62.5 19可以强行中断程序运行的操作是 D A) 按 Ctrl+C键B) 按 Ctrl+Z键C) 按 Ctrl+V键D) 按 Ctrl+Break键20在默认条件下有数组声明语句：Dim A(2, -2 to 2, 3)，则数组 A 包含 D 个元素。A) 200 B) 120 C) 75 D) 60 21已设置数组元素下标从1 开始，下列程序段运行时会提示出错，出错的原因是 C 。a = Array(1, 2, 3, 4) For i = 4 To 1 Step -1 Print a(i) Next i Print a(i) A）第三行，
7、数组元素a(i) 下标越界B ）第一行，数组没定义，不能直接赋值C）第五行，数组元素a(i) 下标越界D ）第二行，循环语句格式不对22下列语句不合法的是 D 。A）x = 1: y = 2 B）Print x; y; C ）Print x, y, D）x=1;y=2 23当 0 x10 时，将 x 赋值给 y，应使用语句 C 。A) If 0 x10 Then y=x B) If 0 x Or x10 Then y=x C) If 0 x And x10 then y=x D) If 0 x Xor x10 Then y=x 24以下叙述中正确的是 A 。A) 窗体的 Name属性指定窗体的
8、名称，用来标识一个窗体B) 窗体的 Name属性值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的Name属性值D) 对象的 Name属性值可以为空25当启动程序时，系统自动执行启动窗体的 A 事件过程。A) Load B) Unload C) Click D) DblClick 26将数据项 China 添加到列表框List1中成为第 3 项，应使用 B 语句。A）List1.AddItem China， 3 B ）List1.AddItem China，2 C）List1.AddItem 3，China D ）List1.AddItem 2，China 27若要使标签框的大小自动与
9、所显示的文本相适应，则可通过设置其 A 属性值为True名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 9 页 - - - - - - - - - 来实现。A）AutoSize B）Alignment C ）Appearance D）Visible 28复选框或单选按钮的当前状态通过 A 属性来设置或访问。A) Value B) Checked C) Selected D) Caption 29要将列表框List1中当前选中的一项删除，应执行的语句是 D 。A) List
10、1.Clear B) list1.Clear List1.ListIndex C) List1.Delete List1.ListIndex D) List1.RemoveItem List1.ListIndex 30下列控件可以用作其他控件容器的有 D 。A) 窗体，标签，图片框B) 窗体，框架，文本框C) 窗体，图像，列表框D) 窗体，框架，图片框31因修改文本框的内容而触发的事件是 A 。A) Change B) GotFocus C) LostFocus D) SetFocus 32如果每秒触发10 次计时器的Timer 事件，那么计时器的Interval属性应设为 C 。A) 1 B
11、) 10 C) 100 D) 1000 33下列对象中不能获得焦点的是 B 。A）命令按钮控件B）标签控件C ）文本框控件D）单选按钮控件34设 x=4，y=8，z=7，表达式 xz) Or z=8 B）x=7 D）x Max Then Max = (7) End if Next i Print 最大值是： ; Max End Sub 6. 下列程序的功能是计算22222123(1)sumNN（N是偶数），试填空完成以下程序。Private Sub Command2_Click() Dim S As Double Dim I As Integer, N As Integer Dim C As
12、Integer S = 0: I = 1: C = 1 N = Val(InputBox(请输入大于零的偶数N：) Do S = S + C * I * I C = (8) 正负号切换 I = (9) 循环变量增加 Loop While (10) 循环结束条件End Sub 三、阅读理解题（每小题4 分，共 20 分）1执行下列程序后，输出的结果是：(1)名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 9 页 - - - - - - - - - Private Sub F
13、orm_Click() Dim x As Integer x = 10 Select Case x Case Is = 10 Print x & x Case 7, 8, 9 Print x + x Case 0 To 6 Print x End Select End Sub 2执行下列程序后，输出的结果是：(2)Private Sub Form_Click() Dim i As Integer Dim t As String st = For i = 1 To 12 字符串逐字符处理If i Mod 3 = 0 Then st = Mid(Visual Basic, i, 1) + st E
14、nd If Next i Print st End Sub 3执行下列程序后，输出的结果是：(3)Private Sub Form_Click() Dim s As Integer, n As Integer s = 0 n = 1 Do s = s + n * n If s 50 Then Exit Do 强制跳出循环End If n = n + 1 循环变量自增Loop Until n 6 Print s End Sub 4执行下列程序后，输出的结果是：(4)Option Base 1 Private Sub Form_Click() 名师资料总结 - - -精品资料欢迎下载 - - -
15、- - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 9 页 - - - - - - - - - Dim a(4, 4) As Integer Dim i As Integer, j As Integer Dim count As Integer, s As Integer count = 1 For i = 1 To 4 给二维数组赋值并累加特殊位置的元素值For j = 1 To 4 a(i, j) = count count = count + 1 If i = 1 Or i = 4 Or j = 1 Or j = 4 Th
16、en s = s + a(i, j) End If Next j Next i Print s End Sub 5执行下列程序后，E 盘下 tdata.txt 文件中的内容是：(5)Private Sub Form_Click() For i = 1 To 5 s = s + fun(i) Next i Open e:tdata.txt For Output As #1 打开顺序文件Print #1, s Close #1 End Sub Private Function fun(ByV al i As Integer) As Integer Static a a = a + 1 fun =
17、a * i End Function 四、编程题（共20 分）1编写一个Function 函数 fun，求解如下分段函数的值（x 为实型变量的函数形参） （6 分）2编写程序，利用随机函数产生10 个10 ，100之间的整数，并存入数组中，求出该数组Y= -x x10 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 9 页 - - - - - - - - - 中最大数与最小数之差并在窗体上输出结果。（7 分）3假定在E 盘下有一文件data.dat，其内容为三个点的坐标，
18、内容样式如下每一行的前1 个数据表示点的横坐标x，后一个数据表示点的纵坐标y。编写程序读取文件中的数据，并判断该三点能否构成三角形。（7 分）提示： 利用任意两边之和大于第三边来判定三角形。边长 L= 221212()()xxyy，其中（ x1,y1）及（ x2,y2）为两点坐标。Visual BASIC 程序设计（语种代号：211） （B）卷参考答案及评分标准一、单项选择题（每题1 分，共 40 分）1 - 5 C A BD B6-10 AD CC B11-15 CC BA A16-20 A BCD D21-25 CD C A A26-30 BA A D D31-35 A C BD B36-
19、40 A BCD D二、填空题（每空2 分，共 20 分）1 (x+y)3*(t+u)2/t/(x-y) 6 62 x=-7.5 7 arr1(i)3 y mod 4=0 and y mod 10008 -1*C 4 Int(81*rnd)+109 I+15 i mod 4=010 I=N说明：不区分大小写，其他答案只要正确参照给分。三、阅读理解题（每小题4 分，共 20 分）序号参考答案评分标准1 1010 2 cals 3 55 4 1025 30 注：其他情况酌情给分4,8 2,6 3,8 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - -
20、- - - - 名师精心整理 - - - - - - - 第 7 页，共 9 页 - - - - - - - - - 四、编程题（共20 分）序号参考程序评分标准1 参考程序1：Private Function FUN(ByVal x As Single) As Single Dim y As Single If x 0 Then y = -x ElseIf x = 10 Then y = x * x Else y = 100 End If FUN = y End Function程序正确得6分，其中：Functi on函数格式正确得 2分IF 语 句正确（使用 IF嵌套及 Sel e ct语
21、句正确） 得 2分函数值返回正确得2分2 参考程序1：Dim a(9) As Integer Dim i As Integer, max As Integer, min As Integer For i = 0 To 9 a(i) = Int(Rnd * 91)+10 Next i max = -1 ：min = 999 For i = 0 To 9 If max a(i) Then min = a(i) Next i Print 最大及最小数之差为; max - min 参考程序2： （排序计算）Dim a(9) As Integer Dim i As Integer, max As Int
22、eger, min As Integer For i = 0 To 9 a(i) = Int(Rnd * 91)+10 Next i For i = 0 To 8 For j = i + 1 To 9 If a(i) l3 And l2 + l3 l1 And l1 + l3 l2 Then MsgBox ( 文件中三点能构成三角形) Else MsgBox ( 文件中三点不能构成三角形) End If 程序正确得7分，其中：正确使用文件打开语句得2分文件数据正确读取得2分求边长表达式正确得1分三角形判定表达式正确得1分输出语句正确使用得1分注： 其他解法可参照给分名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 9 页 - - - - - - - - -