江苏省计算机等级考试visual basic 2009年(秋)笔试试卷.doc

第一部分计算机基础知识1下面关于个人移动通信的叙述中，错误的是_ _。 A第1代个人移动通信（简称1G）采用的通信技术是数字通信技术 B目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术（简称2G） C第3代移动通信技术（简称3G）将无线通信与互联网、多媒体通信相结合 D3G有多个国际技术标准，其中也有我国自主制定的3G技术标准2在下面有关集成电路的叙述中，正确的是_。A现代集成电路所使用的半导体材料都是硅B所有的集成电路都是数字集成电路CMoore定律认为单块集成电路的集成度平均每年翻一番DIntel公司微处理器产品Core 2 Duo，其集成度已高达数千万个电子元件3与十六进制数AB等值的八进制数是_ _。 A253 B254 C171 D1724在下列有关PC机CPU的叙述中，错误的是_ _。 ACPU中包含几十个甚至上百个寄存器，用来临时存放数据、指令和控制数据 B所有PC机的CPU都具有相同的指令系统，因而PC机可使用相同的软件C一台计算机至少包含1个CPU，也可以包含2个、4个、8个甚至更多个CPUDIntel公司是国际上研制和生产CPU的主要公司，我国也能生产CPU5在下列有关PC机主板上部件的叙述中，错误的是_ _。ABIOS保存在主板上的一个闪存中，其内容在关机后通常不会改变BCMOS中保存有用户设置的开机口令，关机后主板上的电池继续给CMOS供电C启动CMOS设置程序可以重新设置CMOS中的数据，该程序是BIOS的组成部分D网卡通常集成在主板上，由主板上独立的IC实现其功能，与芯片组无关6从PC机存储器的层次结构来看，下列存储器中存取速度最快的是_。 ACached存储器 BRAM和ROMa C寄存器D硬盘和优盘7在下列4种PC机常用I/O接口中，数据传输速度最快的是_。 APS/2 BSATA CIEEE-1394b DUSB 2.08在下列有关I/O操作、I/O总线和I/O接口的叙述中，错误的是_ _。AI/O操作的任务是在I/O设备与内存的指定区域之间传送信息BI/O总线传送的只能是数据信号，它不能传送控制信号和地址信号C不同类型的I/O接口，其插头/插座以及相应的通信规程和电气特性通常各不相同D并行总线的数据传输速率不一定比串行总线高9在下列有关PC机和I/O设备的叙述中，错误的是_ _。A数码相机的成像芯片可以为CCD器件或CMOS芯片，目前大多数用CCD器件B平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚动式扫描仪C常见的宽屏液晶显示器的宽度与高度之比为16：9（或16：10）D目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据10在下列有关计算机软件的叙述中，错误的是_。 A程序设计语言处理系统和数据库管理系统被归类为系统软件 B共享软件是一种具有版权的软件，它允许用户买前免费试用 C机器语言和汇编语言与特定的计算机类型有关，取决于CPU D目前PC机只能使用Windows系列操作系统，均不能使用UNIX和Linux操作系统11在下列常用的PC机软件中，编辑的文档（内容）能直接保存为图片类型（例如JPEG我那件类型）的是_ _。 AMicrosoft Word BMicrosoft Excel CMicrosoft PowerPoint DMicrosoft FrontPage12在下列关于以太网（局域网）的叙述中，错误的是_。A在共享式以太网中，任何时间只允许一对计算机进行通信B在交换式以太网中，每台计算机均独享相同的带宽，其带宽仅由交换机决定C无论是共享式以太网还是交换式以太网，网络中的所有计算机都要安装以太网网卡D无论是共享式以太网还是交换式以太网，它们的数据帧和MAC地址格式均相同13连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是_。A211.256.49.68B8C8D14为了将异构的计算机网络互相连接起来，必须使用的网络设备是_A调制解调器 B以太网集线器C以太网交换机 D路由器15下列网络协议中，与发送电子邮件有关的是_。 AHTTP BFTP CSMTP DTELNET16在下列有关字符集及其编码的叙述中，错误的是_。 A基本的ASCII字符集共有128个字符，每个字符使用7个二进位进行编码 BGB2312字符集中收录了6千多个汉字，每个字符在机内通常使用双字节编码CGBK字符集中所有的字符也采用双字节编码，且该字符集收录了部分繁体汉字DGB18030字符集中所有的字符集均采用4字节编码，因此该字符集的代码空间很大17目前数码相机拍摄的照片在保存时通常采用的文件类型是_ _。ABMPBGIFCJPEGDTIF18MP3是数字波形声音的一种压缩编码文件格式，它采用的压缩编码标准属于_。 AMPEG-1 BMPEG-2 CMPEG-4 DDolby AC-319使用Macromedia公司的Flash软件制作的动画是一种矢量图形，在保存为动画文件时其文件扩展名通常为_。 AGIF BSWF CAVI DMPG20在计算机应用中，CAD和CAM是典型的信息系统。它们属于_。A管理业务系统 B辅助技术系统C信息检索系统D信息分析系统第二部分Visual Basic程序设计一、选择题(用答题卡答题，答案依次填在2130答题号内)21要将焦点设置在某个控件上，以下四个选项中正确的是_。A只能使用鼠标直接点击该控件B只能使用Tab键将焦点移到该控件C只能在程序中调用该控件的SetFocus方法DA、B、C三选项中涉及的方法均可使用22在下列属性中，属于CommandButton控件、ListBox控件共有的是_ACaption、Text BVisible、FontCCaption、VisibleDList、Visible23数学表达式对应的VB表达式是_ _。ASin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y)B(Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y)CSin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y)D(Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)24以下的关系表达式中，运算结果为True的是_ _。ACInt(1.5)=Int(1.5) BFix(1.5)=Int(1.5)CFix(-1.5)=Cint(-1.5)DFix(-1.5)=Int(-1.5)CInt（X）：将X转换为整型数据 CInt（-3.8）=-4 Int（X）：取小于等于X的最大整数Fix（X）：取X的整数部分25下面有关数组的叙述中，不正确的是_。在过程中用ReDim定义的动态数组，其下标的上下界可以是变量数组作为形参数组时，传递的是每个数组元素的值在窗体模块的通用声明处可以用Public说明一个全局数组数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值ABCD26下列关于文件的叙述中，错误的是_ _。A用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除B可以用Print#语句或Write#语句将数据写到顺序文件中C若以Output、Append、Random、Binary方式打开一个不存在的文件，系统会出错D顺序文件或随机文件都可以用二进制访问模式打开27以下关于控件数组的说法中，错误的是_。A控件数组由一组具有相同名称和相同类型的控件组成B控件数组中的所有控件不得具有各自不同的属性设置值C控件数组中的所有控件共享同一个事件过程D控件数组中每个元素的下标由控件的Index属性指定28以下Case语句中，能正确描述Y的绝对值大于6的是_。ACase Abs(Y)6BCase-6 To 6CCaseNot(-6 To 6)DCaseIs 629若在模块中用Private Function Fun(A As Single, B As Integer) As Integer定义了函数Fun。调用函数Fun的过程中定义了I，J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是_。AFun 3.14, J BCall Fun(I, 365)CFun(I), (J) DK=Fun(24, 35)30若需要在同一窗体内安排两组相互独立的单选按钮（OptionButton），可使用_ _控件做容器将它们分开。 TextBoxPictureBoxImageFrameA或B或C或D或二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1执行下面的程序，单击Command1，则数组元素a(1,2)的数值是 （1） ，a(2,3) 的数值是 （2） ，a(4,3)的值是 （3） 。Option ExplicitPrivate Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do For i = 1 To 4 For j = 1 To 4 If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k 8 For i = 1 To 4 For j = 1 To 4 Print Right( & a(i, j), 3); Next j Print Next iEnd Sub2执行下面的程序，单击Command1，窗体上显示的第一行是 （4）5 、第二行是 （5）7 、第四行是 （6）22 。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 To 9 Step 3 s = fun(i) + fun(i) Print s Next iEnd SubPrivate Function fun(m As Integer) As Integer Static a As Integer If m Mod 2 = 0 Then a = a + 1 m = m + 1 Else a = a + 2 m = m + 2 End If fun = a + m Print funEnd Function3执行下面的程序，单击Command1，窗体上显示的第一行是 （7） 、第二行是 （8） ，最后一行是 （9） 。Option ExplicitPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = 1 b = 2 Print fun(a + 2, fun(2 * a, b) Print a; bEnd SubPrivate Function fun(x As Integer, ByVal y As Integer) As Integer x = x + 2 y = x - y + 3 fun = x + y Print x; y; funEnd Function4执行下面的程序，单击Command1，窗体上显示的第二行是 （10） 、第三行是 （11） 、第四行是 （12） 。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, k As Integer n = 36: k = 5 Print trans(n, k)End SubPrivate Function trans(n As Integer, k As Integer) As String Dim r As Integer If n 0 Then r = n Mod k If r 3End SubPrivate Sub encrypt(a As String, b As String) Dim sp As String, n As Integer, i As Integer sp = 0000 n = Len(b) - Len(a) If n 0 Then a = Right(sp & a, Len(b) For i = 1 To Len(b) If Mid(a, i, 1) = Mid(b, i, 1) Then Mid(a, i, 1) = 0 Else Mid(a, i, 1) = 1 End If Next iEnd Sub6下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、前若干项的和，项数由文本框输入。试完善程序使其达到功能要求。Option ExplicitPrivate Sub 计算_click() Dim n As Integer, a1 As Integer, a2 As Integer Dim i As Integer, t As Single, s As Single n = Val(Text1.Text) a1 = 1 a2 = 2 For i = 1 To n （16） s = s + t a2 = a1 + a2 （17） Next i Text2 = sEnd Sub7下面程序的功能是：从一组以16进制数形式表示的若干个字节数据中，找出其中的汉字代码（若相邻的两个字节中，每个字节的最高一位的数值都大于或等于8，则这两个字节为一个汉字的代码）。试完善程序使其达到功能要求。Option ExplicitPrivate Sub command1_click() Dim st() As String, p As String, k As Integer Dim n As Integer, i As Integer p = Trim(Text1) Do n = InStr(p, ) If （18） Then k = k + 1 ReDim Preserve st(k) st(k) = Left(p, n - 1) p = Right(p, Len(p) - n) Else ReDim Preserve st(k + 1) （19） End If Loop Until n = 0 For i = 1 To UBound(st) - 1 If chinese(st(i), st(i + 1) Then List1.AddItem st(i) & , & st(i + 1) （20） End If Next iEnd SubPrivate Function chinese(p As String, q As String) As Boolean Dim st As String, k As Integer, n As Integer Dim i As Integer st = 0123456789ABCDEF For i = 1 To Len(st) If Left(p, 1) = Mid(st, i, 1) Then k = i - 1 （21） Next i If k = 8 And n = 8 Then chinese = TrueEnd Function8本程序的功能是求出nm之间所有的可分解整数。所谓可分解整数是指具有以下性质的数，它的各位数字之和等于其所有质因子各位数字之和（注意：素数不是可分解整数）。例如整数121，各位数字之和是4，其质因子是11、11，质因子的各位数字之和也是4（1+1+1+1=4），所以121是可分解整数。试完善程序使其达到功能要求。Option ExplicitPrivate Sub command1_click() Dim n As Integer, m As Integer, k As Integer n = Text1 m = Text2 For k = n To m If sum1(k) = sum2(k) Then List1.AddItem k End If Next kEnd SubPrivate Function sum1( （22） ) As Integer Do sum1 = （23） n = n 10 Loop Until n = 0End FunctionPrivate Function sum2(ByVal n As Integer) As Integer Dim k As Integer, nn As Integer （24） nn = n Do If n Mod k = 0 Then sum2 = sum2 + sum1(k) n = n k Else （25） End If Loop Until k nn / 2End Function9下面程序的功能是：将a、b两个数组的数据按从大到小的顺序合并到数组c中。a、b两个数组的数据分别从文本框A和文本框B输入，数据以空格分隔。合并结果在文本框C中输出。试完善程序使其达到功能要求。Option ExplicitOption Base 1Private Sub command1_click() Dim a() As Integer, b() As Integer, c() As Integer Dim i As Integer, st As String st = Trim(Text1) Call load_a(st, a) st = Trim(Text2) Call load_a(st, b) ReDim c(1) （26） For i = 2 To UBound(a) Call change(a(i), c) Next i For i = 1 To UBound(b) Call change(b(i), c) Next i For i = 1 To UBound(c) Text3 = Text3 & Str(c(i) Next iEnd SubPrivate Sub load_a(s As String, a() As Integer) Dim i As Integer, k As Integer, p As String, q As String * 1 For i = 1 To Len(s) q = Mid(s, i, 1) If q = 0 And q = 9 Or q = - Then （27） ElseIf p Then k = k + 1 ReDim Preser