江苏省计算机二级VB模拟考试1新版.docx

1、江苏省计算机二级VB模拟考试1新版江苏省计算机二级VB模拟考试1(新版) 作者： 日期： 江苏省高等学校计算机等级考试二级Visual Basic 考试模拟试卷1(本试卷完成时间 120 分钟)第一部分 计算机基础知识1.下列不同进位制的四个数中,最小的数是_(1)_ A.二进制数1100010 B.十进制数65 C.八进制数77 D.十六进制数452.下列关于PC机主板的叙述正确的是_(2)_。 A不同厂家生产的主板，尺寸各不相同 B主板上安装有存储器芯片，如ROM芯片、CMOS芯片等 CCPU是直接固定在主板上的，不可更换 D主板上安装有电池，在计算机断开交流电后，临时给计算机提供电流，供

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

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

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

5、准(如GBK、UCS-4等),汉字的机内码都是采用16位二进制表示的 B.中文版Windows98/2000操作系统都支持GB2312-80、GBK等多种汉字编码标准。 C.GB2312-80是我国颁布的第一个汉字信息编码的国家标准。 D.不同的汉字输入法,其可以输入的不同汉字个数可能有所不同。10. 下列四种声音文件中,不可能用于保存歌曲的是 _(10)_。 AWAV BMP3 CMIDI DWMA1.C 2.B 3.C 4.C 5.C 6.C 7.A 8.B 9.A 10.C第二部分 Visual Basic 程序设计一、选择题（共10 分，每题2 分）1. 下列控件中，无法用于显示程序运

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

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

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

9、ngle, k As Integer j = 11 For i = 2 To 10 Step 2.5 j = j - 2.5 If j = Int(j) Then i = i + j Mod 10 Else i = i + 1 End If k = i + j Next i Print i Print kEnd Sub2. 执行下面程序，单击命令按钮 执行下面程序，单击命令按钮 Command1，则数组元素 ，则数组元素 ，则数组元素 A(1, 2)的值是 _ (3) _ 、A(2, 1)的值是 _ (4) _ 、A(3, 3)的值是 _ (5) _ 。Option ExplicitOptio

10、n Base 1Private Sub Command1_Click() Dim A(3, 3) As Integer, K As Integer Dim i As Integer, j As Integer i = 2 j = 1 A(i, j) = 39 For K = 38 To 31 Step -1 If i - 1 = 0 And j - 1 0 Then i = 3: j = j - 1 ElseIf i - 1 0 And j - 1 = 0 Then i = i - 1: j = 3 ElseIf i - 1 = 0 And j - 1 = 0 Then i = 1: j =

11、2 ElseIf A(i - 1, j - 1) 0 Then j = j + 1 Else i = i - 1: j = j - 1 End If A(i, j) = K Next K For i = 1 To 3 For j = 1 To 3 Text1.Text = Text1.Text & A(i, j) & Next j Text1.Text = Text1.Text & vbCrLf Next iEnd Sub3. 执行下面程序，单击命令按钮 执行下面程序，单击命令按钮 Command1，则 窗体上显示的第一行内容是 _（6）_ ， 最后一行内容是 _（7）_ 。Option Ex

12、plicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer, k As Integer For a = 2 To 3 b = a + 1 k = Fun(Fun(a, b), b) Print k Next a Print bEnd SubPrivate Function Fun(a As Integer, b As Integer) As Integer b = a + b a = a + b Fun = a + bEnd Function4. 执行 下面程序，单击 命令 按钮 Command1，则 多行 文本框 Tex

13、t1中显示 的第一行 内容 是_（8）_ ，第二行 内容是 _（9）_ ，第三行 内容是 _（10）_ 。Option ExplicitPrivate Sub Command1_Click() Dim s1 As String, s2 As String, data1 As String, data2 As String Dim i As Integer data1 = 1011 1010 1110 data2 = 1010 1101 1010 For i = 1 To Len(data1) Step 5 s1 = Mid(data1, i, 4) s2 = Mid(data2, i, 4)

14、Text1.Text = Text1.Text & Subtract(s1, s2) & vbCrLf Next iEnd SubPrivate Function Subtract(s1 As String, s2 As String) As String Dim i As Integer, k As Integer, L As Integer Dim j As Integer, s As String L = Len(s1) For i = 1 To L If Mid(s1, i, 1) = 0 And Mid(s2, i, 1) = 0 Then Subtract = Subtract &

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

16、ivate Sub Command1_Click() Dim i As Integer, he As Integer Dim n As Integer, pf() As Integer For n = 4 To 500 Call Pfactor(n, pf) If UBound(pf) 1 Then _(1)_ For i = 1 To UBound(pf) he = he + Sum(pf(i) Next i If Sum(n) = he Then List1.AddItem n End If End If Next nEnd SubPrivate Sub Pfactor(ByVal n A

17、s Integer, f() As Integer) 质因子分解 Dim k As Integer, P As Integer k = 2 Do Do While _(2)_ P = P + 1 ReDim Preserve f(P) f(P) = k n = n k Loop _(3)_ Loop Until n = 1End SubPrivate Function Sum(ByVal n As Integer) As Integer Dim S As String, L As Integer, k As Integer, i As Integer S = CStr(n) _(4)_ For

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

19、s Boolean Dim i As Integer, j As Integer, C As String, s As String n = Val(Text1.Text) St = CStr(n) L = Len(n) For i = 1 To L Flg = False For j = 1 To L - i + 1 C = Mid(St, j, i) If Left(C, 1) 0 And Prime(Val(C) Then s = s & C & Flg = True End If Next j If Flg Then s = s & vbCrLf Next i Text2.Text =

20、 sEnd SubPrivate Function Prime(M As Long) As Boolean Dim i As Long For i = 2 To Int(Sqr(M) If M Mod i = 0 Then Exit For Next i Prime = TrueEnd Function3. 编程题（ 22分）【要求】1) 打开 “考生文件夹”中“P3.vbp”文件 ，按参考界面形式编辑窗体，根据题目要求编写和调试程序后，直接保存所有文件；2) 程序代码书写应呈锯齿形，否则适当扣分。 【题目】 编写程序，生成由两位随机整数组成的数组,删除数组中数值相同的数组元素。【编程要求】1

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

22、366467178101191111101110三、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 Boolean Dim i As Integer, j As Integer, C As String, s As String n = Val(Text1.Text) St

23、= CStr(n) L = Len(St) For i = 1 To L Flg = False For j = 1 To L - i + 1 C = Mid(St, j, i) If Left(C, 1) 0 And Prime(Val(C) Then s = s & C & Flg = True End If Next j If Flg Then s = s & vbCrLf Next i Text2.Text = sEnd SubPrivate Function Prime(M As Long) As Boolean Dim i As Long For i = 2 To Int(Sqr(

24、M) If M Mod i = 0 Then Exit Function Next i If M 1 Then Prime = TrueEnd Function3. 编程题（ 22分）Option ExplicitOption Base 1Dim a() As Integer, n As IntegerPrivate Sub Command1_Click() Dim i As Integer n = InputBox(输入 n=, , 10) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 90) + 10 Text1.Text = Text1.Text

25、& Str(a(i) Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer Call dele(a) For i = 1 To UBound(a) Text2.Text = Text2.Text & Str(a(i) Next iEnd SubPrivate Sub dele(a() As Integer) Dim i As Integer, j As Integer, k As Integer i = 1 Do j = i + 1 Do If a(i) = a(j) Then For k = j To UBound(a) - 1 a(k) = a(k + 1) Next k ReDim Preserve a(UBound(a) - 1) Else j = j + 1 End IfLoop Until j UBound(a)i = i + 1 Loop Until i = UBound(a)End SubPrivate Sub Command3_Click() Text1.Text = Text2.Text = Command1.SetFocusEnd Sub