2008春VB笔试卷_免费下载.doc

2008年（春）笔试试卷2008年春江苏省计算机二级VB试卷第一部分 计算机基础知识1在下列有关微电子技术与集成电路的叙述中，错误的是 。A微电子技术是以集成电路为核心的技术B集成度是指单个集成电路所含电子元件的数目CMore定律指出，单个集成电路的集成度平均每1824个月翻一番DIC卡仅有存储器和处理器，卡中不可能存有软件2在下列有关通信技术的叙述中，错误的是A目前无线电广播主要还是采用模拟通信技术B数字传输技术最早是被长途电话系统采用的C数字通信系统的信道宽度就是指数据的实际传输速率（简称“数据速率” ） D局域网中广泛应用的双绞线既可以传输数字信号，也可以传输模拟信号3CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施 增加CPU中寄存器的数目 提高CPU主频 增加CPU中高速缓存(cache)的容量 优化BIOS的设计A、和 B、和 C和 D、和4下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘均能连接的接口是ARS232BIEEE1394 CUSBDIDE5下列有关PC机外部设备的叙述中，错误的是A扫描仪工作过程主要基于光电转换原理，分辨率是其重要性能指标之一B制作35英寸的照片（图片），数码相机的CCD象素必须在600万以上C集成显卡（指集成在主板上的显卡）的显示控制器主要集成在芯片组中D存折和票据的打印，目前主要是采用针式打印机6下列有关PC机辅助存储器的叙述中，错误的是A硬盘的盘片转动速度特别快，目前一般为每秒数千转B近年来使用的串行ATA（SATA）的接口硬盘，其传输速率比采用IDE的接口要快C目前移动硬盘大多采用USB2.0接口，其传输速率可达每秒数十兆字节D40倍速的CDROM驱动器的速率可达6MB/s左右7在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是A通常用户需要付费才能得到商品软件的合法使用权B共享软件是一种“买前免费试用”的具有版权的软件C自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D软件许可证确定了用户对软件的使用方式,扩大了版权法给予用户的权利8下面关于Windows操作系统多任务处理的叙述中，正确的是A用户如果只启动一个应用程序工作（如使用Word写作），则该程序自始至终独占CPUB由于CPU有多个执行部件，所以操作系统才能同时进行多个任务的处理C前台任务和后台都能得到CPU的响应D处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短9从算法需要占用的计算机资源角度分析其优劣时，应考虑两个主要方面是A空间代价和时间代价B正确性和简明性C可读性和开放性 D数据复杂性和程序复杂性10接入因特网的每台计算机的IP地址A由与该计算机直接连接的交换机及其端口决定B由该计算机中网卡的生产厂家设定C由网络管理员或因特网服务提供商（ISP）分配D由用户自定11以下关于局域网和广域网的叙述中，正确的是A广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的B局域网中的每个节点都有唯一的物理地址，称为介质访问地址（MAC地址）C现阶段家庭用户的PC机只能通过电话线接入网络D单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网12目前在网络互联中用得最广泛的是TCP/IP协议。事实上，TCP/IP是一个协议系列，它已经包含了100多个协议。TCP/IP协议中，远程登录使用的协议是ATELNET BFTP CHTTP DUDP13关于电子邮件服务，下列叙述中错误的是A网络中必须有邮件服务器用来运行邮件服务器软件B用户发出的邮件会暂时存放在邮件服务器中C用户上网时可以向邮件服务器发出接收邮件的请求D发邮件者和收邮件者如果同时在线，则不通过邮件服务器而直接通信14国际标准化组织（ISO）将世界各国和地区使用的主要文字符号进行统一编码的方案称为AUSC/UnicodeBGB2312 CGBK DGB1803015存放一幅1024768像素的未经压缩的真彩色（24位）图像，大约需要多少字节的存储空间？A102476824 B10247682C10247683 D10247681216对带宽为3003400的语音，若采样频率为8kHz、量化位数为8位且为单声道，则未压缩时的码率为A64kb/s B64kB/s C128kb/s D128kB/s17彩色图像所使用的颜色描述方法称为颜色模型。在下列颜色模型中，主要用于彩色喷墨打印机的是AYUV BHSB CCMYK DRGB18从信息处理深度来区分，信息系统可分为业务信息处理系统、信息检索系统、信息分析系统和专家系统。在下列相关叙述中，错误的是A业务信息处理系统是采用计算机进行日常业务处理的信息系统B信息检索系统就是指因特网上提供的各种搜索引擎，可以供各类用户免费使用C决策支持系统是一种常见的信息分析系统D专家系统可模仿人类专家的思维活动，通过推理和判断来求解问题19在下列有关Microsoft Excel 2000（中文版）功能叙述中，错误的是A可以将Excel工作薄或选定的工作表另存为网页文件（.html）B对数据清单进行排序时，最多可以选择5个关键字C通过设置，可以实现在某个单元格中输入数据后按回车键，光标自动移动到上边一单元格或左边一单元格D在工作表中可以插入“艺术字”20在下列关于Microsoft FrontPage 2000（中文版）功能的叙述中，错误的是A执行菜单命令“新建”时，可以选择是新建网页还是新建站点B用户可以对框架网页的框架进行拆分和删除C如同Microsoft Word中的表格，用户可以在网页中手绘表格或插入表格D系统提供了“绘图”工具栏，便于用户在网页中绘图第二部分 Visual Basic 程序设计一、 选择题（用答题卡答题，答案一次填在2130答题号内）21下列关于某对象SetFocus与GotFocus的描述中，正确的是ASetFocus是事件，GotFocus是方法 BSetFocus和GotFocus都是事件CSetFocus和GotFocus都是方法 DSetFocus是方法，GotFocus是事件22Print方法可在 上输出数据窗体 文本框 图片框 标签 列表框 立即窗口A B C D23数学表达式对应的VB的表达式是A（x5-cos(29)）/Sqr(ex+ln(y)+5B（x5-cos(29)）/(Sqr(Exp(x)+log(y)+5)C（x5-cos(29*3.14159/180)）/(Sqr(Exp(x)+log(y)+5)D（x5-cos(29*3.14159/180)）/(Sqr(ex +log(y)+5)24以下关于参数的说明中，正确的是A在过程中可用Dim语句对形参数组进行说明B动态数组作实参时，可用ReDim语句在过程中改变对应形参数组的维界C调用过程时，数组名不能作为实参D数组可以按地址传递也可以按值传递25以下关于子过程或函数的定义中，正确的是ASub f1(n As String*1) BSub f1(n As String*1) As IntegerCFunction f1(f1 As Integer) As Integer DFunction f1 (ByVal n As Integer)26以下关于数值常量的说法中，错误的是A八进制的表示方法是在数字前面加&OB十六进制的表示方法是在数字前面加&HC在浮点数值中使用D来分隔尾数和指数时，系统将把该数作为单精度数处理D32768是合法的数值常量27下列关于对象的叙述中，正确的是A对象由属性、事件和方法构成B对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置C对象的事件一定就是由VB预先设置好的人工干预的动作D对象的方法是对象响应某个事件后所执行的一段程序代码28已知XB，则下列表达式中，结果为Ture的是ASgn(X-Y)+Sgn(A-B)=-1 BSgn (X-Y)+Sgn(A-B)=-2CSgn(Y-X)+Sgn(A-B)=2 DSgn(Y-X)+Sgn(A-B)=029下列能够正确表示条件“XYZ”的逻辑表达式是AXYZ BX=Y And YZCXY 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. 执行下面程序，单击Command1，窗体上显示的第一行是 （4） ，第二行是 （5） ，第三行是 （3） 。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. 执行下面程序，单击Command1，窗体上显示的变量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. 执行下面程序，单击Command1，输出的变量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. 执行下面程序，单击Command1，输出的变量i的值是 （13） ，变量j的值是 （14） ，变量k的值是 （15） 。Private Sub Command1_Click() Dim n As Integer, i As Integer Dim k 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）的值。当级数通项的绝对值小于esp=时停止计算，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 （18） sum = sum + t n = n + 2 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位二进制数。Option Ex