2005秋VB理论试题.doc

2005秋江苏省计算机等级考试笔试卷第一部分 计算机基础知识1.在下列关于信息系统的叙述中，错误的是 。A.电话是一种双向的、点对点的、以信息交互为主要目的的系统B.网络聊天是一种双向的、以信息交互为主要目的的系统C.广播是一种双向的、点到多点的信息交互系统D.Internet是一种跨越全球的多功能信息系统2.微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（IC）的叙述中，错误的是 。A.现代集成电路使用的半导体材料大多数是（Si）B.Pentium4微处理器芯片是一种超大规模集成电路，其集成度在1000万以上C.目前PC机中所用的的电子元器件均为大规模集成电路D.Moore定律指出（预言），集成电路的集成度平均1824个月翻一番3.多路复用技术和交换技术的发展极大地提高了通信线路的利用率。在下列的一些叙述中，错误的是 。A.数字传输技术采用的多路复用技术是时分多路复用技术B.目前有线电视采用频分多路复用技术在同一电缆上传输多套电视节目C.交换技术主要有两种类型，即电路交换和分组交换D.采用分组交换技术传递信息的速度比采用电路交换技术快4.在下列有关计算机中数值信息表示的叙述中，错误的是 。A.正整数无论是采用原码表示还是补码表示，其编码都是相同的B.相同位数的二进制补码和原码，他们能表示的数的个数也是相同的C.在实数的浮点表示中，阶码是一个整数D.从精度上看，Pentium处理器支持多种类型的浮点数5.根据存储器芯片的功能及物理特性，目前通常用作高速缓冲存储器(Cache)的是 。A.SRAM B.DRAM C.SDRAM D.Flash ROM6.I/O接口指的是计算机中用于连接I/O设备的各种插头/插座，以及响应的通信规程和电器特性。在目前的PC机中，IDE接口主要用于 与主机的连接。A.键盘 B.显示器 C.硬盘 D.打印机7.成像芯片的像素数目是数码相机的重要性能指标，它与可拍摄的图象分辨率直接相关。SONYDSC-P71数码相机的像素约为320万，它所拍摄的图象的最高分辨率为 。A.1280*960 B.1600*1200 C.2048*1536 D.2560*19208.目前广泛使用的打印机主要有针式打印机、激光打印机和喷墨打印机。在写列有关打印机的叙述中，错误的是 。A.9针的针式打印机是指打印头由9根钢针组成B.激光打印机的主要消耗材料之一是碳粉/硒鼓C.喷墨打印机与激光打印机的打印速度均用每分钟打印的页数来衡量D.目前激光打印机均为黑白打印机，而喷墨打印机均为彩色打印机9.光盘存储器具有记录密度较高、存储容量较大、信息保存长久等优点。在下列有关光盘存储器的叙述中，错误的是 。A.CD-RW光盘刻录机可以刻录CD-R和CD-RW盘片B.DVD的英文全名是Digital Video Disc，即数字视频光盘，它仅能存储视频信息C.DVD光盘的容量一般为数千兆字节D.目前DVD光盘存储器所采用的激光大多为红色激光10.在下列PC机软件中，不属于文字处理软件的是 。A.Word B.Adobe Acrobat C.WPS D.CorelDraw11.Windows操作系统具有较强的存储管理功能，当主存容量不够时系统可以自动地“扩充”，为应用程序提供一个容量比实际物理主存大得多的存储空间。这种存储管理技术称为 A.缓冲区技术 B.虚拟存储器技术 C.SPOOLing技术 D.进程调度技术12.操作系统是现代计算机必不可少的系统软件之一。在下列有关操作系统的叙述中，错误的是 。A.UNIX操作系统是一种多用户分时操作系统，可用于PC机B.Linux操作系统是由美国Linux公司开发的操作系统C.目前WindowsXP操作系统有多个不同版本D.至目前为止，Windows98及其以后的版本均支持FAT32文件系统13.理论上已经证明，构成求解计算问题的程序控制结构只需 即可。A.重复、处理、返回 B.顺序、选择、重复C.输入、处理、输出 D.顺序、循环、转移14.将一个部门中的多台计算机组建成局域网可以实现资源共享。在下列有关局域网的叙述中，错误的是 。A.局域网必须采用TCP/IP协议进行通信B.局域网一般采用专用的通信线路C.局域网可以采用的工作模式主要有对等模式和客户/服务器模式D.构建以太（局域）网时，需使用集线器或交换机等网络设备，一般不需要路由器15.接入Internet的方式不同，则所需设备和上网性能也有所不同。在下列几种Internet接入方式中，从现有技术来看，上网速度最快的是 。A.ISDN B.ADSL C.FTTx+ETTH D.Cable MODEM技术16.WWW与E-mail是目前Internet上是使用最为广泛的服务。在下列有关WWW与E-mail服务的叙述中，错误的是 。A.WWW有遍布Internet上的Web服务器和安装WWW浏览器的客户机组成，它采用客户/服务器的工作模式B.目前网页（Web页）描述语言主要采用HTML，HTML文档均包含头部、正文和尾部三个部分C.每个电子邮箱都对应唯一的邮箱地址，且该地址有固定的格式，例如任何电子邮件地址均包含字符 “”D.使用MIME协议后，邮件正文可以含有ASCII字符、汉字和图象等多种类型的数据17.在下列字符编码标准中，包含汉字数量最多的是 。A.GB2312 B.GBK C.GB18030. D.UCS-218.在下列有关数字图象和图形的叙述中，错误的是 。 A.取样图象的数字化过程一般分为扫描、分色、取样和量化等处理步骤B.为了使网页传输的图象数据尽可能少，常用的GIF格式图象文件采用了有损压缩C.矢量图形（简称图形）是指使用计算机技术合成的图象D.计算机辅助设计和计算机动画是计算机合成图象的典型应用19.计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是 。A.在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效B.信息系统开发方法有多种，例如生命周期法、原型法等C.专家系统属于信息处理系统、D.MRP和ERP是面向电子商务的信息系统20.Microsoft Excel是Office软件的重要组件之一。在下列有关Microsoft Excel（97及其以后的版本）功能及使用的叙述中，错误的是 。A.每个Excel文件均为一个工作簿，在默认情况下包含3张工作表B.每个工作表可以包含的行和列的数量是没有限制的C.系统提供了对数据的排序、筛选和分类汇总等功能D.可以将Excel工作簿（表）保存为网页文件或文本文件第二部分 VB程序设计 一、 选择题21以下所列的8个控件中，具有Caption属性的有 个。CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）A5 B4 C3 D222执行下面语句后，Len函数值最大的是 。Dim IA As Integer, B As Single, S As String *5, Ch As StringIA=32767 : B=23.5 : S=”A” :Ch=”abcd”ALen(IA) BLen(B) CLen(S) DLen(Ch)23假设变量Lng为长整形变量，下面不能正常执行的语句是 ALng=16384*2 BLng=4*0.5*16384CLng=1902 D32768*224数学表达式 对应的正确Visual Basic表达式为 A-b+Sqr(b*b-4*a*c)/2*aB-b+Sqr(b*b-4*a*c)/(2*a)C(-b+Sqr(b*b-4*a*c)/(2*a)D(-b+Sqr(b*b-4*a*c)/ 2*a25设Mys1,Mys2均为字符串型变量，Mys1=”Visual Basic”,Mys2=”b”,则下面关系表达式中结果为的是 ALen(Mys1)2*InStr(Mys1,”1”)BMod(Mys1,8,1)Mys2CChr(98)&Right(Mys1,4)=”Basic”DInStr(Left(Mys1,6),”a”)+60= 1 Then Call Test(t - 1) For i = 3 To t Step -1 Print Chr(Asc(A) + i); Next i Print End If Test = tEnd Function4运行下面的程序，当单击窗体时，窗体上显示的第一行内容是10 8，第三行内容是5 2，第四行内容是12 -10。Dim x As Integer, y As IntegerPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 5: b = 3 Call sub1(a, b) Print a, b Print x, yEnd SubPrivate Sub sub1(ByVal m As Integer, n As Integer) Dim y As Integer x = m + n: y = m - n m = fun1(x, y) n = fun1(y, x)End SubPrivate Function fun1(a As Integer, b As Integer) As Integer x = a + b: y = a - b Print x, y fun1 = x + yEnd Function5执行下面的程序，当单击COMMAND1时，picute1中显示内容的第二行与第四行分别是5 6 7 8与13 14 15 16，picture2中显示内容的第一行和第三行分别是4 8 12 16与2 6 10 14。Private Sub Command1_Click() Dim a(4, 4) As Integer, I As Integer, j As Integer Dim b(4, 4) As Integer For I = 1 To 4 s = For j = 1 To 4 a(I, j) = (I - 1) * 4 + j) s = s & Right( & Str(a(I, j), 3) Next j Picture1.Print s Next I For I = 1 To 4 For j = 1 To 4 b(5 - j, I) = a(I, j) Next j Next I For I = 1 To 4 s = For j = 1 To 4 If Len(CStr(b(I, j) 2 Then s = s & & CStr(b(I, j) & Else s = s & CStr(b(I, j) & End If Next j Picture2.Print s Next IEnd Sub6下面程序的功能时，输入x的值，利用递推法分别求出级数前n项（n=0，1，2，3）之和。S=a0+a1+an+其中， a 0=1 a n=a n-1 * n=1,2,3计算积数，直到第n项的绝对值小于等于0.001时停止，完善程序，实现以上功能。Option ExplicitPrivate Sub Command1_Click() Dim x As Single, I As Integer, s As Single Dim a As Single, a1 As Single x = Text1 a = 1: s = a List1.AddItem s & 0= & Str(s) Do I = I + 1 a1 = a * x * (3 - 2 * I) / (2 * I) s = s + a1 List1.AddItem s & CStr(I) & = & Str(s) If Abs(a1) Sqr(I) Then Idx = Idx + 1 ReDim Preserve A(Idx) A(Idx) = I End If Next IEnd Sub8将20个棋子围成一圈，按顺时针方向从1-20给棋子编号，从中取出棋子的规则是：从某编号棋子开始取出第1个棋子，然后按顺时针方向围绕周数棋子，从1数到2取第2个，再从1数到3取第3个，再从1数到4取第4个直到取完。本程序的功能就是找出依照上述规则取棋子的编号序列，使得最后一个被取棋子的编号为指定的编号。例如：若指定最后取棋子的编号为9，则必须从编号为17的棋子开始取第一个棋子，取棋子的顺序是：17，19，2，6，11，18。完善程序，实现以上功能。Option Base 1Private Sub Command1_Click() Dim a(20) As Integer, I As Integer, k As Integer Dim n As Integer, number As Integer, s As String number = Val(text2) For k = 1 To 20 For I = 1 To 20 a(I) = 1 Next I S=_left(cstr(k) & -,3) Call sub1(a, k, n, s) If n = number Then Text1 = s Exit For End If Next kEnd SubPrivate Sub sub1(a() As Integer, ByVal idx As Integer, n As Integer, s As String) Dim I As Integer, js As Integer, sum As Integer Dim ub As Integer, step As Integer _ub=ubound(A)_ js = 1: stemp = 1 a(idx) = 0 Do While js 20 step = step + 1 _sum=0_ Do While sum ub then _idx =idx mod ub_ sum = sum + a(idx) Loop a(idx) = 0 s = s & Left(CStr(idx) & , 3) _js=js+1_ If js Mod 10 = 0 Then s = s & vbCrLf Loop n = idxEnd Sub9C盘根目录下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。Dim a() As Integer, b() As IntegerPrivate Sub command1_click() Dim I As Integer, j As Integer, n As Integer, s As String _ open c:data.txt for input as #11_ Do Input #11, n If n = -1 Then E