江苏省计算机等级考试 visual basic 2008年(春)笔试试.doc

第一部分计算机基础知识1在下列有关微电子技术与集成电路的叙述中，错误的是 1 。 A微电子技术是以集成电路为核心的技术 B集成度是指单个集成电路所含电子元件的数目 CMoore定律指出，单个集成电路的集成度平均每1824个月翻一番 DIC卡仅有存储器和处理器，卡中不可能存储有软件2在下列有关通信技术的叙述中，错误的是 2 。 A目前无线电广播主要还是采用模拟通信技术 B数字传输技术最早是被长途电话系统采用的 C数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”) D局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号3CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施? 3 增加CPU中寄存器的数目 提高CPU的主频 增加CPU中高速缓存(cache)的容量 优化BIOS的设计 A、和 B、和 C和 D、和4下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是 4 。ARS-232 BIEEE-1394 CUSB DIDE5下列有关PC机外部设备的叙述中，错误的是 5 。 A扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一 B制作3-5英寸的照片(图片)，数码相机的CCD像素必须在600万以上 C集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中 D存折和票据的打印，目前主要是采用针式打印机6下列有关PC机辅助存储器的叙述中，错误的是 6 。 A硬盘的盘片转动速度特别快，目前一般为每秒数千转 B近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快 C目前移动硬盘大多采用USB 2.0接口，其传输速率可达每秒数十兆字节 D40倍速的CD-ROM驱动器的速率可达6MBs左右7在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是 7 。 A通常用户需要付费才能得到商品软件的合法使用权 B共享软件是一种“买前免费试用”的具有版权的软件 C自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播 D软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8下面有关Windows操作系统多任务处理的叙述中，正确的是 8 。 A用户如果只启动一个应用程序工作(如使用Word写作)，则该程序自始至终独占CPU B由于CPU具有多个执行部件，所以操作系统才能同时进行多个任务的处理 C前台任务和后台任务都能得到CPU的响应 D处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短9从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是 9 。 A空间代价和时间代价 C可读性和开放性 B正确性和简明性 D数据复杂性和程序复杂性10接入因特网的每台计算机的IP地址 10 。 A由与该计算机直接连接的交换机及其端口决定 B由该计算机中网卡的生产厂家设定 C由网络管理员或因特网服务提供商(ISP)分配 D由用户自定11以下关于局域网和广域网的叙述中，正确的是 11 。 A广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的 B局域网中的每个节点都有一个惟一的物理地址，称为介质访问地址(MAC地址) C现阶段家庭用户的PC机只能通过电话线接入网络 D单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网12目前在网络互连中用得最广泛的是TCPIP协议。事实上，TCPIP是一个协议系列，它已经包含了100多个协议。在TCPIP协议中，远程登录使用的协议是 12 。 ATELNET BFTP CHTTP DUDP13关于电子邮件服务，下列叙述中错误的是 13 。 A网络中必须有邮件服务器用来运行邮件服务器软件 B用户发出的邮件会暂时存放在邮件服务器中 C用户上网时可以向邮件服务器发出接收邮件的请求D发邮件者和收邮件者如果同时在线，则可不通过邮件服务器而直接通信14国际标准化组织(ISO)将世界各国和地区使用的主要文字符号进行统一编码的方案称为 14 。AUCS/UnicodeBGB2312CGBKDGBl803015存放一幅1024768像素的未经压缩的真彩色(24位)图像，大约需要多少字节的存储空间？ 15 。A102476824B10247683C10247682D10247681216对带宽为300-3400Hz的语音，若采样频率为8kHz、量化位数为8位且为单声道，则未压缩时的码率约为 16 。 A64kbs B64kBs C128kbs D128kBs17彩色图像所使用的颜色描述方法称为颜色模型。在下列颜色模型中，主要用于彩色喷墨打印机的是 17 。 AYUV BHSB CCMYKDRGB18从信息处理的深度来区分，信息系统可分为业务信息处理系统、信息检索系统、信息分析系统和专家系统。在下列相关叙述中，错误的是 18 。 A业务信息处理系统是采用计算机进行日常业务处理的信息系统 B信息检索系统就是指因特网上提供的各种搜索引擎，可以供各类用户免费使用 C决策支持系统是一种常见的信息分析系统 D专家系统可模仿人类专家的思维活动，通过推理与判断来求解问题19在下列有关Microsoft Excel 2000(中文版)功能的叙述中，错误的是 19 。 A可以将Excel工作簿或选定的工作表另存为网页文件(.htm) B对数据清单进行排序时，最多可以选择5个关键字 C通过设置，可以实现在某单元格中输入数据后按回车键，光标自动移动到上边一单元格或左边一单元格 D在工作表中可以插入“艺术字”20在下列有关Microsoft FrontPage 2000(中文版)功能的叙述中，错误的是 20 。 A执行菜单命令“新建”时，可以选择是新建网页还是新建站点 B用户可以对框架网页的框架进行拆分或删除 C如同Microsoft Word中的表格，用户可以在网页中手绘表格或插入表格D系统提供了“绘图”工具栏，便于用户在网页中绘图第二部分Visual Basic程序设计一、选择题(用答题卡答题，答案依次填在2130答题号内)21下列关于某对象SetFocus与GotFocus的描述中，正确的是 21 。 ASetFocus是事件，GotFocus是方法 BSetFocus和GotFocus都是事件 CSetFocus和GotFocus都是方法 DSetFocus是方法，GotFocus是事件22Print方法可在 22 上输出数据。 窗体 文本框 图片框 标签 列表框 立即窗口 A B C D23数学表达式对应的VB表达式是 23 。A(x5-Cos(29)Sqr(ex+ln(y)+5B(x5-Cos(29)(Sqr(Exp(x)+Log(y)+5)C(x5-Cos(29*3.14159180)(Sqr(Exp(x)+Log(y)+5)D(x5-Cos(29*3.14159180)(Sqr(ex+Log(y)+5)24以下有关数组参数的说明中，正确的是 24 。 A在过程中也可用Dim语句对形参数组进行说明 B动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C调用过程时，数组名不能作为实参 D数组可以按地址传递也可以按值传递25以下关于子过程或函数的定义中，正确的是 25 。 ASub f1(n As String*1) BSub f1(n As Integer)As Integer CFunction f1(f1 As Integer)As Integer DFunction f1(ByVal n As Integer)26以下关于数值常量的说法中，错误的是 26 。 A八进制数的表示方法是在数字前面加&O B十六进制数的表示方法是在数字前面加&H C在浮点数值中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D32768是合法的数值常量27下列有关对象的叙述中，正确的是 27 。 A对象由属性、事件和方法构成 B对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C对象的事件一定就是由VB预先设置好的人工干预的动作 D对象的方法是对象响应某个事件后所执行的一段程序代码28已知XB，则下列表达式中，结果为True的是 28 。 ASgn(X-Y)+Sgn(A-B)=-1 BSgn(X-Y)+Sgn(A-B)=-2 CSgn(Y-X)+Sgn(A-B)=2 DSgn(Y-X)+Sgn(A-B)=029下列能够正确表示条件“xYZ”的VB逻辑表达式是 29 。 AXYZ BX=Y And YZ CXY or YZ DX=Y 0 If x Mod 4 = 0 Then y = y + x Else y = y - x End If x = x - 3 Print x, y LoopEnd Sub2执行下面程序，单击Commandl，窗体上显示的第一行是 4 ，第二行是 5 ，第三行是 5 。Option ExplicitOption Base 1Private Sub Command1_Click() Dim sa(3, 3) As String * 1, i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 3 For j = 1 To 3 sa(i, j) = Chr(Asc(A) + (k + i + j) Mod 26) Print sa(i, j); ; k = k + 3 Next j Print Next iEnd Sub3执行下面的程序，单击Commandl，在窗体上显示的变量b的值为 7 ，变量c的值为 8 ，变量z的值为 9 。Option ExplicitPrivate Sub Command1_Click() Dim b As Integer, c As Integer, z As Integer b = 2 c = 1 z = fun(b, fun(b + 1, c) + b - c + 1 Print b, c, zEnd SubPrivate Function fun(x As Integer, ByVal y As Integer) As Integer x = x - y y = x + y + 2 fun = y - xEnd Function4执行下面的程序，单击Commandl，输出的变量i的值是 10 ，变量j的值是 11 ，变量k的值是 12 。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer i = 10 j = 4 k = Funk(i, j) Print i, j, kEnd SubPrivate Function Funk(ByVal a As Integer, b As Integer) As Integer a = a + b b = b - 2 If b = 0 Or b = 1 Then Funk = 1 Else Funk = a + Funk(a, b) End IfEnd Function5执行下列程序，单击Commandl，在窗体上显示的第一行内容是 13 ，第二行的内容是 14 ，第三行的内容是 15 。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, i As Integer n = 2 For i = 7 To 1 Step -1 Call sub2(i, n) Print i, n Next iEnd SubPrivate Sub sub2(x As Integer, y As Integer) Static n As Integer Dim i As Integer For i = 2 To 1 Step -1 n = n + x x = x - 1 Next i y = y + nEnd Sub6用以下公式求Sin(x)的值。当级数通项的绝对值小于eps=10-7时停止计算，x的值由键盘输入。 n=0,1,2,请完善如下程序：Option ExplicitPrivate Sub Form_Click() Dim x As Double, t As Double, n As Integer, sum As Double Const eps = 0.0000001 x = Val(InputBox(请输入x：) 16 sum = t n = 1 Do Until 17 t = -t t = 18 sum = sum + t n = n + 1 Loop Print Sin(; x; )=; Format(sum, 0.000)End Sub7下面程序的功能是随机生成小于100的诸素数组成的数组。Option ExplicitPrivate Sub Command1_Click() Dim p() As Integer, i As Integer, n As Integer Dim st As String, k As Integer Randomize k = InputBox(元素个数：, , 20) ReDim p(k) Do n = Int(Rnd * 90) + 10 If 19 Then i = i + 1 p(i) = n End If Loop Until 20 For i = 1 To UBound(p) st = st & Str(p(i) If i Mod 10 = 0 Then st = st & vbCrLf Next i Text1 = stEnd SubPrivate Function prime(n As Integer) As Boolean Dim i As Integer prime = True For i = 2 To Sqr(n) If n Mod i = 0 Then 21 Exit For End If Next iEnd Function8下列程序的功能是将给定整数N表示成若干个质数因子相乘的形式(分解质因数)。Option ExplicitOption Base 1Private Sub Command1_Click() Dim n As Integer, a() As Integer Dim st As String, i As Integer n = Text1 Call fenjie(n, a) st = CStr(n) & = For i = 1 To UBound(a) - 1 st = st & a(i) & * Next i Text2 = st & a(i)End SubPrivate Sub fenjie( 22 ) Dim k As Integer, i As Integer k = 2 Do If n Mod k = 0 Then i = i + 1 ReDim Preserve a(i) a(i) = k 23 Else 24 End If Loop Until 25 End Sub9本程序的功能是把由4个用“”分隔的十进制数表示的IP地址转换为由32位二进制数组成的IP地址。例如十进制表示的IP地址为，其中每个十进制数对应一个8位的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。过程Tiqu用于提取十进制IP地址中每个用“”分隔的十进制数；过程Convert用于将十进制数转换为相应的8位二进制数。 Private Sub Command1_Click() Dim str1 As String, str2 As String Dim a(4) As Integer, i As Integer str1 = Text1.Text Call Tiqu(str1, a) For i = 1 To 4 If a(i) 255 Then MsgBox (IP地址错误!) Exit Sub Else 26 End If Next i Text2.Text = str2End SubPrivate Sub Tiqu(st As String, a() As Integer) Dim n As Integer, k As Integer, s As String, d As String * 1, i As Integer n = Len(st): k = 0: s = For i = 1 To n 27 If d = . Then k = k + 1 a(