秋江苏计算机二级VB考试真题

1、 本文由弹弹坏小子贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 2010 秋江苏计算机二级 VB 考试真题 第一部分 计算机基础知识 A. 软件一般是指程序及其相关的数据和文档资料 从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软 B. 从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软 件有操作系统、语言处理系统和数据库管理系统等。 件有操作系统、语言处理系统和数据库管理系统等。 从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件, C. 从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件, 共享软件

2、和自由软件均为无版权的免费软件 是一种系统软件、 D.Linux 是一种系统软件、自由软件 10.到目前以止,Windows 系列操作系统已推出多个版本。在下列版本中, 10.到目前以止,Windows 系列操作系统已推出多个版本。在下列版本中,最新 到目前以止 的 Windows 版本是(10) 版本是(10) A. Windows7 XP B. Windows Me C. Windows 1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心. 1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关 微电子技术是信息技术领域中的关键技术 集成电路的叙述中, 集成电路的

3、叙述中,错误的是 (1) 现代集成电路使用的半导体材料只能是硅(Si), (Si),不能使用其它任何半导 A. 现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导 体材料 集成度是指集成电路包含的电子元件数目, SSI、MSI、 B. 集成度是指集成电路包含的电子元件数目,可分为 SSI、MSI、VLSI 等 C. Moore 定律指出,单块集成电路的集成度平均 18-24 个月翻一番 定律指出, 18-24 -我国第二代身份证中嵌入了集成电路芯片, D. 我国第二代身份证中嵌入了集成电路芯片,可以实现电子防伪和数字管 理功能 数据传输速率是数据通信中重要的性能指标。 2. 数

4、据传输速率是数据通信中重要的性能指标。Gb/s 是数据传输速率的计 量单位之一, 量单位之一,其正确含义是 (2) A.每秒兆位 A.每秒兆位 B.每秒千兆位 B.每秒千兆位 。 D.每秒百万位 D.每秒百万位 D. Windows Vista 11.下列有关 XP 操作系统功能的叙述中,错误的是(11). 11.下列有关 Windows XP 操作系统功能的叙述中,错误的是(11). 系统通过"时间片” A. 系统通过"时间片”轮转策略支持多任务处理 B. 系统利用 SPOOLing 技术进行存储管理 在设备管理中引入了缓冲技术, C. 在设备管理中引入了缓冲技术,以减少

5、 I/O 操作的等待时间 功能, D. 系统支持 PnP 功能,并按 ACPI 标准进行电源管理 12.在因特网中某台主机的 ,子网掩码为 12.在因特网中某台主机的 IP 地址为 ,子网掩码为 , 那么该主机 的主机号为 (12) 。 A. 20 B. 25 C. 30 D. 8 C.每秒百兆位 C.每秒百兆位 所谓"变号操作" 3. 所谓"变号操作"是指将一个整数变成绝对值相同但符号相反的另一个整 x=10010101,则经过变号操作后结果为 数。假设使用补码表示的 8 位整数 x=1

6、0010101,则经过变号操作后结果为 (3).A.01101010 (3).A.01101010 B.00010101 C.11101010 。 D.01101011 机主板的叙述中,错误的是 4. 下列有关 PC 机主板的叙述中,错误的是 (4) 主板的物理尺寸没有标准, A. 主板的物理尺寸没有标准,各厂家均可自行定义 主板上包含芯片组, B. 主板上包含芯片组,它是 PC 机各组成部分相互连接和通信的枢纽 C. 主板上包含 BIOS 和 CMOS 芯片 插座、 D. 主板上包含 CPU 插座、内存条插槽及其它类型的插槽 机中央处理器(CPU)和内存(内存条)的叙述中, (CPU)和内存

7、 5. 下列有关 PC 机中央处理器(CPU)和内存(内存条)的叙述中,正确的 是 _(5) . 13.局域网中需要传输的数据必须预先组织成若干数据帧, 13.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式 局域网中需要传输的数据必须预先组织成若干数据帧 如下图所示：上图中最末部分"?”表示的是(13) 如下图所示：上图中最末部分"?”表示的是(13) "? 发送计算机 地址 目的计算机 地址 C.冗余信息 C.冗余信息 D.结束标志 D.结束标志 编号 有效载荷 。 ? A.PC 机所采用的 CPU 都是 Intel 公司生产的 Pentium

8、 系列芯片,其它厂商 系列芯片, 生产的 CPU 都与之不兼容 B.目前已有双核的微处理器( Duo),但还没有四核的微处理器 B.目前已有双核的微处理器(例如 Core 2 Duo),但还没有四核的微处理器 目前已有双核的微处理器 通常来说,DRAM C. 通常来说,DRAM 的速度比 SRAM 的存取速度慢 一般来说, D. 一般来说,一个内存条上仅有一个 DRAM 或 SRAM 芯片 接口的叙述中, 6. 下列有关 PC 机 I/O 总线与 I/O 接口的叙述中,错误的是 _(6) . A.协议信息 B.校验信息 A.协议信息 B.校验信息 14.目前网络用户接入因特网有多种方式, AD

9、SL、 14.目前网络用户接入因特网有多种方式,例如 ADSL、HFC 等。通过 HFC 接入 目前网络用户接入因特网有多种方式 因特网时采用的网络是(14)。 因特网时采用的网络是(14)。 (14) A. 有线电话网 话网 15.下列网络协议中,直接与电子邮件传输相关的网络协议是(15)。 15.下列网络协议中,直接与电子邮件传输相关的网络协议是(15)。 下列网络协议中 (15) A.FTP B.SMTP C.TELNET D.NNTP B. 有线电视网 C. 无线局域网 移动电 D. 移动电 A. 目前 PC 机中协调与管理总线操作的总线控制器包含在主板上的芯片 组中 总线最重要的性能

10、是数据传输速率, B. 总线最重要的性能是数据传输速率,其单位通常为 MB/s 或 GB/s C. SATA 接口的数据传输速率通常低于 USB 2.0 的数据传输速率 个引脚,其中一个引脚连接+5V D. USB 连接器有 4 个引脚,其中一个引脚连接+5V 电源 设备的叙述中,错误的是_(7) _(7)。 7. 下列有关 PC 机常用 I/O 设备的叙述中,错误的是_(7)。 目前台式机键盘通常有一百零几个按键, A. 目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十 几个按键 目前流行的鼠标是光电鼠标, B. 目前流行的鼠标是光电鼠标,其与主机的接口有 PS/2 与 USB 两

11、种 16： 16： C. 宽屏 LCD 显示器的宽高比为 16：9 或 16：10 D. 打印速度是打印机的重要性能指标,速度单位通常为 dpi 打印速度是打印机的重要性能指标, 机外存储器的叙述中,错误的是(8) 8. 下列有关 PC 机外存储器的叙述中,错误的是(8) 。 16.下列有关计算机中文本与文本处理的叙述中,错误的是 (16) 16.下列有关计算机中文本与文本处理的叙述中, 下列有关计算机中文本与文本处理的叙述中 字符集, A. 西文字符主要是采用 ASCII 字符集,基本 ASCII 字符集共有 256 个字 符 GB2312,包含 B. 我国最早采用的汉字字符集是 GB231

12、2,包含 6000 多个汉字和若干个 非汉字字符 无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字 C. 无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字 内码 简单文本和丰富格式文本中字符信息的表示相同, D. 简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信 息的表示 17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间) 17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。下列四种颜 彩色图像所使用的颜色描述方法称为颜色模型 色模型中, 色模型中, 彩色喷墨打印机使用的是(17). 彩色喷墨打印机使用的是(17). A. RGB B. HSB

13、 C. YUV D. CMYK 3.5、 英寸, A. 目前硬盘的盘片大多为 3.5、2.5 或 1.8 英寸,一个硬盘中可有一个或 多个盘片 B. 目前有些 u 盘可以模拟硬盘和光盘存储器启动操作系统 CD、 三种, C. 目前光盘存储器主要分为 CD、DVD 和 BD 三种,它们均采用红外激光进 行读写 D. 目前光驱的速率通常用多少倍速表示 下列有关计算机软件的叙述中,错误的是(9). 9. 下列有关计算机软件的叙述中,错误的是(9). 18.文件的扩展名用于标记文件的类型, 18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件 文件的扩展名用于标记文件的类型 的扩展名,

14、 的扩展名,下 列文件中,属于数字声音的文件是 列文件中,属于数字声音的文件是 A. ABC.RM ABC.WMA B. ABC.WMA C. ABC.MKV D. ABC.SWF 19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、 19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统 信息系统软件开发瀑布模型包括系统规划 实施和系统维 护等几个阶段。下面各项工作中,属于系统实施阶段的是(19) 护等几个阶段。下面各项工作中,属于系统实施阶段的是(19) A.问题定义 A.问题定义 B.可行性研究 B.可行性研究 C.系统测试 C.系统测试 D.绘制 D.绘制 E

15、-R 图 20.下列有关 软件的叙述中, 20.下列有关 Micmsoft Word 2003 和 Microsoft Excel 2003 软件的叙述中, 错误的是(20) 错误的是(20) 软件编辑文档,可以将其保存为 TXT、DOC、 A. 利用 Word 软件编辑文档,可以将其保存为 TXT、DOC、RTF 和 HTM 格 式文件 软件编辑文档时, B. 利用 Word 软件编辑文档时,可以统计选定文本的字符数 软件中,可以打开(导入)TXT DBF HTML 格式的文件(数据) )TXT、 DBF、 格式的文件(数据) C. 在 Excel 软件中,可以打开(导入)TXT、 、 文件

16、可以设置打开权限密码, D. Excel 文件可以设置打开权限密码,但不可以单独设置修改权限密码 C.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/xC.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/x-y) D.Sqr(x*y)3)+Abs(Exp(x)+Sin(x)3)/(xD.Sqr(x*y)3)+Abs(Exp(x)+Sin(x)3)/(x-y) 28.以下有关数组的说法中,错误的是(28)。 28.以下有关数组的说法中,错误的是(28)。 以下有关数组的说法中 (28) A.使用 语句, A.使用 ReDim 语句,可以改变任何数组的大小与维数 B.使用 语句

17、, B.使用 ReDim 语句,可以定义一个新数组 C.使用 语句重新定义动态数组时, C.使用 ReDim 语句重新定义动态数组时,维界表达式中可以采用变量 D.使用 语句重新定义的新数组,既可比原数组大, D.使用 ReDim 语句重新定义的新数组,既可比原数组大,也可比原数组小 29.以下有关 Function 过程的说法中,正确的是(29) 29.以下有关 过程的说法中, 正确的是(29) A.函数名在过程中只能被赋值一次 A.函数名在过程中只能被赋值一次 B.如果在函数体内没有给函数名赋值, B.如果在函数体内没有给函数名赋值,则该函数无返回值 如果在函数体内没有给函数名赋值 C.如

18、果在定义函数时没有说明函数的类型, C.如果在定义函数时没有说明函数的类型,则该函数是无类型的 如果在定义函数时没有说明函数的类型 语句,将退出该函数, D.执行函数过程中的 Exit Function 语句,将退出该函数,返回到调用点 30.以下有关文件用法的描述中,正确的是(30) 30.以下有关文件用法的描述中,正确的是(30) 以下有关文件用法的描述中 A.只有顺序文件在读写前需要使用 A.只有顺序文件在读写前需要使用 Open 语句打开 B.使用同一个文件号, B.使用同一个文件号,可同时打开多个不同的文件 使用同一个文件号 C.如果以 方式试图打开一个不存在的顺序文件, C.如果以

19、 Input 方式试图打开一个不存在的顺序文件,则会出错 D.如果程序中缺少 语句,即使程序运行结束, D.如果程序中缺少 Close 语句,即使程序运行结束,打开的文件也不会自 动关闭 第二部分 Visual Basic 程序设计 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 1.运行下面程序, CmdRun, n,在窗体上显示 的值是(1);b 1.运行下面程序,单击 CmdRun,在窗体上显示 a 的值是(1);b 的值是 运行下面程序 (2);i 的值是(3) (2);i 的值是(3) 。 Optio

20、n Explicit Private Sub CmdRun_Click() Dim i As Integer,a As Integer,b As Integer a=1:b=10 For i=a To b Step a+1 a=a+1 b=b+1 i=i+1 Next i Print a,b,i End Sub 2.执行下面程序, Command1,数组元素 a(3,2)的值是 的值是(4),a(1,2) 2.执行下面程序,单击 Command1,数组元素 a(3,2)的值是(4),a(1,2) 执行下面程序 的值是(5),a(2,3)的值是(6) 的值是(5),a(2,3)的值是(6) (5

21、),a(2,3)的值是 Option Explicit Option Base 1 Private Sub Commandl_Click() Dim n As Integer,i As Integer,j As Integer Dim a(3,3)As Integer,k As Integer n=3:k=1 i=n:j=(n+1)/2 a(i,j)=k For k=2 To n*n i=i+1:j=j+1If i>n And j<=n Then i=1 ElseIf i<=n And j>n Then j=1 。 21- 答题号内) -30 一、选择题(用答题卡答题,

22、答案依次填在 21-30 答题号内) 选择题(用答题卡答题, 21.以下有关事件过程的说法中,正确的是(21) 21.以下有关事件过程的说法中,正确的是(21) 以下有关事件过程的说法中 A.所有的事件过程都是 A.所有的事件过程都是 Sub 子过程 B.所有的事件过程都没有参数 C.所有的事件都是由用户的操作直接引发的 C.所有的事件都是由用户的操作直接引发的 D.事件过程不能使用 D.事件过程不能使用 Call 语句调用执行 22.以下语句中,正确的是(22) 22.以下语句中,正确的是(22) 以下语句中 A.List1.AddItem x,"=",y C.Text1

23、.Text=x,"=",y 。 B.Picture1.Print x,"=",y D.Label1.Caption=x,"=",y 23.以下有关 程序书写规则的说法中,错误的是(23) 23.以下有关 VB 程序书写规则的说法中,错误的是(23) A.一行可以书写多条语句,语句间用":"分隔 A.一行可以书写多条语句,语句间用":"分隔 一行可以书写多条语句 ":" B.使用注释时,"'"可与注释语句定义符"Rem"互换使用

24、B.使用注释时,"'"可与注释语句定义符"Rem"互换使用 使用注释时,"'"可与注释语句定义符"Rem" C.过长的语句,可使用续行标志" _",分写在多行上 C.过长的语句,可使用续行标志" _",分写在多行上 过长的语句 D.代码输入时,可不用区分字母大小写,系统会将"保留字" D.代码输入时,可不用区分字母大小写,系统会将"保留字"首字母自动改为 代码输入时 大写 24.设变量 是整型变量,K 是长整型变量。 2

25、4.设变量 I 和 J 是整型变量,K 是长整型变量。 已赋值 32763,J 和 K 分别赋 I 5,若接着执行以 值 5,若接着执行以 下语句,可正确执行的是(24)。 下语句,可正确执行的是(24)。 (24) A.I=I+K C.K=I+J+K B.J=I+K D.K=K+I+J 25.以下关系表达式中,运算结果为 False 的是 (25) 25.以下关系表达式中, (25) 以下关系表达式中 A.CInt(3.5)A.CInt(3.5)-Fix(3.5)>=0 C.Int(3.5)+Int(C.Int(3.5)+Int(-3.5)>=0 B.CInt(3.5)B.CIn

26、t(3.5)-Int(3.5)>=0 D.Int(3.5)+Fix(D.Int(3.5)+Fix(-3.5)>=0 26.以下字符运算表达式中, Mid(s,i,i)相同的是 相同的是(26) 26.以下字符运算表达式中,其功能与函数 Mid(s,i,i)相同的是(26) 以下字符运算表达式中 Right(s,Len(s)A.Left(s,i) & Right(s,Len(s)-i) C.Left(Right(s,i),Len(s)C.Left(Right(s,i),Len(s)-i+1) B.Left(Right(s,Len(s)B.Left(Right(s,Len(s)

27、-i+1),i) D.Left(s,Len(s)D.Left(s,Len(s)-i) & Right(s,i) 27.数学表达式的 算术表达式为(27) 27.数学表达式的 VB 算术表达式为(27) A.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/(xA.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/(x-y) B.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3)/(xB.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3)/(x-y) ElseIf i>n And j>n Then i=i-2:j=ji=i-2:j=j-1 El

28、seIf i<=n And j<=n And a(i,j)<>0 Then i=i-2:j=ji=i-2:j=j-1 End If a(i,j)=k Next k For i=1 To n For j=1 To n Pic1.Print Right(" " & Str(a(i,j),3); Next j Pic1.Print Next i End Sub 3.运行下面的程序, Cmd1,窗体上显示的第一行是(7),第二行是 窗体上显示的第一行是(7), 3.运行下面的程序,单击 Cmd1,窗体上显示的第一行是(7),第二行是 运行下面的程序

29、,最后一行是(9)。 最后一行是(9) (8) ,最后一行是(9)。 Option Explicit Private Sub Cmd1_Click() Dim A As Integer A=3 Call Sub1(A) Print A End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X<10 Then Call Sub1(X) End If X=X*2+1 Print X End Sub 4.执行下面程序, CmdRun,窗体上显示的第一行结果是 4.执行下面程序,单击按钮 CmdRun,窗体上显示的第一行结果是 执行下面程序 (10)

30、,UBound(a)的值是(11),其中 a(1)的值为 的值为(12). (10),UBound(a)的值是(11),其中 a(1)的值为(12). 的值是(11), Option Explicit Private Sub CmdRun_Click() String,i Dim St As String,i As Integer Dim a() As String,j As Integer,k As Integer St="abcd" Call Sub1(St) Print St For i=1 To Len(St) For j=i+1 To Len(St) If Mid

31、(St,i,1)=Mid(St,j,1) Then Exit For Next j Then If j>Len(St) Then k=k+1 ReDim Preserve a(k) a(k)=Mid(St,i,1) Print "a("k;")="a(k) End If Next i End Sub Private Sub Sub1(S As String) Dim i As Integer Len(S) For i=1 To Len(S)2 Mid(S,i,1)=Mid(S,Len(S)-i+1,1) Mid(S,i,1)=Mid(S,Len(S

32、)=Mid(S,Len(S) Next i End Sub 5.执行下面程序, 中输入"21 54#"后 5.执行下面程序,在文本框 Text1 中输入"21 23 2 3 5 17 54#"后,单击命令 执行下面程序 Cmdl,数组元素 A(1)的值是(13),A(3)的值是(14),A(5)的 的值是(13),A(3)的值是(14),A(5) 按钮 Cmdl,数组元素 A(1)的值是(13),A(3)的值是(14),A(5)的 值是(15). 值是(15). Option Explicit Private Sub Cmd1_Click() Dim A

33、() As Integer,K As Integer As Dim L As Integer,S As String S=Text1 Do K=K+1 ReDim Preserve A(K) L=InStr(S," ") If L<>0 Then A(K)=Val(Left(S,L-1) A(K)=Val(Left(S,LS=Right(S,Len(S)S=Right(S,Len(S)-L) Else A(K)=Val(S) End If Loop Until L=0 Call Exchang(A) For K=1 To 7 Text2=Text2 &

34、A(K) & " " Next K End Sub Private Sub Exchang(A() As Integer) Dim i As Integer,Tem As Integer Dim Point1 As Integer Point1=1 For i=1 To UBound(A) If A(i) Mod 3 =0Then Tem=A(i) A(i)=A(Point1) A(Point1)=Tem A(Point1)=Tem Point1=Point1+1 End If Next i End Sub 6.本程序的功能是, cos(x)的近似值 的近似值, 6

35、.本程序的功能是,利用下列公式求函数 cos(x)的近似值,规定通项的绝对值 本程序的功能是 10-6 时结束计算。请完善本程序. 10- 时结束计算。请完善本程序. cos(x)=1cos(x)=1通用公式可知:a 通用公式可知:a = Option Explicit Private Sub Command1_Ciick() Dim S As Single,T As Single,K As Integer,x As Single Const eps As Single=0.000001 eps x=Val(Text1) (16) S=1 T=1 Do T= (17) S=S+T K=K+1

36、Loop While (18) Text2=S EndSub 7.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定 7.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。 本程序的功能是找出一组连续的整数 一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。 一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善 本程序。 本程序。 Option Explicit Private Sub CmdRun_Click() CmdRun_Click() Dim m As Integer,sum As Integer,st As String Dim

37、i As Integer,j As Integer,k As Integer m=Text1 mFor i=1 To m-1 (19) For j=i To m sum=(20) If sum=m Then st="" 'st 赋以空值 For k=i To j st= (21) Next k Left(st,Len(st)List1.AddItem Left(st,Len(st)-1) End If Next j Next i End Sub 8.本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码。 8.本程序的功能是将汉字的区位码转换成以十六进制数形

38、式表示的机内码。 本程序的功能是将汉字的区位码转换成以十六进制数形式表示的机内码 位数字组成,前两位数字表示汉字在编码表中的区号, 汉字的区位码由 4 位数字组成,前两位数字表示汉字在编码表中的区号,后两 位数字表示位号,区号和位号均为十进制数。例如汉字" 位数字表示位号,区号和位号均为十进制数。例如汉字"中"的区位码是 5448, 54,位号是 48。 160,再转换成十六进 即"中"的区号是 54,位号是 48。将区号与位号分别加上 160,再转换成十六进 制数形式,就是" 制数形式,就是"中"的机内码。请完善

39、本程序。 的机内码。请完善本程序。 Option Explicit Private Sub CmdChange_Click() Dim qw As String,jn As String qw=Text1 Text2=qw2jn(qw) End Sub Private Function qw2jn(st As String) As String Dim n1 As Integer,n2 As Integer n1=Val(Left(st,2)+160 n1=Val(Left(st,2)+160 n2=(22) qw2jn=d2h(n1) & d2h(n2) End Function P

40、rivate Function d2h(d As Integer) As String Dim p As Integer,q As String*1 Do p= (23) If p>9 Then q=Chr(55+p) Else q=CStr(p) EndIf (24) d=d d=d16 Loop Until (25) End Function 9.本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现 9.本程序的功能是查找一组数据中的众数。所谓众数, 本程序的功能是查找一组数据中的众数 次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次 次数最多的数

41、.注意:一组数据中的众数可能有多个.(即有多个数据的出现次 .( 数相同) 个随机整数存入数组, 数相同)。事件过程 Cmdfind 主要功能是生成 n 个随机整数存入数组,再调用 过程,求出数组中每个不相同的数据出现的次数: Freq 过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现 次数值,最后,将求出相应的众数输出。 次数值,最后,将求出相应的众数输出。请完善本 程序。 程序。 Option Explicit Option Base 1 Private Sub Cmdfind_Click() Dim a() As Integer,n As Integer,i As Int

42、eger Dim Shu() As Integer,Cs() As Integer,Max As Integer n=InputBox("输入数据个数:","查找众数",20) n=InputBox("输入数据个数:","查找众数",20) 输入数据个数:","查找众数 ReDim a(n) Randomize For i=1 To n a(i)=Int(Rnd*5)+5 Text1=Text1 & Str(a(i) If i Mod 10=0 Then Text1=Text1 &

43、; vbCrLf Next i Call Freq(a,Shu,Cs) Max=Cs(1) For i=2 To UBound(Cs) If Cs(i)>Max Then (26) End If Next i For i=1 To UBound(Cs) If (27) Then Text2=Text2 & Shu(i) & " " Next i End Sub Private Sub Freq(a() As Integer,Shu() As Integer,Cs() As Integer) 'shu 数组用于存放 A 数组中不相同数据的值 &#

44、39;Cs 数组用于存放对应不相同数据出现的次数 Integer,n Dim i As Integer,j As Integer,js As Integer,n As Integer For i=1 To UBound(a) js=1 For j=1 To n '搜索数组 a 中不相同的数据 If Shu(j)=a(i) Then Exit For Next j If (28) Then n=n+1 ReDim (29) Shu(n)=a(i) UBound(a) For j=i+1 To UBound(a) If a(j)=a(i) Then (30) Next j Cs(n)=js

45、 "" List1.AddItem a(i) & "" & js End If Next i End Sub 一 选择题 1.A 2.B 3.D 4.A 5.C 6.C 7.D 8.C 9.C 10.A11.B 12.D 13.B 14.B 15.B16.A 20.D 17.D 18.B 19.C 20.D (21)A (22)B (23)B (24)D (25)C (26)B (27)B (28)A (29)D (30)C 二:填空题 (1)5 (2)14 (3)13 (4)1 (5) 9 (6)7 (7)31 (8)63 (9) 63

46、 (10)dccd (11)2 (12)c (13)21 (14)54 (15)5 (16)k=1 (17)T*(-1)*x*x/(2*k(17)T*(-1)*x*x/(2*k-1)*(2*k) (18)Abs(t)>0.000001 (19)sum=0 (20)sum+j (21)st & k & "+" "+" (22)Val(Right(st,2)+160 或 Val(Mid(st,3,2)+160 (23)d Mod 16 (24)d2h=q & d2h (25)d=0 (26)max=cs(i) (27)cs(i)

47、=max (28)j>n (29)preserve shu(n),cs(n) (30)js=js+1 1839 1本文由LJJLVERSON贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。 2010 秋江苏计等级考试 第一部分 计算机基础知识 脚连接+5V 电源 7. 下列有关 PC 机常用 I/O 设备的叙述中, 错误的是_(7)。 A. 目前台式机键盘通常有一百零几 个按键,笔记本电脑的键盘有八十几个按键 B. 目前流行的鼠标是光电鼠标,其与 主机的接口有 PS/2 与 USB 两种 C. 宽屏 LCD 显示器的宽高比为 16：9 或 16：

48、10 D. 打印速度是打印机的重要性能指 标,速度单位通常为 dpi 8. 下列有关 PC 机外存储器的叙述中,错误 的是(8) 。 A. 目前硬盘的盘片大多为 3.5、2.5 或 1.8 英寸,一个硬盘中可有一个或多个盘片 B. 目前有些 u 盘可以模拟硬盘和光盘存 储器启动操作系统 C. 目前光盘存储器主要分为 CD、DVD 和 BD 三种,它们均采用红外激光进行读写 D. 目前光驱的速率通常用多少倍速表 示 9. 下列有关计算机软件的叙述中,错误的 是(9). A. 软件一般是指程序及其相关的数据 和文档资料 B. 从软件的用途考虑,软件可以分为系 统软件和应用软件,主要的系统软件有操作

49、系统、 语言处理系统和数据库管理系统等。 C. 从软件的权益来考虑,软件可以分为 商品软件、共享软件和自由软件,共享软件和自由 软件均为无版权的免费软件 D.Linux 是一种系统软件、自由软件 10.到目前以止,Windows 系列操作系统已推 出多个版本。在下列版本中,最新的 Windows 版本是(10) A. Windows7 B. Windows Me C. Windows XP D. Windows Vista 11.下列有关 Windows XP 操作系统功能的叙 述中,错误的是(11). A. 系统通过"时间片”轮转策略支持 多任务处理 B. 系统利用 SPOOLin

50、g 技术进行存储 管理 C. 在设备管理中引入了缓冲技术,以 减少 I/O 操作的等待时间 D. 系统支持 PnP 功能,并按 ACPI 标准 进行电源管理 12. 在 因 特 网 中 某 台 主 机 的 IP 地 址 为 ,子网掩码为 ,那么该主 机 的主机号为 (12) 。 A. 20 B. 25 C. 30 D. 8 13.局域网中需要传输的数据必须预先组织 成若干数据帧,每一数据帧的格式如下图所示：上 1.微电子技术是信息技术领域中的关键技 术,它以集成电路为核心.下列有关集成电路的叙 述中,错误的是 (1) A. 现代集成电路使用的半导体

51、材料 只能是硅(Si),不能使用其它任何半导体材料 B. 集成度是指集成电路包含的电子 元件数目,可分为 SSI、MSI、VLSI 等 C. Moore 定律指出,单块集成电路的 集成度平均 18-24 个月翻一番 D. 我国第二代身份证中嵌入了集成 电路芯片,可以实现电子防伪和数字管理功能 2. 数据传输速率是数据通信中重要的性 能指标。Gb/s 是数据传输速率的计量单位之一,其 正确含义是 (2) 。 A.每秒兆位 B.每秒千兆位 C.每 秒百兆位 D.每秒百万位 3. 所谓"变号操作"是指将一个整数变成绝对 值相同但符号相反的另一个整数。假设使用补码表 示的 8 位整

52、数 x=10010101,则经过变号操作后结果 为(3). A.01101010 B.00010101 C.11101010 D.01101011 4. 下列有关 PC 机主板的叙述中,错误的是 (4) 。 A. 主板的物理尺寸没有标准,各厂家 均可自行定义 B. 主板上包含芯片组,它是 PC 机各组 成部分相互连接和通信的枢纽 C. 主板上包含 BIOS 和 CMOS 芯片 D. 主板上包含 CPU 插座、内存条插槽 及其它类型的插槽 5. 下列有关 PC 机中央处理器(CPU)和内存 (内存条)的叙述中,正确的是 _(5) . A.PC 机所采用的 CPU 都是 Intel 公司生 产的

53、Pentium 系列芯片,其它厂商生产的 CPU 都与 之不兼容 B.目前已有双核的微处理器(例如 Core 2 Duo),但还没有四核的微处理器 C. 通常来说,DRAM 的速度比 SRAM 的存 取速度慢 D. 一般来说,一个内存条上仅有一个 DRAM 或 SRAM 芯片 6. 下列有关 PC 机 I/O 总线与 I/O 接口的 叙述中,错误的是 _(6) . A. 目前 PC 机中协调与管理总线操作 的总线控制器包含在主板上的芯片组中 B. 总线最重要的性能是数据传输速 率,其单位通常为 MB/s 或 GB/s C. SATA 接口的数据传输速率通常低 于 USB 2.0 的数据传输速率

54、 D. USB 连接器有 4 个引脚,其中一个引 图中最末部分"?”表示的是(13) 。 发送计算机地址目的计算机地址编 号有效载荷 ? A.协议信息 B.校验信息 C.冗余信息 D.结束标志 14.目前网络用户接入因特网有多种方式, 例如 ADSL、HFC 等。通过 HFC 接入因特网时采用的 网络是(14)。 A. 有线电话网 B. 有线电视网 C. 无线局域网 D. 移动电话网 15.下列网络协议中,直接与电子邮件传输 相关的网络协议是(15)。 A.FTP B.SMTP C.TELNET D.NNTP 16.下列有关计算机中文本与文本处理的叙 述中,错误的是 (16) A.

55、西文字符主要是采用 ASCII 字符集, 基本 ASCII 字符集共有 256 个字符 B. 我 国 最 早 采 用 的 汉 字 字 符 集 是 GB2312,包含 6000 多个汉字和若干个非汉字字符 C. 无论采用何种方式输入汉字,在计 算机中保存时均采用统一的汉字内码 D. 简单文本和丰富格式文本中字符 信息的表示相同,区别在于格式信息的表示 17.彩色图像所使用的颜色描述方法称为颜 色模型(即颜色空间)。下列四种颜色模型中, 彩色喷墨打印机使用的是(17). A. RGB B. HSB C. YUV D. CMYK 18.文件的扩展名用于标记文件的类型,用 户应该尽可能多地知晓各类文件

56、的扩展名,下 列文件中,属于数字声音的文件是 A. ABC.RM B. ABC.WMA C. ABC.MKV D. ABC.SWF 19.信息系统软件开发瀑布模型包括系统 规划、系统分析、系统设计、系统实施和系统维 护等几个阶段。下面各项工作中,属于 系统实施阶段的是(19) A.问题定义 B.可行性研究 C.系统测试 D.绘制 E-R 图 20. 下 列 有 关 Micmsoft Word 2003 和 Microsoft Excel 2003 软件的叙述中,错误的是 (20) A. 利用 Word 软件编辑文档,可以将其 保存为 TXT、DOC、RTF 和 HTM 格式文件 B. 利用 W

57、ord 软件编辑文档时,可以统 计选定文本的字符数 C. 在 Excel 软件 中 , 可 以 打 开 ( 导 入)TXT、DBF、HTML 格式的文件(数据) D. Excel 文件可以设置打开权限密码, 但不可以单独设置修改权限密码 第二部分 Visual Basic 程序设计 一、选择题(用答题卡答题,答案依次填在 21-30 答题号内) 21.以下有关事件过程的说法中,正确的是 (21) A.所有的事件过程都是 Sub 子过程 B.所有的事件过程都没有参数 C.所有的事件都是由用户的操作直接引 发的 D.事件过程不能使用 Call 语句调用执行 22.以下语句中,正确的是(22) 。

58、A.List1.AddItem x,"=",y B.Picture1.Print x,"=",y C.Text1.Text=x,"=",y D.Label1.Caption=x,"=",y 23.以下有关 VB 程序书写规则的说法中,错 误的是(23) A.一行可以书写多条语句,语句间用":" 分隔 B.使用注释时,"'"可与注释语句定义符 "Rem"互换使用 C.过长的语句,可使用续行标志" _",分写 在多行上 D.代码输入

59、时,可不用区分字母大小写, 系统会将"保留字"首字母自动改为大写 24.设变量 I 和 J 是整型变量,K 是长整型变 量。I 已赋值 32763,J 和 K 分别赋值 5,若接着执行 以 下语句,可正确执行的是(24)。 A.I=I+K B.J=I+K C.K=I+J+K D.K=K+I+J 25.以下关系表达式中,运算结果为 False 的 是 (25) A.CInt(3.5)-Fix(3.5)>=0 B.CInt(3.5)-Int(3.5)>=0 C.Int(3.5)+Int(-3.5)>=0 D.Int(3.5)+Fix(-3.5)>=0 2

60、6.以下字符运算表达式中,其功能与函数 Mid(s,i,i)相同的是(26) A.Left(s,i) & Right(s,Len(s)-i) B.Left(Right(s,Len(s)-i+1),i) C.Left(Right(s,i),Len(s)-i+1) D.Left(s,Len(s)-i) & Right(s,i) 27. 数 学 表 达 式 的 VB 算 术 表 达 式 为 (27) A.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3/(x-y) B.Sqr(x*y3)+Abs(Exp(x)+Sin(x)3)/(x-y) C.Sqr(x*y3)+Abs(Ex

61、p(x)+Sin(x)3/x-y) D.Sqr(x*y)3)+Abs(Exp(x)+Sin(x)3)/(x-y) 28. 以 下 有 关 数 组 的 说 法 中 , 错 误 的 是 (28)。 A.使用 ReDim 语句,可以改变任何数组的 大小与维数 B.使用 ReDim 语句,可以定义一个新数组 C.使用 ReDim 语句重新定义动态数组时, 维界表达式中可以采用变量 D.使用 ReDim 语句重新定义的新数组,既 可比原数组大,也可比原数组小 29.以下有关 Function 过程的说法中,正确 的是(29) 。 A.函数名在过程中只能被赋值一次 B.如果在函数体内没有给函数名赋值,则 该函数无返回值 C.如果在定义函数时没有说明函数的类 型,则该函数是无类型的 D.执行函数过程中的 Exit Function 语句, 将退出该函数,返回到调用点 30.以下有关文件用法的描述中,正确的是 (30) A. 只 有 顺 序 文 件 在 读 写 前 需 要 使 用 Open 语句打开 B.使用同一个文件号,可同时打开多个 不同的文件 C.如