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

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

2、 是存放于 ROM 中的一组高级语言程序BBIOS 中含有系统工作时所需的全部驱动程序CBIOS 系统由加电自检程序、系统主引导记录的装入程序、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 个二进位表示CIPv4 规定的 IP 地址快要用完了，取而代之的将是 64 位的

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

5、-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)B

7、Log(x) / Log(10) - Cos (30) + Abs(x 2 + Sqr(y) + e xC Log(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 后，数组

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

9、teger, j As Single, k As Integerj = 11For i = 2 To 10 Step 2.5j = j - 2.5If j = Int(j) Theni = i + j Mod 10Elsei = i + 1End Ifk = i + jNext iPrint iPrint kEnd Sub2. 执行下面程序，单击命令按钮 执行下面程序，单击命令按钮 Command1，则数组元素 ，则数组元素 ，则数组元素 A(1, 2)的值是 _ (3) _ 、A(2, 1)的值是 _ (4) _ 、A(3, 3)的值是 _ (5) _ 。Option ExplicitOpt

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

11、i - 1, j - 1) 1 Then_(1)_For i = 1 To UBound(pf)he = he + Sum(pf(i)Next iIf Sum(n) = he ThenList1.AddItem nEnd IfEnd IfNext nEnd SubPrivate Sub Pfactor(ByVal n As Integer, f() As Integer) 质因子分解Dim k As Integer, P As Integerk = 2DoDo While _(2)_P = P + 1ReDim Preserve f(P)f(P) = kn = n kLoop_(3)_Loop

12、 Until n = 1End SubPrivate Function Sum(ByVal n As Integer) As IntegerDim S As String, L As Integer, k As Integer, i As IntegerS = CStr(n)_(4)_For i = 1 To Lk = Val(Mid(S, i, 1)Sum = Sum + kNext iEnd Function2. 改错题（共 16 分）【要求】1) 打开”考生文件夹”中”P2.vbp”文件 ，改正程序中的错误后，直接保存所有文件 ；2) 改错时，不得增加或删除语句但可适当调整位置。 【题目

13、】 本程序的功能是 在给定的数字串中（ 在给定的数字串中（121709473）找出所有的素数子串。Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, St As String, 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 = FalseFor j = 1 To L - i + 1C =

14、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 Function3.

15、编程题（ 22 分）Option ExplicitOption Base 1Dim a() As Integer, n As IntegerPrivate Sub Command1_Click()Dim i As Integern = InputBox(“输入 n=“, , 10)ReDim a(n)For i = 1 To na(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & Str(a(i)Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerCall dele(a)For i =

16、 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 Integeri = 1Doj = i + 1DoIf a(i) = a(j) ThenFor k = j To UBound(a) - 1a(k) = a(k + 1)Next kReDim Preserve a(UBound(a) - 1)Elsej = j + 1End IfLoop Until j UBound(a)i = i + 1Loop Until i = UBound(a)End SubPrivate Sub Command3_Click()Text1.Text = “Text2.Text = “Command1.SetFocusEnd Sub