计算机基础知识与visual basic程序设计

n更多企业学院： 中小企业管理全能版183套讲座+89700份资料总经理、高层管理49套讲座+16388份资料中层管理学院46套讲座+6020份资料国学智慧、易经46套讲座人力资源学院56套讲座+27123份资料各阶段员工培训学院77套讲座+ 324份资料员工管理企业学院67套讲座+ 8720份资料工厂生产管理学院52套讲座+ 13920份资料财务管理学院53套讲座+ 17945份资料销售经理学院56套讲座+ 14350份资料销售人员培训学院72套讲座+ 4879份资料第一部分计算机基础知识1在下列有关现代信息技术的一些叙述中，正确的是 1 。 A集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生 B集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件 C目前所有数字通信均不再需要使用调制解调技术和载波技术 D光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量2最大的10位无符号二进制整数转换成八进制数是 2 。 A1023 B1777 C1000 D10243在下列有关目前PC机CPU的叙述中，错误的是 3 。 ACPU芯片主要是由Intel公司和AMD公司提供的 B“双核”是指PC机主板上含有两个独立的CPU芯片 CPentium 4微处理器的指令系统由数百条指令组成 DPentium 4微处理器中包含一定容量的Cache存储器4在下列有关当前PC机主板和内存的叙述中，正确的是 4 。 A主板上的BIOS芯片是一种只读存储器，其内容不可在线改写 B绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条 C内存条上的存储器芯片属于SRAM(静态随机存取存储器) D目前内存的存取时间大多在几个到十几个ns(纳秒)之间5在下列有关PC机辅助存储器的叙述中，正确的是 5 。 A硬盘的内部传输速率远远大于外部传输速率 B对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度 C使用USB 2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节 DCD-ROM的数据传输速率一般比USB 2.0还快6在下列PC机IO接口中，数据传输速率最快的是 6 。 AUSB 2.0 BIEEE_1394 CIrDA(红外) DSATA7计算机软件可分为商品软件、共享软件和自由软件等类型。在下列叙述中，错误的是 7 。 A通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的 B共享软件通常是一种“买前免费试用”的具有版权的软件 C自由软件的原则是用户可共享，并允许拷贝和自由传播D软件许可证是一种法律合同，它确定了用户对软件的使用权限8人们通常将计算机软件划分为系统软件和应用软件。下列软件中不属于应用软件的是 8 。 AAutoCAD BMSN COracle DWindows Media Player9在下列有关Windows 982000XP操作系统的叙述中，错误的是 9 。 A系统采用并发多任务方式支持多个任务在计算机中同时执行 B系统总是将一定的硬盘空间作为虚拟内存来使用 C文件(夹)名的长度可达200多个字符 D硬盘、光盘、优盘等均使用FAT文件系统10在下列有关算法和数据结构的叙述中，错误的是 10 。 A算法通常是用于解决某一个特定问题，且算法必须有输入和输出 B算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法C常用的数据结构有集合结构、线性结构、树形结构和网状结构等D数组的存储结构是一种顺序结构11因特网的IP地址由三个部分构成，从左到右分别代表 11 。 A网络号、主机号和类型号 B类型号、网络号和主机号 C网络号、类型号和主机号 D主机号、网络号和类型号12在下列有关ADSL技术及利用该技术接入因特网的叙述中，错误的是 12 。 A从理论上看，其上传速度与下载速度相同 B一条电话线上可同时接听，拨打电话和进行数据传输 C利用ADSL技术进行数据传输时，有效传输距离可达几公里 D目前利用ADSL技术上网的计算机一般需要使用以太网网卡13人们往往会用“我用的是10M宽带上网”来说明白己计算机连网的性能，这里的“10M”指的是数据通信中的 13 指标。 A最高数据传输速率 B平均数据传输速率 C每分钟数据流量 D每分钟IP数据包的数目14计算机局域网按拓扑结构进行分类，可分为环型、星型和 14 型等。 A电路交换 B以太 C总线 D对等15网络信息安全主要涉及数据的完整性、可用性、机密性等。保证数据的完整性就是 15 。A保证传送的数据信息不被第三方监视和窃取B保证发送方的真实身份C保证传送的数据信息不被篡改D保证发送方不能抵赖曾经发送过某数据信息16某计算机系统中，西文使用标准ASCII码、汉字采用GB2312编码。设有一段纯文本，其机内码为CB F5 DO B4 50 43 CA C7 D6 B8，则在这段文本中含有 16 。 A2个汉字和1个西文字符 B4个汉字和2个西文字符 C8个汉字和2个西文字符 D4个汉字和1个西文字符17以下关于汉字编码标准的叙述中，错误的是 17 。 AGB 2312标准中所有汉字的机内码均用双字节表示 B我国台湾地区使用的汉字编码标准BIG 5收录的是繁体汉字 CGB 18030汉字编码标准收录的汉字在GB 23i2标准中一定能找到 DGB 18030汉字编码标准既能与UCS(Unicode)接轨，又能保护已有中文信息资源18若波形声音未进行压缩时的码率为64kbs，已知取样频率为8kHz，量化位数为8，那么它的声道数是 18 。A1 B2C4D819从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。在下列几种信息系统中，不属于业务处理系统的是 19 。 ADSS BCAI CCAM DOA20在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是 20 。 A常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和CASE 方法等 B在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理 过程的关系 C系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用E-R模型作为描 述逻辑结构的工具 D从信息系统开发过程来看，程序编码、编译、连接、测试等属于系统实施阶段的工作第二部分Visual Basic程序设计一、选择题(用答题卡答题，答案依次填在2130答题号内)21在列表框List1中有若干列表项，可以删除选定列表项的语句是 21 。 AList1.Text= BList1. List(List1. ListIndex) = CList1.Clear DList1.RemoveItem List1.ListIndex22执行 22 语句时，会出现出错提示信息。 APrint 5 + 7 = 14BPrint 16384 * 2 CPrint 32768 * 2 DPrint 14 + 3223数学表达式对应的VB表达式是 23 。A(e (2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2)B(Exp(2*3.14159*x-5)*Log(Sin(2*x)3)/Sqr(Sinx)-Cos(x2)C(Exp(2*x-5)*Ln(x)+(Sin(2*x)3/Sqr(Sin(x)-Cos(x2)De(2*3.14159*x-5) *Ln(x)+(Sin(2*x)3/Sqr(Sin(x)-Cos(x2)24以下有关数组的说法中，错误的是 24 。 A使用了Preserve子句的ReDim语句，只允许改变数组最后一维的上界 B对于动态数组， ReDim语句可以改变其维界但不可以改变其数据类型 CErase语句的功能只是对固定大小的数组进行初始化 DLBound函数返回值是指定数组某一维的下界25以下关于过程的说法中，错误的是 25 。 A在Sub或Function过程内部不能再定义其它Sub或Function过程 B对于使用ByRef说明的形参，在过程调用时形参和实参只能按传地址方式结合 C递归过程既可以是递归Function过程，也可以是递归Sub过程 D可以像调用Sub过程一样使用Call语句调用Function过程26以下有关对象属性的说法中，错误的是 26 。 A工具箱中的控件并不是VB中所有的控件 B若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C对象的Name属性在运行时不能改变 D对象的所有属性都可以在属性窗口中设置27下列有关变量作用域的叙述中，正确的是 27 。 A窗体中凡是用Preserve声明的变量只能在某个指定的过程中使用 B模块级变量只能用Dim语句声明 C凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D当不同作用域的同名变量发生冲突时，优先访问局限性小的变量28表达式Cint(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9) + 0 Mod 2的运算结果是 28 。 A1 B-1 C-2 D-329若要使逻辑表达式x y Xor Y = j Then a(i, j) = i - j Else a(i, j) = j - i End If Next j Next i For i = 1 To 3 For j = 3 To 1 Step -1 Picture1.Print a(i, j); Next j Picture1.Print Next iEnd Sub2执行下面程序，如果连续三次单击Command1，A数组共有 4 个元素；数组元素A（2）的值是 5 ，A（5）的值是 6 。Option ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i = 1 To n Print a(i); Next i PrintEnd Sub3执行下面的程序，单击Command1，在窗体上显示的变量a的值为 7 ，变量b的值为 8 。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function4执行下面的程序，单击Command1，窗体上显示的第一行是 9 ，第二行是 10 ，第四行是 11 ，最后一行是 12 。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print nEnd SubPrivate Sub test(ByVal n As Integer) Dim i As Integer, s As String If n 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print OVER End IfEnd Sub5执行下列程序，单击Command1，在窗体上显示的第一行内容是 13 ，第二行的内容是 14 ，第三行的内容是 15 。（“A”的ASCII码是65，“Z”是90）Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = B For i = 3 To 1 Step -1 n = Asc(p) - i If n 65 Then n = n + 26 st = Chr(n) st = st & f(i) Print st Next iEnd SubPrivate Function f(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i f = sEnd Function6用以下公式求f(x)的值。当通项的绝对值小于10-7时停止计算，x的值由键盘输入。 其中： a1=1, a2=2, , n = 3,4,5,请完善如下程序：Option ExplicitPrivate Sub Command1_Click() Dim x As Single, fx As Single Dim a As Single, a1 As Single, a2 As Single Dim t As Single a1 = 1: a2 = 2 x = text1 If 16 Then MsgBox (x必须在-11之间) Exit Sub End If fx = a1 * x - a2 * x * x t = (-1) * x * x Do a = 1 / (a1 + a2) t = (-1) * t * x fx = 17 a1 = a2 18 Loop Until Abs(a * t) Right为止。Right的值即为不同的数的个数。Option ExplicitOption Base 1Private Sub Command1_Click() Dim a() As Integer, n As Integer, i As Integer Dim op As Integer n = InputBox(请输入数据个数, , 10) ReDim a(n) Randomize For i = 1 To n a(i) = Int(Rnd * 10) + 1 text1 = text1 & a(i) & Next i Call statistic(a, op) text2 = 有 & op & 个不同的数: For i = 1 To op text2 = text2 & a(i) & Next iEnd SubPrivate Sub statistic(a() As Integer, right As Integer) Dim Left As Integer, k As Integer, i As Integer right = 23 Left = 2 Do While Left & s Next iEnd SubPrivate Sub convert(ch As String, s As String) Dim m As Integer, k As Integer, n As Integer, i As Integer s = 28 n = Asc(ch) Do While n 0 29 s = m & s If m = 1 Then k = k + 1 End If n = n 2 Loop For i = 1 To 7 - Len(s) s = 0 & s Next i