2005年9月计算机等级考试二级VB真题

全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

全国计算机等级考试二级VB真题(2005-2012完整版)2005－2012年国二VB真题—唐海2005年4月全国计算机等级考试二级VB笔试试卷一、选择题((1）~(35）每小题2分，共70分）(1）数据的存储结构是指A）存储在外存中的数据 B）数据所占的存储空间量C）数据在计算机中的顺序存储方式 D）数据的逻辑结构在计算机中的表示(2）下列关于栈的描述中错误的是A）栈是先进后出的线性表 B）栈只能顺序存储C）栈具有记忆作用 D）对栈的插入与删除操作中，不需要改变栈底指针(3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2 B）冒泡排序为n C）快速排序为n D）快速排序为n(n-1）/2(4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为A） log2n B） n/2 C） n D） n+1(5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面C）存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的(6）下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确 B）软件测试的目的是使程序运行结果正确 C）软件测试的目的是尽可能多地发现程序中的错误 D）软件测试的目的是使程序符合结构化原则 (7）为了使模块尽可能独立，要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8）下列描述中正确的是A）程序就是软件B）软件开发不受计算机系统的限制 C）软件既是逻辑实体，又是物理实体 D）软件是程序、数据与相关文档的集合(9）数据独立性是数据库技术的重要特点之一。

2005年9月全国计算机等级考试二级VB笔试试卷(部分题目含解析，全部答案在最后)一、选择题（每小题2分，共70分）从11题开始有评析下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。

请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）下列叙述中正确的是____C__A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是___A___A）顺序存储的有序线性表B）线性链表C）二叉链表D）有序线性链表（3）下列关于栈的描述正确的是___C___A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素C）栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是___D___A）一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是____C__A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是_____D_A）PDL(过程设计语言) B）PAD图C）N-S图D）DFD图（7）下列叙述中正确的是____A__A）软件交付使用后还需要进行维护B）软件一旦交付使用就不需要再进行维护C）软件交付使用后其生命周期就结束D）软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决____A__A）数据共享问题B）数据安全问题C）大量数据存储问题D）简化数据维护（9）设有如下关系表:R S TA B C A B C A B C1 123 1 3 1 1 22 23 2 2 33 1 3则下列操作中正确的是______BA）T＝R∩S B）T＝R∪S C）T＝R×S D）T＝R/S（10）数据库系统的核心是___B___A）数据模型B）数据库管理系统C）数据库D）数据库管理员（11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。

计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。

Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。

Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。

XX年9月全国计算机等级考试二级VB笔试真题参考答案1 D 解析：模块设计要保证低耦合，高内聚。

2 A 解析：从技术观点来看，软件设计包括软件构造设计、数据设计、接口设计、过程设计。

从工程管理角度，软件设计分为两步完成：概要设计和详细设计。

3 C 解析：软件维护属于软件生命周期的维护阶段。

4 B 解析：外模式是用户的数据视图，就是用户所见到的数据模式。

5 D6 C7 D8 B9 B10 A11 A 解析：窗体的 Caption 属性值是显示在窗体标题栏中的文本;窗体的 Name 属性是只读属性，即只可以通过属性窗口改变属性值，在运行时能改变; Name 属性值不能为空。

12 C 解析：在 Visual Basic 环境中，程序可以用解释方式运行，也可以生成可执行文件 EXE 运行。

13 D 解析：此题考察的是运算符的优先级别。

根据表达式的执行顺序和运算符的优先级别，原式可以写成：( Not(a<=c) ) Or (((4 * c)=(b ^ 2)) AnD (b<>(a+c))) 我们可以在计算机上用以下代码运行验证：Private Sub FormClick()a=2b=3c=4Print (Not a <= c Or 4 * c=b ^ 2 AnD b <> a+c)EnD Sub14 B 解析：题目中所给出的是用户自定义类型，在这里要注意新类型的名称是 StuDent ，所以选项 C 、 D 均不正确;我们知道对于类型成员的引用是：对象、属性(方法)，所以 A 不正确。

15 D 解析： IIf(expr,truepart,falsepart) 根据表达式的值，来返回两局部中的其中一个;由于表达式的条件局部运算结果为“ True AnD False ”，所以无法判断返回值，输出结果为False 。

我们可以在计算机上用以下代码运行验证：Private Sub FormClick()a=5b=6c=7D=8Print x=IIf((a>b) AnD (cEnD Sub16 D 解析： MiD(string,start\[, length\]) 返回 Variant (String), 其中包含字符串指定数量的字符;Right (string, length) 返回 Variant (String) ，其中包含从字符串右边取出的指定数量的字符;UCase(String) 返回 Variant (String) ，其中包含转成大写的字符串;我们可以在计算机上用以下代码运行验证：Private Sub FormClick()a$="Visual Basic Programming"b$="Quick"Print b$ & UCase (MiD$ (a$,7,6)) & Right$(a$,12)EnD Sub17 B 解析：此题考察的是控键的常用事件;Change 事件在用户向文本框中输入新信息，或当程序把 Text 属性设置为新值从而改变文本框的 Text 属性时触发，用户每键入一个字符，会引发一次该事件;Click 事件是用户鼠标单击文本框时触发;18 B 解析：此题考察的是循环的嵌套， Counter 的初始值为0 ，当 I=1 时，进入内层循环，内层循环语句执行完毕后，Counter 的值为 3 ;当 I=2 时，进入内层循环时， Counter 的值仍为 3 ，内层循环语句执行完毕后， Counter 的值为 6 ;以此类推，程序全部执行完毕， Counter 的值为 12 。

9月全国计算机等级考试二级VB笔试真题2006年9月全国计算机等级考试二级VB笔试真题(1)下列选项中不符合良好程序设计风格的是 ( ) 。

A.源程序要文档化B.数据说明的次序要规范化C.避免滥用 goto 语句D.模块设计要保证高耦合、高内聚(2)从工程管理角度，软件设计一般分为两步完成，它们是 ( ) 。

A.概要设计与详细设计B.数据设计与接口设计C.软件结构设计与数据设计D.过程设计与数据设计(3)下列选项中不属于软件生命周期开发阶段任务的是 ( ) 。

A.软件测试B.概要设计C.软件维护D.详细设计(4)在数据库系统中，用户所见的数据模式为 ( ) 。

A.概念模式B.外模式C.内模式D.物理模式(5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和( ) 。

A.编码设计B.测试阶段C.运行阶段D.物理设计(6)设有如下三个关系表：下列操作中正确的是 ( ) 。

(7)下列叙述中正确的是 ( ) 。

A.一个算法的空间复杂度大，则其空间复杂度也必定大B.一个算法的空间复杂度大，则其时间复杂度必定小C.一个算法的时间复杂度大，则其空间复杂度必定小D.上述三种说法都不对(8)在长度为64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为 ( ) 。

A.63B.64C.6D.7(9)数据库技术的根本目标是要解决数据的 ( ) 。

A.存储问题B.共享问题C.安全问题D.保护问题(10)对下列二叉树：进行中序遍历的结果是 ( ) 。

A.ACBDFEGB.ACBDFGEC.ABDCGEFD.FCADBEG(11)以下叙述中正确的是 ( ) 。

A.窗体的 Name 属性指定窗体的名称，用来标识一个窗体B.窗体的 Name 属性值是显示在窗体标题栏中文本C.可以在运行期间改变窗体的 Name 属性的值D.窗体的 Name 属性值可以为空(12)以下叙述中错误的是 ( ) 。

A.打开一个工程文件时，系统自动装入与该工程有关的窗体文件B.保存 Visual Basic 程序时，应分别保存窗体文件及工程文件C.Visual Basic 应用程序只能以解释方式执行D.窗体文件包含该窗体及其控件的'属性(13)设 a=2,b=3,c=4, 下列表达式的值是 ( ) 。

江苏2005春二级Visual Basic语言（试卷代号 VB01）（本试卷完成时间 70分钟）【考试须知】1. 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2. 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3. 程序代码书写应呈锯齿形。

一、改错题（14分）【题目】下面程序功能是：找出100以内满足N+1个连续自然数之和等于其后N 个连续自然数之和的序列（例如：4+5+6=7+8就是满足要求的序列）。

Option ExplicitPrivate Sub Command1_Click()Dim I As Integer,S As String,Flg As BooleanFor I=2 To 10Call Sub1(I,S,Flg)Flg=FalseIf Flg ThenText1=Text1&S&vbCrLfEnd IfNext IEnd SubPrivate Sub Sub1(K As Integer,S As String,F As Boolean)Dim I As Integer,Sum1 As Integer,Sum2 As IntegerDim N As Integer, Start As IntegerDo While Sum1<>Sum2 And N<100Start=Start+1N=StartS=N:Sum1=NFor I=1 To K-1N=N+1Sum1=Sum1+NS=S&+&NNext IS=S&=&NN=N+1Sum2=NFor I=1 To K-2N=N+1Sum2=Sum2+NS=S&+&NNext IN=N+1If Sum1=Sum2 ThenF=TrueEnd IfLoopEnd Sub【要求】1. 新建工程，输入上述代码，改正程序中的错误；2. 改错时，不得增加或删除语句，但可适当调整语句位置；3. 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。

计算机二级VB练习题附答案计算机二级VB练习题附答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。

那么计算机二级vb考试会怎么考？以下仅供参考！【计算机二级VB练习题一】1、为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。

A.Contr01BoxB.MinButtonC.MaxButtonD.BorderStyle参考答案：A参考解析：本题考查窗体的常见属性。

窗体中ControlBox属性用来控制是否显示控制菜单，属性值为False时不显示控制菜单。

属性MinButton和MaxButton控制是否显示最大化和最小化按钮，属性BorderStyle则是设置窗体的边界样式。

2、组合框是文本框和( )特性的组合。

A.复选框B.标签C.列表框D.目录列表框参考答案：C参考解析：本题考查组合框。

组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。

3、Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。

A.顺序文件B.Unix文件C.二进制文件D.随机文件参考答案：B参考解析：本题考查VB文件的分类。

VB中根据文件的访问形式分为顺序文件、随机文件和二进制文件。

4、下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。

A.内模式B.外模式C.概念模式D.逻辑模式参考答案：A参考解析：数据库管理系统的三级模式结构由外模式、模式和内模式组成。

外模式，或予模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到的数据视图。

模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。

江苏省等级考试二级VB上机试卷2005年（秋）及参考答案【题目1】本程序的功能是：找出2~10000之间可以表示成2²-1形式的素数.本题程序界面见图1.答：源程序：Option ExplicitPrivate Sub Command1_Click()Dim Exp As Integer, Idx As IntegerFor Idx = 2 To 10000If Mersenne(Idx, Exp) ThenIf Prime(Idx) ThenList1.AddItem Idx & " =" & 2 & "^" & Exp & "-1"End IfEnd IfExp = 0Next IdxEnd SubPrivate Function Mersenne(N As Integer, Exp As Integer) As BooleanDim M As Integer, Ex As LongM = NEx = 1Do While M > ExExp = Exp + 1Ex = Ex * 2LoopIf M = Ex - 1 ThenMersenne = TrueEnd IfEnd FunctionPrivate Function Prime(N As Integer) As BooleanDim K As IntegerFor K = 2 To Sqr(N)If N Mod K = 0 Then Exit FunctionNext KPrime = TrueEnd Function【题目2】将1～9这9个数字顺序排列围成一圈,从中任意一个数字开始,依次将其分成三段,每段数字连在一起算一个数,得到一个2位数、一个3位数和一个4位数,将这三个数相加,使其和数能被77整除.编写一个能找出这三个数的程序. 【编程要求】1.程序参考界面如图2所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;2.单击“运行”按钮,找出符合条件的三个数,并将它们显示在文本框中;3.单击“清理”按钮,则将文本框清空,并将焦点设置在“运行”按钮上;单击“结束”按钮,结束程序运行;4.程序中必须包含一个将数字分段,得到一个2位数、一个3位数和一个4位数的通用过程.答：源程序：Private Sub Command1_Click()Dim s As String, i As Integer, sum As Integer, s1 As Integer, s2 As Integer, s3 As Integers = "123456789"For i = 1 To Len(s)Call part(s, i, s1, s2, s3)If (s1 + s2 + s3) Mod 77 = 0 ThenText1.Text = Text1.Text & "( " & s1 & " + " & s2 & " + " & s3 & " ) mod " & 77 & "=0" & vbCrLf End IfNext iEnd SubPrivate Sub part(ByVal s As String, i As Integer, s1, s2, s3)s = s & ss1 = Int(Mid(s, i, 2))s2 = Int(Mid(s, i + 2, 3))s3 = Int(Mid(s, i + 5, 4))End SubPrivate Sub Command2_Click()EndEnd Sub[题目3]下面程序的功能是将给定的十六进制整数转换成二进制整数（删除高位0）。

全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。

(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。

运行时的窗体如图所示。

要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。

二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。

窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。

2005春第一部分信息技术基础知识1．A 2．B 3．D 4．C 5．C 6．B 7．A 8．B 9．A 10．C11．A 12．D 13．B 14．C 15．A 16．D 17．B 18．D 19．D 20．A第二部分Visual Basic程序设计一、选择题21.D 22.C 23.C 24.C 25.B26.D 27.D 28.B 29.C 30.D二、填空题(1) -1(2) 0.6(3) 1.8(4) 5.4(5) 10(6) 27(7) 9(8) 11(9) 2(10) 43(11) 7(12) 1(13) 16(14) 10(15) t=Sqr(2 + t)(16) Abs(A– 1)<0.00001(17) p=p & Mid(st,I + 1,1)(18) p(19) p=Mid(st,I+1,1)(20)max_st=p(21) Erase A(22) Sub1((L),A,flg)(23) Mid(CStr(x),I,1)<>Mid(Cstr(x),n-I+1,1)(24) A(Idx) = 1(25) k = 1(26) While K<10(27) InStr(28) Exit Function(29) Exit Function(30) Rec=Rec(n,m,k+1)2005秋第一部分信息技术基础知识1．C 2．B 3．D 4．B 5．A 6．C 7．B 8．D 9．B 10．D11．C 12．B 13．C 14．A 15．B 16．B 17．D 18．B 19．D 20．B第二部分Visual Basic程序设计一、选择题21.C 22.C 23.A 24.C 25.D26.B 27.C 28.B 29.A 30.D二、填空题(1) Text(2) 3(3) 15(4) 28(5) DCB(6) D(7) 3(8) 10 8(9) 5 2(10) 12 -10(11) 5 6 7 8(12) 13 14 15 16(13) 4 8 12 16(14) 2 6 10 14(15) a1 = a * x * (3 - 2 * i) / (2 * i)(16) Exit Do(17) Str(N) & "="(18) N = P(I) + P(J) + P(k)(19) Exit Sub(20)Idx = Idx + 1(21) Rc_NO = Rc_NO + 1(22) ub = UBound(a)(23) sum = 0(24) Idx = 1(25) js = js + 1(26) Open "c:\data.txt" For Input As #11(27) Do While Not EOF(11)(28) ReDim Preserve b(UBound(b) + 1)(29) b(i) = b(i - 1)(30) b(k) = n2006春第一部分信息技术基础知识1．D 2．B 3．A 4．C 5．D 6．D 7．D 8．A 9．C 10．B11．A 12．D 13．C 14．C 15．D 16．C 17．A 18．C 19．B 20．D第二部分Visual Basic程序设计一、选择题21.B 22.A 23.D 24.B 25.D26.C 27.B 28.A 29.C 30.D二、填空题(1) 200(2) 10(3) 0 ：1(4) 2 ：3(5) 4 ：1(6) 11(7) 61(8) 136(9) 01 05 02(10) 8(11) 3(12) 4(13) 8(14) 16(15) Until Until A(I, J) <> 0(16) L = 6 - J(17) R = 6 - I(18) Chr(65 + I)(19) Loc(12) < LOF(12)(20)Get #12, , S(21) Rc_NO = Rc_NO + 1(22) n = n + 1(23) st = ""(24) List1.ListCount - 1(25) n + V al(Mid(S, j, 1)) * 2 ^ (8 - j)(26) n = 0(27) while N < Js(28) Sum = 0(29) Js = I - 1(30) Sum = L And K = 32006秋第一部分信息技术基础知识1．D 2．D 3．D 4．B 5．C 6．C 7．C 8．D 9．D 10．B 11．B 12．D 13．C 14．A 15．D 16．B 17．D 18．B 19．A 20．D第二部分Visual Basic程序设计一、选择题21.B 22.A 23.B 24.C 25.A26.D 27.C 28.C 29.D 30.D二、填空题(1) asicB(2) icBas(3) 3(4) 9(5) 15(6) 15(7) 36(8) 26(9) 17(10) 178(11) 178(12) 235(13) 458(14) 13(15) 37(16) Sum = a0(17) a0 * (-X) * (2 * n - 1) / (2 * n)(18) a0 = an(19) n = i Mod 10(20)n = Len(enc)(21) Chr(Asc(S) - P) & dec(22) sum = sum + score(i)(23) Format(av, "#.#")(24) a() As Single, maxv As Single, minv As Single(25) For i = 2 To UBound(a)(26) While Not EOF(11)(27) Input #11, S(k)(28) st(i + 1) = st(i)(29) st(i + 1) = temp(30) high = mid - 12007春第一部分信息技术基础知识1．B 2．C 3．B 4．D 5．D 6．A 7．B 8．C 9．C 10．C11．D 12．B 13．A 14．C 15．C 16．C 17．D 18．A 19．C 20．D第二部分Visual Basic程序设计一、选择题21.B 22.B 23.A 24.D 25.B26.A27.A 28.A 29.C 30.B二、填空题(1) 1(2) 0(3) 4(4) 1 1 1(5) 3 1 4(6) 1 3 1(7) 6(8) 8(9) 3(10) 42(11) 138(12) 5796(13) 34(14) 26(15) 8(16) -a * x * (2 * i - 1) / (2 * i + 2)(17) I=I+1(18) Exit Sub(19) pos2 + 1(20)pos2 <> 0(21) Text2 = Text2 & vbCrLf(22) While Not EOF(5)(23) Ub = UBound(A)(24) Sum + A(J, I - J + 1)(25) Sum = A(I, Ub)(26) If M < Sum Then M = Sum(27) N <> 1 (N Mod 2 <> 0)(28) S = N & "*3+1"(29) Exit Sub(30) If N <> 1 Then Call YZ(N)2007秋第一部分信息技术基础知识1．B 2．C 3．B 4．D 5．D 6．A 7．B 8．C 9．C 10．C11．D 12．B 13．A 14．C 15．C 16．C 17．D 18．A 19．C 20．D第二部分Visual Basic程序设计一、选择题21.B 22.B 23.A 24.D 25.B26.A27.A 28.A 29.C 30.B二、填空题(1) 1(2) 0(3) 4(4) 1 1 1(5) 3 1 4(6) 1 3 1(7) 6(8) 8(9) 3(10) 42(11) 138(12) 5796(13) 34(14) 26(15) 8(16) -a * x * (2 * i - 1) / (2 * i + 2)(17) I=I+1(18) Exit Sub(19) pos2 + 1(20)pos2 <> 0(21) Text2 = Text2 & vbCrLf(22) While Not EOF(5)(23) Ub = UBound(A)(24) Sum + A(J, I - J + 1)(25) Sum = A(I, Ub)(26) If M < Sum Then M = Sum(27) N <> 1 (N Mod 2 <> 0)(28) S = N & "*3+1"(29) Exit Sub(30) If N <> 1 Then Call YZ(N)2008春第一部分信息技术基础知识1．D 2．C 3．B 4．C 5．B 6．A 7．C 8．C 9．A 10．C11．B 12．A 13．D 14．A 15．B 16．A 17．C 18．A 19．B 20．D第二部分Visual Basic程序设计一、选择题21.D 22.A23.C 24.B 25.D26.C 27.A 28.C 29.B 30.C二、填空题(1) 9 12(2) 3 -3(3) 0 -6(4) DHL(5) NRV(6) XBF(7) -1(8) 1(9) 4(10) 10(11) 0(12) 15(13) 5 15(14) 2 35(15) –1 56(16) t = x(17) Abs(t) < eps(18) t * x ^ 2 / ((2 * n + 1) * (2 * n))(19) prime(n)(20)i = k(21) prime = False(22) ByV al n As Integer, a() As Integer(23) n = n \ k(24) k = k + 1(25) n = 1(26) str2 = str2 + convert(a(i))(27) d = Mid(st, i, 1)(28) s = ""(29) s = b & s(30) convert = s2008秋第一部分信息技术基础知识1．D 2．C 3．A 4．C 5．D 6．A 7．A 8．C 9．D 10．C11．D 12．D 13．A 14．B 15．B 16．B 17．A 18．B 19．C 20．D第二部分Visual Basic程序设计一、选择题21.B 22.A 23.D 24.C 25.D26.A 27.A 28.C 29.B 30.A 二、填空题(1) 2(2) 7(3) 16 15 14 13(4) 3 6(5) 4 7(6) 5 8 11(7) 30(8) 30(9) 15(10) 2 3(11) 5 8(12) 34 55(13) icBa(14) baicBa(15) baba(16) st = ""(17) k = (-1) ^ (i - 1) / st(18) Mid(st, i, 1) = p(19) CStr(i Mod 2) + h2b(20)Right("0000" & h2b, 4)(21) small & a(i)(22) Mid(small, i, 1) = 1(23) a(j) > a(j + 1)(24) n As Long, a() As Integer(25) n = n \ 10(26) k = k + 1(27) ReDim Preserve a(k + 1)(28) p = 0(29) a(j) = a(i)(30) j = j + 12009春第一部分信息技术基础知识1．D 2．B 3．B 4．D 5．B 6．D 7．A 8．C 9．D 10．A11．B 12．A 13．A 14．C 15．C 16．B 17．C 18．A 19．A 20．C第二部分Visual Basic程序设计一、选择题21.D 22.B 23.B 24.C 25.B26.D 27.C 28.D 29.A 30.B二、填空题(1) 2 1 0(2) 1 0 1(3) 0 1 2(4) 6(5) 5(6) 31(7) 19(8) 68(9) 12345(10) 123(11) OVER(12) 5(13) Y6(14) Z9(15) A10(16) x < -1 Or x > 1(17) fx + a * t(18) a2 = a(19) 0 To List1.ListCount – 1 或者 1 To List1.ListCount(20)List1.List(i) 或者List1.List(i-1)(21) scor = 0(22) Mid(Exact, j, 1) = Mid(anw, j, 1)(23) UBound(a)(24) Left - 1(25) i < 1(26) right = right - 1(27) ch = Mid(str, i, 1)(28) ""(29) m = n Mod 2(30) s = "1" & s2009秋第一部分信息技术基础知识1．A 2．D 3．A 4．B 5．D 6．C 7．B 8．B 9．B 10．D11．C 12．B 13．A 14．D 15．C 16．D 17．C 18．A 19．B 20．B第二部分Visual Basic程序设计一、选择题21.D 22.B 23.D 24.B 25.A26.C 27.B 28.D 29.B 30.C二、填空题(1) 15(2) 9(3) 2 (4) 5(5) 12(6) 25(7) 4 5 9(8) 5 -1 4(9) 1 2(10) 7(11) 36(12) 121(13) 101101(14) 001110(15) 011011(16) t = a1 / a2st = ""(17) a1 = a2 - a1(18) n <> 0(19) st(k + 1) = p(20)i = i + 1(21) If Left(q, 1) = Mid(st, i, 1) Then n = i - 1(22) ByV al n As Integer(23) sum1 + n Mod 10(24) k = 2(25) k = k + 1(26) c(1) = a(1)(27) p = p & CStr(q)(28) p = ""(29) Exit For(30) c(i) = n。