(新)江苏省计算机二级VB模拟试卷1(新版)

1、所谓的光辉岁月，并不是以后，闪耀的日子，而是无人问津时，你对梦想的偏执。江苏省高等学校计算机等级考试二级 Visual Basic 考试模拟试卷1(本试卷完成时间 120分钟)第一部分 计算机基础知识1 .下列不同进位制的四个数中，最小的数是 A.二进制数1100010B.十进制数 65C.八进制数77D.十六进制数452 .下列关于PC机主板的叙述正确的是 (2)。A.不同厂家生产的主板，尺寸各不相同B.主板上安装有存储器芯片，如 ROM芯片、CMOS芯片等C. CPU是直接固定在主板上的，不可更换D.主板上安装有电池，在计算机断开交流电后，临时给计算机提供电流，供计算机工作3 .下面关于

2、BIOS的一些叙述正确的是 。A. BIOS是存放于ROM中的一组高级语言程序B. BIOS中含有系统工作时所需的全部驱动程序C. BIOS系统由加电自检程序、系统主引导记录的装入程序、CMOS设置程序、基本外围设备的驱动程序组成D.没有BIOS的PC机也可以正常启动工作4 .计算机软件(简称软件)指的是能指挥计算机完成特定任务的、以电子格式存储的程序、数 据和相关的文档。在下列有关软件的叙述中，错误的是_(4)_。A.软件的版权所有者不一定是软件作者B.自由软件指的是一种无版权的软件，允许修改其源代码C用户购买一个软件后，就获得该软件版权D.共享软件是一种买前免费试用，具有版权的软件5 .以

3、下关于操作系统中多任务处理的叙述错误的是 (5)。A.将CPU时间划分成许多小片，轮流为多个程序服务，这些小片称为“时间片”B.由于CPU是计算机系统中最宝贵的硬件资源，为了提高CPU的利用率，一般采用多务处理C.正在CPU中运行的程序称为前台任务，处于等待状态的任务称为后台任务D.在单CPU环境下，多个程序在计算机中宏观上同时运行，微观上由CPU轮流执行6 .以下关于IP地址的叙述错误的是 (6)。A.正在上网(online)的每一台计算机都有一个IP地址B.现在广泛使用的IPv4协议规定IP地址使用32个二进位表示C. IPv4规定的IP地址快要用完了，取而代之的将是64位的IPv5D.

4、IP地址是计算机的逻辑地址，每台计算机还有各自的物理地址7 .路由器用于连接异构的网络，它收到一个IP数据报后要进行许多操作，这些操作不包含(7)。A.域名解析B.路由选择C.帧格式车t换D. IP数据报的转发8 .通过有线电视接入因特网时需使用电缆调制解调(Cable MODEM)技术，以下叙述错误的是(8)。A.采用同轴电缆和光纤作为传输介质B.收看电视时不能上网C.能提供语音、数据、图像传输等多种业务D.同一连接段中多个用户的信号都在同一电缆上传输9 .至目前为止，已发布多种汉字信息的编码标准。在下列叙述中，错误的是 (9)。A.无论采用那种编码标准(如GBK UCS-4等),汉字的机内

5、码都是采用16位二进制表示的B.中文版 Windows98/2000操作系统都支持 GB2312-80、GBK等多种汉字编码标准。C.GB2312-80是我国颁布的第一个汉字信息编码的国家标准。D.不同的汉字输入法，其可以输入的不同汉字个数可能有所不同。10 .下列四种声音文件中，不可能用于保存歌曲的是(10)。1.C2.B 3.CA. WAVB. MP3C. MIDI D. WMA4.C5.C6.C7.A8.B 9.A10.C第二部分Visual Basic程序设计一、选择题(共10分，每题2分)1 .下列控件中，无法用于显示程序运行结果的是1 CA. TextBox B. ListBoxC

6、. PictureBox D. Timer2 .下列有关转换函数的说法中，正确的是2 。A. Int和CInt函数的区别仅在于返回结果的数据类型不同B. Int和Fix函数将非整数数据转换成整数，转换后的结果类型是LongC.在处理正数时，Int函数和Fix函数的返回结果是相同的D.在处理负数时，Int函数和Fix函数的返回结果是相同的3 .数学式1 对应的 VB表达式是 3.A. Log(x) / Log(10) - Cos(30 * 3.14159 / 180) + Abs(x A 2 + Sqr(y) + Exp(x)B. Log(x) / Log(10) - Cos (30) + Ab

7、s(x a 2 + Sqr(y) + e a xC. Log(x) - Cos(30 * 3.14159 / 180) + Abs(x a 2 + Sqr(y) + Exp(x)D. Log(x) - Cos(30) + Abs(x a 2 + Sqr(y) + e a x4 .下列有关数组的说法中，错误的是4 。A.若模块中有“ Option Base 1”语句，则该模块中的数组的维下界都为1B.定长字符串类型的数组也可以作为过程的形式参数C.只能在标准模块中用Public语句定义全局数组D.若A是固定大小数组，执行语句Erase A后，数组A的所有元素被初始化5 .下列关于过程参数的叙述中

8、，正确的是5 。A.符号常数名可以出现在定义过程的形式参数表中B.过程调用时，与用 ByRef说明的形参结合的实在参数不可以是常数或表达式C.在自定义过程中，用 ByVal说明的形参值发生改变，不会影响与之结合的实参的值D. VB对过程的形式参数的类型没有任何限制二、填空题(共 20分，每空2分)1 .执行下面程序，单击命令按钮Commandl ,则窗体上显示的第一行内容是 (1) ,第二行内容是(2)。Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Single, k As Integerj = 11For

9、i = 2 To 10 Step 2.5j = j - 2.5If j = Int(j) Then1 = i + j Mod 10Elsei = i + 1End Ifk = i + jNext iPrint iPrint kEnd Sub2 .执行下面程序，单击命令按钮执行下面程序，单击命令按钮 Command1 ,则数组元素， 则数组元素，则数组元素 A(1,2)的值是 、A(2, 1)的值是 (4) 、A(3, 3) 的值是。Option ExplicitOption Base 1Private Sub Command1_Click()Dim A(3, 3) As Integer, K

10、As IntegerDim i As Integer, j As Integer i = 2j = 1A(i, j) = 39For K = 38 To 31 Step -1If i - 1 = 0 And j - 1 > 0 Then i = 3: j = j - 1ElseIf i - 1 > 0 And j - 1 = 0 Then1 = i - 1: j = 3ElseIf i - 1 = 0 And j - 1 = 0 Theni = 1: j = 2ElseIf A(i - 1, j - 1) <> 0 Thenj = j + 1 Elsei = i - 1

11、: j = j - 1 End If A(i, j) = KNext KFori = 1 To 3Forj = 1 To 3Text1.Text = Text1.Text & A(i, j) & ""Next jText1.Text = Text1.Text & vbCrLf Next iEnd Sub3 .执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1 ,则窗体上显布的第一行内容是 (6) ,最后一行内容是 (7) 。Option ExplicitPrivate Sub Command1_Click()Dim a As Int

12、eger, b As Integer, k As IntegerFor a = 2 To 3b = a + 1k = Fun(Fun(a, b), b)Print kNext aPrint bEnd SubPrivate Function Fun(a As Integer, b As Integer) As Integer b = a + b a = a + b Fun = a + bEnd Function4 .执行下面程序，单击 命令按钮Command1 ,则多行文本框 Text1中显示 的第一行 内容是(8),第二行内容是 (9),第三行内容是 一(10) , Option Explic

13、itPrivate Sub Command1_Click()Dim s1 As String, s2 As String, data1 As String, data2 As StringDim i As Integer data1 = "1011 1010 1110" data2 = "1010 1101 1010" For i = 1 To Len(data1) Step 5s1 = Mid(data1, i, 4)s2 = Mid(data2, i, 4)Text1.Text = Text1.Text & Subtract(s1, s2)

14、& vbCrLfNext iEnd SubPrivate Function Subtract(s1 As String, s2 As String) As StringDim i As Integer, k As Integer, L As IntegerDim j As Integer, s As StringL = Len(s1)For i = 1 To LIf Mid(s1, i, 1) = "0" And Mid(s2, i, 1) = "0" ThenSubtract = Subtract & "0"Else

15、Subtract = Subtract & "1"End IfNext iEnd Function三、操作题（共 50分）1 .完善程序。（共12分）【要求】1）打开"考生文件夹"中"P1.vbp”文件，完善程序后，直接保存所有文件 。【题目】 本程序的功能是 找出4500之间的史密夫数。 所谓史密夫数是指该数的各位数 字和等于其质因子分解中所有质因子的各位数字和。例如 在十进制下，202就是一个史密夫数， 因为 2 + 0 + 2 = 4, 202的质因子分解为 2 X 101, 2 + 1 + 0 + 1 = 4。'D史雷夫

16、数上 !回IM'Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, he As IntegerDim n As Integer, pf() As IntegerFor n = 4 To 500Call Pfactor(n, pf)If UBound(pf) > 1 ThenFor i = 1 To UBound(pf) he = he + Sum(pf(i)Next iIf Sum(n) = he Then List1.AddItem nEnd IfEnd IfNext nEnd Su

17、bPrivate Sub Pfactor(ByVal n As Integer, f() As Integer)'质因子分解 Dim k As Integer, P As Integer k = 2DoDo While(2) P = P + 1ReDim Preserve f(P) f(P) = k n = n kLoop(3)Loop Until n = 1End SubPrivate Function Sum(ByVal n As Integer) As IntegerDim S As String, L As Integer, k As Integer, i As Integer

18、S = CStr(n)(4)For i = 1 To Lk = Val(Mid(S, i, 1)Sum = Sum + kNext iEnd Function2 .改错题(共16分) 【要求】1)打开"考生文件夹"中"P2.vbp”文件，改正程序中的错误后，直接保存所有文件；2)改错时，不得增加或删除语句但可适当调整位置。【题目】本程序的功能是在给定的数字串中(在给定的数字串中(121709473)找出所有的素数子串。Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, St As String,

19、 L As Integer, Flg As BooleanDim i As Integer, j As Integer, C As String, s As Stringn = Val(Text1.Text)St = CStr(n)L = Len(n)For i = 1 To LFlg = FalseForj = 1 To L - i + 1C = Mid(St, j, i)If Left(C, 1) <> "0" And Prime(Val(C) Then s = s & C & ""Flg = TrueEnd IfNext

20、 jIf Flg Then s = s & vbCrLfNext iText2.Text = sEnd SubPrivate Function Prime(M As Long) As BooleanDim i As LongFor i = 2 To Int(Sqr(M)If M Mod i = 0 Then Exit ForNext iPrime = TrueEnd Function3 .编程题（22分）【要求】1）打开“考生文件夹”中“ P3.vbp”文件，按参考界面形式编辑窗体，根据题目要求编写 和调试程序后，直接保存所有文件；2）程序代码书写应呈锯齿形，否则适当扣分。【题目】 编

21、写程序，生成由两位随机整数组成的数组，删除数组中数值相同的数组元素。【编程要求】1）程序参考界面如图所示，编程时不得增加或减少对象改变的窗体种类，窗体及界面元素大小适中，且均可见；2）运行程序，单击“生成”按钮，在InputBox对话框中输入需要生成的数组元素个数 并生成由两位随机整数组成的数组显示在文本框1中；单击“删除重复数”按钮将数组中出现的重复数删除后显示在文本框2中；单击“清除”按钮，将所有文本框清空，焦点置于“生成”按钮上；3）程序中至少应定义一个通用过程，用于将数组中的重复数删除。参考答案一、VB选择题（共10分，每题2分）1 . D 2, C 3. A 4. A 5. C二、V

22、B填空题（共20分， 每空2分）1. . 132. 173. 334. 395. 366. 467. 178. 10119. 111110. 1110三、VB操作题(共50分)1 .完善程序(共12分)(1) he = 0(2) n Mod k = 0(3) k = k + 1(4) L = Len(S)2 .改错题(共16分)Option ExplicitPrivate Sub Command1_Click()Dim n As Long, St As String, L As Integer, Flg As BooleanDim i As Integer, j As Integer, C A

23、s String, s As Stringn = Val(Text1.Text)St = CStr(n)L = Len(St)For i = 1 To LFlg = FalseForj = 1 To L - i + 1C = Mid(St, j, i)If Left(C, 1) <> "0" And Prime(Val(C) Thens = s & C & ""Flg = TrueEnd IfNext jIf Flg Then s = s & vbCrLfNext iText2.Text = sEnd SubPrivate Function Prime(M As Long) As BooleanDim i As LongFor i = 2 To Int(Sqr(M)If M Mod i = 0 Then Exit FunctionNext iIf M > 1 Then Prime = TrueEnd Func