《Lqwvej考试中心安徽省计算机二级VB笔试权威模拟试题及答案(共8页).doc》由会员分享，可在线阅读，更多相关《Lqwvej考试中心安徽省计算机二级VB笔试权威模拟试题及答案(共8页).doc（8页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上|生活|一个人总要走陌生的路，看陌生的风景，听陌生的歌，然后在某个不经意的瞬间，你会发现，原本费尽心机想要忘记的事情真的就这么忘记了. |-郭敬明全国高等学校（安徽考区）计 算 机 水 平 考 试 试 卷B（二级 Visual Basic 语言）一、单项选择题（每题1分，共40分）1计算机硬件系统中最核心的部件是 C 。 A）内存储器 B）输入/输出设备 C）CPU D）硬盘2计算机最早的应用领域是 A 。A）科学计算 B）图形处理 C）过程控制 D）人工智能3下列属于文字处理软件的是 B 。A）Windows B）Word C）PowerPointD）Excel4在
2、计算机系统内部，所有数据都是采用 D 表示。A）十六进制 B）十进制 C）八进制 D）二进制5在Windows系统中，下面文件命名合法的是 B 。A）A*.DOC B）AB.DOC C）A?.DOC D）A.DOC6计算机可以播放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下列关于计算机病毒的叙述中
3、，正确的是 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.112对正整数X、Y，有下列表达式，不能判断X能被Y整除的是 C 。A）X/Y=Int(X/Y) B）X Mod Y =0 C）XY=Fix(X/Y) D）XY=X/Y13下面可以正确定义2个整形变量和一个字符型变量的语句是 B 。A
4、）Dim x, y As Integer, n As StringB) Dim x%, y As Integer, n As StringC) Dim x%, y$, n As StringD) Dim x As Integer, y, n As String14下面表达式中， A 的运算结果与其他三个不同。A）Exp(-3.5)B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.515将任意一个正的两位整数N的个位数与十位数对换的表达式为 A 。A）（N-Int(N/10)*10）*10+Int(N/10)B）N-Int(N)/10*10+Int(N)/10
5、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) 1117表达式5 Mod 3+35*2的值是 B 。A）0 B）2 C）4 D）618选拔性别S是女，身高T超过1.6米且体重W小于62.5公斤的人，表示该条件的表达式为 C 。A) S=女 And T=1.6 And W1.7 Or W1.6 And W62.5D) S=女 Or T=62.519可以强行中断程序运行的操作是 D 。A) 按Ctrl+C键B)
6、按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 -1Print a(i)Next iPrint a(i)A）第三行，数组元素a(i)下标越界 B）第一行，数组没定义，不能直接赋值C）第五行，数组元素a(i)下标越界 D）第二行，循环语句格式不对22下列语句不合法的是
7、 D 。A）x = 1: y = 2 B）Print x; y; C）Print x, y, D）x=1;y=223当0x10时，将x赋值给y，应使用语句 C 。A) If 0x10 Then y=xB) If 0x Or x10 Then y=xC) If 0x And x10 then y=xD) If 0x Xor x10 Then y=x24以下叙述中正确的是 A 。A) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的Name属性值D) 对象的Name属性值可以为空25当启动程序时，系统自动执行启动窗
8、体的A 事件过程。A) Load B) Unload C) Click D) DblClick26将数据项China添加到列表框List1中成为第3项，应使用 B 语句。A）List1.AddItem China，3 B）List1.AddItem China，2C）List1.AddItem 3，China D）List1.AddItem 2，China27若要使标签框的大小自动与所显示的文本相适应，则可通过设置其 A 属性值为True来实现。A）AutoSize B）Alignment C）Appearance D）Visible28复选框或单选按钮的当前状态通过 A属性来设置或访问。A)
9、 ValueB) Checked C) Selected D) Caption29要将列表框List1中当前选中的一项删除，应执行的语句是 D 。A) List1.ClearB) list1.Clear List1.ListIndexC) List1.Delete List1.ListIndexD) List1.RemoveItem List1.ListIndex30下列控件可以用作其他控件容器的有 D 。A) 窗体，标签，图片框 B) 窗体，框架，文本框C) 窗体，图像，列表框D) 窗体，框架，图片框31因修改文本框的内容而触发的事件是 A 。A) ChangeB) GotFocusC) L
10、ostFocusD) SetFocus32如果每秒触发10次计时器的Timer事件，那么计时器的Interval属性应设为 C 。A) 1 B) 10 C) 100 D) 100033下列对象中不能获得焦点的是 B 。A）命令按钮控件B）标签控件C）文本框控件D）单选按钮控件34设x=4，y=8，z=7，表达式xz) Or z=8B）x=7D）x=737执行语句Open D:RandFile.dat For Output As #1后，对文件“D:RandFile.dat”能够进行的操作是 B 。A）只能读不能写 B）只能写不能读C）既可以写，也可以读 D）既不能读，也不能写38要在运行时暂时
11、关闭计时器，可通过赋值语句使计时器的 C 属性值为False。A）IndexB）Tag C）Enable D）Interval39Visual Basic 中数据库的访问技术不包括 D 。A）ADO B）DAO C）RDO D）DBMS40下列关于菜单的论述中，错误的是 D 。A）菜单项是控件，也具有属性B）菜单项只有Click事件C）不能在顶层菜单加快捷键D）在程序运行过程中，不能通过赋值语句设置菜单项的属性二、填空题（每空2分，共20分）1. 数学表达式的Visual Basic表达式是： (x+y)3*(t+u)2/t/(x-y) 。2. 关系式-7.5x7.5所对应的逻辑表达式是： x
12、=-7.5 。3. 以下程序用于判断输入的年份是否闰年，如果年份能被4整除但不能被100整除,或者年份能被400整除，则该年是闰年，否则不是闰年，请填空完善程序。Private Sub Command1_Click()y = Val(InputBox(请输入一个年份)If y mod 4=0 and y mod 1000 Or y Mod 400 = 0 ThenPrint Str(y) & 年是闰年！ElsePrint Str(y) & 年不是闰年！End IfEnd Sub4. 利用随机函数产生20个10,90之间的随机整数，每行输出4个整数。填空完成以下程序。Private Sub Fo
13、rm_Click() Dim sum As Integer, x As Integer Randomize For i = 1 To 20 x = Int(81*rnd)+10 用随机函数产生1090之间的整数 Print x; If i mod 4=0 Then Print 满足换行条件时换行 Next i End Sub5. 下列程序的功能是在数组中找出数值最大的元素，请填空完善程序。Private Sub Command1_Click()Dim arr1 as Variant, Max As Integerarr1 = Array(12, 34, 10, 78, 4, 89, 45)Ma
14、x = arr1(0)For i = 1 To 6 If arr1(i) Max Then Max = arr1(i) End ifNext iPrint 最大值是：; MaxEnd Sub6. 下列程序的功能是计算（N是偶数），试填空完成以下程序。Private Sub Command2_Click()Dim S As DoubleDim I As Integer, N As IntegerDim C As IntegerS = 0: I = 1: C = 1N = Val(InputBox(请输入大于零的偶数N：) Do S = S + C * I * I C = -1*C 正负号切换 I
15、 = I+1 循环变量增加 Loop While I= 10Print x & xCase 7, 8, 9Print x + xCase 0 To 6Print xEnd SelectEnd Sub 2执行下列程序后，输出的结果是： cals Private Sub Form_Click()Dim i As IntegerDim t As Stringst = For i = 1 To 12 字符串逐字符处理If i Mod 3 = 0 Thenst = Mid(Visual Basic, i, 1) + stEnd IfNext iPrint stEnd Sub 3执行下列程序后，输出的结果
16、是： 55 Private Sub Form_Click()Dim s As Integer, n As Integers = 0n = 1 Dos = s + n * nIf s 50 ThenExit Do 强制跳出循环End Ifn = n + 1 循环变量自增Loop Until n 6Print sEnd Sub 4执行下列程序后，输出的结果是： 102 Option Base 1Private Sub Form_Click()Dim a(4, 4) As IntegerDim i As Integer, j As IntegerDim count As Integer, s As
17、Integercount = 1For 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 Then s = s + a(i, j) End If Next jNext iPrint sEnd Sub 5执行下列程序后，E盘下tdata.txt文件中的内容是： 30 Private Sub Form_Click()For i = 1 To 5s = s + fun(i)Next iOpen e:tdata.txt Fo
18、r Output As #1 打开顺序文件Print #1, sClose #1End SubPrivate Function fun(ByVal i As Integer) As IntegerStatic aa = a + 1fun = a * iEnd Function 四、编程题（共20分）1编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）Y=-x x10 答：Private Function FUN(ByVal x As Single) As SingleDim y As SingleIf x 0 Theny = -xElseIf x = 1
19、0 Theny = x * xElsey = 100End IfFUN = yEnd Function2编写程序，利用随机函数产生10个10，100之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。（7分）答：Dim a(9) As Integer Dim i As Integer, max As Integer, min As IntegerFor i = 0 To 9a(i) = Int(Rnd * 91)+10 Next imax = -1：min = 999For i = 0 To 9 If max a(i) Then min = a(i)Next iPrint 最大及最小数之差为; max - min 参考程序2：（排序计算）Dim a(9) As Integer Dim i As Integer, max As Integer, min As IntegerFor i = 0 To 9a(i) = Int(Rnd * 91)+10 Next iFor i = 0 To 8 For j = i + 1 To 9 If a(i) l3 And l2 + l3 l1 And l1 + l3 l2 ThenMsgBox (文件中三点能构成三角形)ElseMsgBox (文件中三点不能构成三角形)End If专心-专注-专业