安徽省计算机二级VB

安 徽 省 二 级 （二级 Visual Basic 语言） 一、单项选择题（每题1分，共40分） 1．计算机硬件系统中最核心的部件是 C 。 A）内存储器 B）输入/输出设备 C）CPU D）硬盘 2．计算机最早的应用领域是 A 。 A）科学计算 B）图形处理 C）过程控制 D）人工智能 3．下列属于文字处理软件的是 B 。 A）Windows B）Word C）PowerPoint D）Excel 4．在计算机系统内部，所有数据都是采用 D 表示。 A）十六进制 B）十进制 C）八进制 D）二进制 5．在Windows系统中，下面文件命名合法的是 B 。 A）A*.DOC B）AB.DOC C）A?.DOC D）A>.DOC 6．计算机可以播放DVD等音像制品, 主要运用的是 A 技术。 A）多媒体 B）人工智能 C）数据库 D）数据挖掘 7．将文件从FTP服务器传输到本地计算机的过程称为 D 。 A）上传 B）浏览 C）查找 D）下载 8．下列IP地址中，错误的是 C 。 A）219.231.10.155 B）192.168.5.1 C）219.260.20.12 D）192.10.6.7 9．下列关于计算机病毒的叙述中，正确的是 C 。 A）加密文件不会感染计算机病毒 B）系统软件不会感染计算机病毒 C）有防火墙的计算机系统也会感染病毒 D）压缩的文件不会感染计算机病毒 10．计算机能直接运行的是 B 。 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 。 A）X/Y=Int(X/Y) B）X Mod Y =0 C）X\Y=Fix(X/Y) D）X\Y=X/Y 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)*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+3\5*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 W<=62.5 B) S="女" Or T>1.7 Or W<62.5 C) S="女" And T>1.6 And W<62.5 D) S="女" Or T<=1.7 Or W>=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）第三行，数组元素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．当0z) Or z=8 B）x<=8 C）x>=7 D）x<=7 37．执行语句Open "D:\RandFile.dat" For Output As #1后，对文件"D:\RandFile.dat"能够进行的操作是 B 。 A）只能读不能写 B）只能写不能读 C）既可以写，也可以读 D）既不能读，也不能写 38．要在运行时暂时关闭计时器，可通过赋值语句使计时器的 C 属性值为False。 　　A）Index B）Tag C）Enable D）Interval 39．Visual Basic 中数据库的访问技术不包括 D 。 A）ADO B）DAO C）RDO D）DBMS 40．下列关于菜单的论述中，错误的是 D 。 　　A）菜单项是控件，也具有属性 　　B）菜单项只有Click事件 　　C）不能在顶层菜单加快捷键 　　D）在程序运行过程中，不能通过赋值语句设置菜单项的属性 二、填空题（每空2分，共20分） 1. 数学表达式的Visual Basic表达式是： (x+y)^3*(t+u)^2/t/(x-y) 。 2. 关系式-7.5≤x≤7.5所对应的逻辑表达式是： x<=7.5 and x>=-7.5 。 3. 以下程序用于判断输入的年份是否闰年，如果年份能被4整除但不能被100整除,或者年份能被400整除，则该年是闰年，否则不是闰年，请填空完善程序。 Private Sub Command1_Click() 　y = Val(InputBox("请输入一个年份")) 　If y mod 4=0 and y mod 100<>0 Or y Mod 400 = 0 Then Print Str(y) & "年是闰年！" 　Else Print Str(y) & "年不是闰年！" 　End If End Sub 4. 利用随机函数产生20个[10,90]之间的随机整数，每行输出4个整数。填空完成以下程序。 Private Sub Form_Click() Dim sum As Integer, x As Integer Randomize For i = 1 To 20 x = Int(81*rnd)+10 '用随机函数产生[10~90]之间的整数 Print x; If i mod 4=0 Then Print '满足换行条件时换行 Next i End Sub 5. 下列程序的功能是在数组中找出数值最大的元素，请填空完善程序。 　　　Private Sub Command1_Click() 　　　　Dim arr1 as Variant, Max As Integer 　　　　arr1 = Array(12, 34, 10, 78, 4, 89, 45) 　　　　Max = arr1(0) 　　　　For i = 1 To 6 If arr1(i) > Max Then Max = arr1(i) End if 　　　　Next i 　　　　Print "最大值是："; Max 　　　End Sub 6. 下列程序的功能是计算（N是偶数），试填空完成以下程序。 Private Sub Command2_Click() Dim S As Double Dim I As Integer, N As Integer Dim C As Integer S = 0: I = 1: C = 1 N = Val(InputBox("请输入大于零的偶数N：")) Do S = S + C * I * I C = -1*C '正负号切换 I = I+1 '循环变量增加 Loop While I<=N '循环结束条件 End Sub 三、阅读理解题（每小题4分，共20分） 1．执行下列程序后，输出的结果是： 1010 Private Sub Form_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．执行下列程序后，输出的结果是：