2008春VB上机试卷VB04答案

合集下载

2008年(秋)vb(上机)VB01-04

江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2008秋)二级Visual Basic语言(试卷代号VB01)(本试卷完成时间70分钟)一．改错题(14分)[题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数），找出其中的最大元素并将它删除，再输出删除后的数组。

Option ExplicitOption Base 1Dim a() as integer,n as integerPrivate Sub Command1-Click()Dim i As Integern=InputB ox(“请输入数组个数”，10)ReDim a(n)For i=1 To na(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i))Next iCall Lookup(a)For i=1 To nText2=Text2 &Str(a(i))Next iEnd SubPrivate Sub Lookup(a() As Integer)Dim Maxv As Integer,maxp As Integer ,i As IntegerMaxv=a(1):maxp=1For i= 2 To nif a(i)>Maxv ThenMaxv=a(i): maxp=iEnd IfNext iCall move_f(a,maxp)End SubPrivate Sub move_f(a() As Integer,k As Integer)Dim i As IntegerFor i=k+1 to UBound(a)a(i)=a(i+1)Next iReDdim a(UBound(a)-1)End Sub[要求]1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。

VB机试模拟试卷4(题后含答案及解析)

VB机试模拟试卷4(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．注意：下面出现的“考生文件夹”均为c:\wexam\25160001。

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为“输出”的命令按钮，如图4-1所示。

要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中的文字。

注意：在程序中不能使用任何变量。

保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。

(2)在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题为“按钮一”和“按钮二”的命令按钮，如图4-2所示。

要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上，使两个按钮重合，如图4-3所示。

注意：在程序中不得使用任何变量(必须通过属性设置来移动控件)。

保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp正确答案：(1)在窗体上建立好控件后，先设置控件属性，再编写事件过程。

通过命令按钮的Caption属性来设置其标题，单击命令按钮触发Click事件；文本框显示内容是用Text属性。

文本框中的内容通过其Text属性得到，在命令按钮的Click事件中利用Print方法将文本框中的内容输出，完成题目要求。

解题步骤：第一步：建立界面并设置控件属性。

程序中用到的控件及其属性见表4-1。

第二步：编写程序代码。

参考代码：Private Sub Cmd1_Click( ) Cls Print Text1.Text End Sub 第三步：调试并运行程序。

第四步：按题目要求存盘。

(2)在窗体上建立好控件后，先设置控件的属性，再编写事件过程。

命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click 事件，本题考查的是按钮的摆放位置的设置，涉及到对象的Left和Top属性。

江苏二级VB2008春笔试参考答案及解析

2008年（春）笔试试卷参考答案及解析第一部分计算机基础知识（1）D）【解析】IC卡又称集成电路卡，它是一个塑料卡片，其大小与磁卡一样，但比磁卡要厚且硬。

在卡片的正面可以看到一块小金属片，在金属片的下面是一块半导体芯片。

这种芯片可以是存储器或微处理器（CPU）。

带着存储器的IC卡又称存储卡，带着CPU的IC卡又称智能卡或CPU。

（2）C）【解析】数据传输速率是描述数据传输系统的重要技术指标之一。

数据传输速率在数值上等于每秒钟传输构成数据代码的二进制比特数，单位为比特/秒（bit/second），记作bps。

（3）B）【解析】CPIJ的运算速度与许多因素有关，提高CPIJ速度的有效措施有增加CPU中寄存器的数目；提高CPU的主频；增加CPU中高速缓存（Cache）的容量。

（4）C）【解析】PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是USB。

（5）B）【解析】对于一般家用和业余外景拍摄，200万～300万像素的相机就足够了，可以输出1984×1448高精密的图像，（按300万奥林巴斯720UZ）冲印的话，200万相机冲印5寸和6寸的照片是没有问题的，300万冲印7寸也是很棒的。

（6）A）【解析】转速是指硬盘内电机主轴的转动速度，单位是rpm（每分钟旋转次数）。

其转速越高，内部传输速率就越高。

目前一般的硬盘转速为5400转/分和7200转/分最高的转速则可达到10000转/分以上。

（7）C）【解析】自由软件，根据自由软件基金会的定义，是一种可以不受限制地自由使用、复制、研究、修改和分发的软件。

（8）C）【解析】在Windows操作系统多任务处理中，前台任务和后台任务都能得到CPU的响应。

（9）A）【解析】从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是空间代价和时间代价。

（10）C）【解析】接入因特网的每台计算机的IP地址由网络管理员或因特网服务提供商（ISP）分配。

vb试题及答案(共10篇)

vb试题及答案（共10篇）篇1：计算机vb试题及答案计算机vb试题及答案(1)下面叙述正确的是(C)A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止D.以上三种描述都不对(2)以下数据结构中不属于线性数据结构的是(C)A.队列B.线性表C.二叉树D.栈(3)在一棵二叉树上第5层的结点数最多是(B)注：由公式2k-1得A.8B.16C.32D.15(4)下面描述中，符合结构化程序设计风格的是(A)A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用goto语句(5)下面概念中，不属于面向对象方法的是(D)A.对象B.继承C.类D.过程调用(6)在结构化方法中，用数据流程图(DFD)作为描述工具的软件开发阶段是(B)A.可行性分析B.需求分析C.详细设计D.程序编码(7)在软件开发中，下面任务不属于设计阶段的是(D)A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型(8)数据库系统的核心是(B)A.数据模型B.数据库管理系统C.软件工具D.数据库(9)下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10)下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A)A.内模式B.外模式C.概念模式D.逻辑模式(11)算法的时间复杂度是指(C)A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数(12)算法的空间复杂度是指(D)A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间(13)设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B)注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A.349B.350C.255D.351(14)结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15)在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D)注：即第一个阶段A.概要设计B.详细设计C.可行性分析D.需求分析(16)数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。

2008年二级VB模拟试题及答案

燕子老师 2008.9
(19) 在Visual Basic中，要使标签的标题栏居中显示，则将其Alignment属性设置为 A) 0 B) 2 C) 1 D) 3
解析：本题考查的是标签的Alignment属性的设置。 Alignment属性用来设置标签中标题的位置，可将其
设置为0，1，2，作用如下： 0：标题靠左显示(默认）。 1：标题靠右显示。 2：标题居中显示。
燕子老师 2008.9
(28) 下列程序段的执行结果为
a=75 If a > 60 Then I=1 If a > 70 Then I=2 If a > 80 Then I=3 If a < 90 Then I=4 Print "I="; I A) I＝1 B) I＝2 C) I＝3
D) I＝4
解析：此题为If Then 结构的条件语句，如果a > 60 ，则I = 1；如果a > 70 ，则I = 2；如果a > 80 ，则 I = 3；如果 a < 90，则I = 4；本题的条件是a＝ 75，所以输出结果应该是I = 4。
燕子老师 2008.9
(21) 当滚动条位于最左端或最上端时，Value属性被设
置为
A) Min
B) Max
C) Max和Min之间 D) Max和Min之外
解析：一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值，最下端代表最大值；水平滚动条的值从左到右递增，最左端代表最小值，最右端代表最大值。因此当滚动条位于最左端或最下端时， Value属性被设置为Min。
燕子老师 2008.9
(16) 根据变量的作用域，可以将变量分为3类，分别为 A) 局部变量、模块变量和全局变量 B) 局部变量、模块变量和标准变量 C) 局部变量、模块变量和窗体变量 D) 局部变量、标准变量和全局变量

2008年4月计算机等级考试二级 VB笔试真题及答案

2008年4月全国计算机等级考试二级VB 试卷一、选择题1、程序流程图中带有箭头的线段表示的是A ）图元关系B ）数据流C ）控制流 D)调用关系2、结构化程序设计的基本原则不包括A ）多态性B ）自顶向下C ）模块化D ）逐步求精3、软件设计中模块划分应遵循的准则是A ）低内聚低耦合 B)高内聚低耦合 C)低内聚高耦合 D)高内聚高耦合4、在软件开发中，需求分析阶段产生的主要文档是A ）可行性分析报告B ）软件需求规格说明书C ）概要设计说明书D ）集成测试计划5、算法的有穷性是指A ）算法程序的运行时间是有限的B ）算法程序所处理的数据量是有限的C ）算法程序的长度是有限的D ）算法只能被有限的用户使用6、对长度为n 的线性表排序，在最坏的情况下，比较次数不是n (n-1)/2的排序方法是A ）快速排序B ）冒泡排序C ）直接插入排序D ）堆排序7、下列关于栈的叙述正确的是A ）栈按“先进先出”组织数据B ）栈按“先进后出”组织数据C ）只能在栈底插入数据D ）不能删除数据8、在数据库设计中，将E —R 图转换成关系数据模型的过程属于A ）需求分析阶段B ）概念设计阶段C ）逻辑设计阶段D ）物理设计阶段9、有三个关系R 、S 和T 如下：R ST由关系Ｒ和S 通过运算得到关系T ，则所使用的运算为A ）并B ）自然连接C ）笛卡尔积D ）交10、设有表示学生选课的三张表，学生S （学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC （学号，课号，成绩），则表SC 的关键字（键或码）为Ａ）课号，成绩 B ）学号，成绩 C ）学号，课号 D ）学号，姓名，成绩11、以下叙述中错误的是Ａ）标准模块文件的扩展名是.bas B ）标准模块文件是纯代码文件C ）在标准模块中声明的全局变量可以在整个工程中使用D ）在标准模块中不能定义过程12、在Visual Basic 中，表达式3* 2\5 Mod 3的值是Ａ）１ B ）０ C ）３ D ）出现错误提示 B C D a 0 k1 B 1 n1 B C D f 3 h2 a 0 k1 n 2 x1 B C D a 0 k113、以下选项中，不合法的Visual Basic变量名是Ａ）a5b B）_xyz C）a_b D)andif14、以下数组定义语句中，错误的是Ａ）Static a (10) As Integer B) Dim c (3, 1 to 4)C) Dim d (-10) D) Dim b (0 to 5, 1 to 3) As Integer15、现有语句：y=IIf(x>0, x Mod 3, 0) ，设x=10，则y的值是Ａ）０B）１C）３D）语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars 属性设置为Ａ）０B）１C）２D）３17、文本框Text1的KeyDown事件过程如下：Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer)End Sub其中参数KeyCode的值表示的是发生此事件时Ａ）是否按下了Alt键或Ctrl键B）按下的是哪个数字键C）所按的键盘键的键码D）按下的是哪个鼠标键18、窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。

2008年9月全国计算机二级VB模拟试题及答案解析(一)

2008年9月全国计算机二级VB模拟试题(1)及答案解析一、选择题(1) 在深度为5的满二叉树中，叶子结点的个数为A) 32B) 31C) 16D) 15解析：所谓满二叉树是指这样的一种二叉树：除最后一层外，每一层上的所有结点都有两个叶子结点。

这就是说，在满二叉树中，层上的结点数都达到最大值，即在满二叉树的第k层上有2k-1个结点，且深度为m的满二叉树有2m-1个结点。

(2) 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是A) bdgcefhaB) gdbecfhaC) bdgaechf解析：前序遍历的第一个结点a为树的根结点；中序遍历中a的左边的结点为a的左子树，a右边的结点为a的右子树；再分别对a的左右子树进行上述两步处理，直到每个结点都找到正确的位置。

(3) 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。

而实现递归调用中的存储分配通常用A) 栈B) 堆C) 数组D) 链表解析：一些较流行的程序语言允许过程的递归调用。

递归调用就是过程调用本身。

递归实现的是：当过程每一次执行后，都能返回到最近一次调用它的过程中。

这样各调用点之间形成一种后进先出关系，而栈结构正适合来存储这些调用点。

(4) 软件工程的理论和技术性研究的内容主要包括软件开发技术和A) 消除软件危机B) 软件工程管理C) 程序设计自动化D) 实现软件可重用解析：软件工程的目标是，在给定的成本、进度的前提下，开发出具有有效性、可靠性、可理解性、可维护性、可重用性、可适应性、可移植性、可追踪性和可互操作性且满足用户需求的产品。

基于这一目标，软件工程的理论和技术性研究的内容主要包括：软件开发技术和软件工程管理。

(5) 开发软件时对提高开发人员工作效率至关重要的是A) 操作系统的资源管理功能B) 先进的软件开发工具和环境C) 程序人员的数量D) 计算机的并行处理能力解析：软件工程鼓励研制和采用各种先进的软件开发方法、工具和环境。

2008春VB笔试卷

2008年春江苏省计算机二级VB试卷第一部分计算机基础知识1．在下列有关微电子技术与集成电路的叙述中，错误的是。

A．微电子技术是以集成电路为核心的技术B．集成度是指单个集成电路所含电子元件的数目C．More定律指出，单个集成电路的集成度平均每18～24个月翻一番D．IC卡仅有存储器和处理器，卡中不可能存有软件2．在下列有关通信技术的叙述中，错误的是A．目前无线电广播主要还是采用模拟通信技术B．数字传输技术最早是被长途电话系统采用的C．数字通信系统的信道宽度就是指数据的实际传输速率（简称“数据速率”）D．局域网中广泛应用的双绞线既可以传输数字信号，也可以传输模拟信号3．CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施①增加CPU中寄存器的数目②提高CPU主频③增加CPU中高速缓存(cache)的容量④优化BIOS的设计A．①、②和④ B．①、②和③C．①和④ D．②、③和④4．下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘均能连接的接口是A．RS－232 B．IEEE－1394 C．USB D．IDE5．下列有关PC机外部设备的叙述中，错误的是A．扫描仪工作过程主要基于光电转换原理，分辨率是其重要性能指标之一B．制作3～5英寸的照片（图片），数码相机的CCD象素必须在600万以上C．集成显卡（指集成在主板上的显卡）的显示控制器主要集成在芯片组中D．存折和票据的打印，目前主要是采用针式打印机6．下列有关PC机辅助存储器的叙述中，错误的是A．硬盘的盘片转动速度特别快，目前一般为每秒数千转B．近年来使用的串行ATA（SATA）的接口硬盘，其传输速率比采用IDE的接口要快C．目前移动硬盘大多采用USB2.0接口，其传输速率可达每秒数十兆字节D．40倍速的CD－ROM驱动器的速率可达6MB/s左右7．在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是A．通常用户需要付费才能得到商品软件的合法使用权B．共享软件是一种“买前免费试用”的具有版权的软件C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播D．软件许可证确定了用户对软件的使用方式,扩大了版权法给予用户的权利8．下面关于Windows操作系统多任务处理的叙述中，正确的是A．用户如果只启动一个应用程序工作（如使用Word写作），则该程序自始至终独占CPU B．由于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协议。

2008春VB上机试卷VB06答案

2008年（春）上机 Visual Basic（VB06）答案一、改错【题目】本程序的功能是生成一个n行3列的数组，并在多行文本框中输出。

n通过InputBox 函数输入，数组第一列元素为随机生成的11～99之间的整数，第二列元素是第一列相应元素的逆序数，第三列元素是第一、二列对应元素的最大公约数。

Option ExplicitDim n As Integer, a() As IntegerPrivate Sub Command1_Click()Dim i As Integer, 'err, n As Integern = InputBox("输入n:", , 3)ReDim a(n, 3)For i = 1 To na(i, 1) = Int(Rnd * 89) + 11a(i, 2) = nx(a(i, 1))a(i, 3) = gcd(a(i, 1), a(i, 2))Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As IntegerText1 = "运行结果是：" & vbCrLfFor i = 1 To nFor j = 1 To 3Text1 = Text1 & Str(a(i, j))Next jText1 = Text1 & vbCrLfNext iEnd SubPrivate Function nx(x As Integer) As Integernx = (x Mod 10) * 10 + x \ 10End FunctionPrivate Function gcd(ByVal a As Integer, ByVal b As Integer) As Integer 'err 无Byval Dim r As IntegerDor = a Mod ba = bb = rLoop Until r = 0gcd = a 'err gcd = bEnd Function二、编程题【题目】编写程序，输入一个N位不含数字0的整数，求出由组成该数的数字构成的一个最小整数。

2008年4月计算机等级考试二级VB真题及参考答案

c qc omp ut e r .t ao ba o.c om机密★启用前2008 年 4 月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计26注意事项一、考生应严格遵守考场规则，得到监考人员指令后方可作答。

二、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。

三、选择题答案必须用铅笔填涂在答题卡的相应位置上，填空题的答案必须用蓝、黑色钢笔或圆珠笔写在答题卡的相应位置上，答案写在试卷上无效。

四、注意字迹清楚，保持卷面整洁。

五、考试结束将试卷和答题卡放在桌上，不得带走。

待监考人员收毕清点后，方可离场。

* * * 版权所有，任何单位或个人不得保留、复制和出版，违者必究 * * *教育部考试中心二 00 八年二月制本资料严禁作为商业用途欢迎光临：我的博客我的淘宝c qc omp ut er .t ao ba o.c om2006年4月全国计算机等级考试二级笔试试卷公共基础知识和 Visual Basic 语言程序设计（考试时间 90 分钟，满分100 分）一、选择题（每小题 2 分，共70 分）（1）程序流程图中带有箭头的线段表示的是（）。

A ）图元关系B ）数据流C ）控制流D ）调用关系（2）结构化程序设计的基本原则不包括（）。

A ）多元性B ）自顶向下C ）模块化D ）逐步求精（3）软件设计中模块划分应遵循的准则是（）。

A ）低内聚低耦合B ）高内聚低耦合C ）低内聚高耦合D ）高内聚高耦合（4）在软件开发中，需求分析阶段产生的主要文档是（）。

A ）可行性分析报告B ）软件需求规格说明书C ）概要设计说明书D ）集成测试计划（5）算法的有穷性是指（）。

A ）算法程序的运行时间是有限的B ）算法程序所处理的数据量是有限的C ）算法程序的长度是有限的D ）算法只能被有限的用户使用（6）对长度为n 的线性表排序，在最坏情况下，比较次数不是n(n-1)/2 的排序方法是（）。

全国计算机VB上机题库及答案(全)

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

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

图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

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

图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

vb上机练习试题及答案

第一章概述一、基本要求（1）熟悉VB集‎成开发环境‎（2）掌握代码窗‎口的应用及‎录入、编辑代码的‎基本方法（3）了解VB程‎序设计的基‎本步骤二、实习内容（1）实习熟悉V‎B集成开发‎环境各组成‎部分（2）输入一个数‎，求该数的平‎方并显示结‎果第二章一、基本要求（1）熟练掌握各‎种运算符的‎应用和优先‎顺序（2）掌握各种常‎用函数的功‎能、参数和返回‎值（3）掌握立即窗‎口的使用方‎法二、实验内容（1）回答整形、长整型、单精度、双精度类型‎数据占用字‎节数。

（2）已知直角三‎角形的两条‎直角边长，求斜边长。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim a%, b%, c%a = Val(Input‎B ox("输入第一条‎直角边长"))b = Val(Input‎B ox("输入第二条‎直角边长"))c = Sqr(a ^ 2 + b ^ 2)Print‎cEnd Sub（3）给小学生随‎机出两位数‎和一位数的‎加法题。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim a%, b%, c%a = Val(Input‎B ox("输入两位数‎"))b = Val(Input‎B ox("输入一位数‎"))c = a + bPrint‎cEnd Sub（4）用文本框输‎入一个带小‎数的数，对输入的数‎四舍五入保‎留2位小数‎。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim x#, y!x = Text1‎.Texty = Round‎(x, 2)Print‎yEnd Sub（5）输入某人姓‎名，判断是否你‎的本家。

Priva‎t e Sub Comma‎n d1_C‎l ick()Dim a$, b$, p As Boole‎a nb = "李"a = Input‎B ox("输入某人的‎姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrint‎pEnd Sub（6）任意输入西‎安地区的固‎定电话号码‎（原为7位），将其升为8‎位（在原号码前‎面加8）。

计算机二级VB上机操作练习题及答案

计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。

组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。

运行后的窗体如图所示。

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

(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。

再画两个标题分别为“椭圆”和“圆”的命令按钮。

如下图所示。

要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。

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

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

二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。

窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。

程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。

运行窗体如图所示。

要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序。

最后程序按原文件名存盘。

vb上机答案全部

实验一Form1.print “程序设计基础教程”End subPrivate sub form_dblclick()Form1.clsEnd subDim a as single,b as single,c as single a=val(text1.text)b=val(text2.text)c=a*btext3.text=str(c)end subDim n as integer,a as singlen=val(text1.text)a= n^(1/3)text2.text=str(a)end subText1.text=“visual basic 程序设计”end subPrivate Sub Command2_click()Text1.text=“”end subText2.text=left(text1.text,5)end subPrivate Sub Command2_click()Text3.text=len(text1.text)end subForm1.Move 0, 0End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height * 1.2Form1.Width = Form1.Width * 1.2End Sub7.Const pi as single=3.14159Command1_click()Dim a as single,b as single,c as single,s as single a=val(text1.text)b=val(text2.text)c=val(text3.text)s=a*b*sin((c*pi)/180)/2text4.text=round(s ,2)end sub实验二顺序Const pi as single=3.14159Private Sub Command1_click()Dim r as single,v as singler=val(text1.text)v=4/3 *pi*r^3label1.caption=format(v, “0.00”)end subDim a as single,b as single,c as single,d as single a=val(text1.text)b=val(text2.text)c=val(text3.text)d=(a+b+c)/3text4.text=format(d, “0.00”)end subText1.locked=falseEnd subPrivate Sub Text1_changeCommand2.enable=trueEnd subPrivate Sub Command_click()Text1.locked=trueCommand2.enable=falseEnd subText1.text=“欢迎光临”End subCommand2_click()Text1.text=“谢谢再见”End subText1.selstart=8Text1.sellength=9End subCommand2_click()Label2.caption=text1.seltext End subConst pi as single=3.14159Dim r as single,h as singlePrivate Sub Command click()Dim s as singler=text1.texth=text2.texts=2*pi*r^2+2*pi*r*htext3.text=format(s, “0.000”) end subPrivate Sub command2 click()dim v as singlev=pi*r^2*htext4.text=format(v, “0.000”) end subDim a as string,b as stringPrivate Sub Command1_click()a=text1.textb=text2.texttext3.text=“a” & “b”end subPrivate Sub command2_click()dim t as stringa=text1.textb=text2.textt=aa=bb=ttext1.text=atext2.text=blabel1.caption=“交换成功”end sub实验三选择Dim n as integerIf (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”ElseLabel2.caption=“No”End ifEnd subDim x as single,y as singlex=text1.texty=text2.textif x>0 and y>0 thentext3.text=“第一象限”elseif x<0 and y>0 thentext3.text=“第二象限”elseif x<0 and y<0 thentext3.text=“第三象限”else x>0 and y<0 thentext3.text=“第四象限”end ifend subDim a as single,b as single,c as single,d as single a=text1.textb=text2.textc=text3.textd=a+b+cif d>=270 thenif d>=285 thentext4.text=“Gold Medal”elsetext4.text=“Silver Medal”end ifelseif d>240 thentext4.text=“Bronze Medal”elseif a>95 or b>95 or c>95 thentext4.text=“Honor Medal”elsetext4.text=“No Medal”end ifend ifend subText.text=“我是博士生”End subOption2_clickText.text=“我是硕士生”End subOption3_clickText.text=“我是本科生”End subIf Check1.Value ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value ThenLabel1.FontStrikethru = TrueElseLabel1.FontStrikethru = FalseEnd IfEnd SubDim n as singlen=text1.textif n=<4 thentext2.text=format（10，“0.0”）elseif n>4 and n<=15 thentext2.text=format（10+1.2*(n-4)，“0.0”）elsetext2.text=format（1.8*n，“0.0”）end ifend subIf text1.text=“Teacher” thenIf text2.text=“123456” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseif text1.text=“Student” thenIf text2.text=“654321” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseLabel3.caption=“用户未注册”End ifEnd sub实验四循环Dim n As Integer, i As Integer, a As Long n = Text1.Texta = 0For i = 1 To nIf (i Mod 3 = 0) And (i Mod 7 <> 0) Thena = a + iEnd IfNext iLabel1.Caption = aEnd SubDim n As Integer, m As Integer, i As Integern = Text1.Text n=val(text1.text)m = Text2.Text m=val(text2.text)If m >= n Then for i=n to 1 step -1For i = n To 1 Step -1 if n mod i=0 and m mod i=0 then If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)Text3.Text = I exit forExit For end ifEnd If next iNext iElseFor i = m To 1 Step -1If (m Mod i = 0) And (n Mod i = 0) ThenText3.Text = iExit ForEnd IfNext iEnd IfEnd SubDim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag AsBooleanm = Text1.Textn = Text2.Texts = 0For a = m To nflag = TrueFor i = 2 To a - 1If a Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then s = s + a Next aText3.Text = sEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseLabel1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End SubDim n As Single, i As Single, a As Single, s As Single n = Label1.Captions = 0For i = 1 To nFor a = 1 To is = s + aNext aNext iText1.Text = sEnd SubPrivate Sub HScroll1_Change()Label1.Caption = HScroll1.ValueEnd SubDim s As Single, n As Long, t As Long, i As Longs = Text1.Textt = 1For i = 1 To Len(s)If Right(s, 1) = "1" Thenn = n + tEnd Ift = t * 2s = Left(s, Len(s) - 1)Next iLabel1.Caption = nEnd SubPrivate Sub Command2_Click()Dim a As Long, q As Longa = Text1.TextDo While (a > 0)q = a Mod 2 & qa = a \ 2LoopLabel1.Caption = qEnd SubTimer1.Enabled = TrueCommand1.Enabled = FalseCommand1.Caption = "继续"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 ThenLabel1.FontSize = 8End IfEnd Sub实验五数组Private Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 10a(i) = Int(Rnd * 81) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer Text2.text=""For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j)a(j) = a(i)a(i) = tEnd IfNext jNext iFor i = 1 To 10If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2) End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & a(i) & Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integermax = a(1)For i = 2 To 10If max < a(i) Thenmax = a(i)End IfNext iText2.Text = maxText3.Text = Chr(max)End SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & Chr(a(i)) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, b As Integer, j As Integer r = 0b = Asc(Text2.Text)For i = 1 To 100If a(i) = b Thenj = j + 1End IfNext iText3.Text = jEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i, j) & Space(2) Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_ClickDim i as Integer ,j as Integer ,s as Integer For i = 1 to 5j = 6 – is=s+a( i ,j )next iLabel1.caption =sEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integeri = Val(Text1.Text)ReDim a(1 To i)a(1) = 1a(2) = 1For n = 3 To ia(n) = a(n - 1) + a(n - 2)Next nText2.Text = a(i)End SubPrivate Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 50a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerText2.Text = 0For i = 1 To 50If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41) + 10Text1.Text = Text1.Text & a(i, j) & Space(2)Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer,j as integerFor i=1 to 4t=a(i,1)a(i,1)=a(i,3)a(i,3)=tNext tFor i = 1 To 4For j = 1 To 4Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next jLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub实验六常用控件Private Sub Op_Click(Index As Integer)Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)Select Case IndexCase 0c = a + bCase 1c = a - bCase 2c = a * bCase 3c = a / bEnd SelectText3.Text = Str(c)End SubPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 10a(n) = Int(Rnd * 81) + 10List1.AddItem a(n)Next nEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9For k = i + 1 To 10If a(i) > a(k) Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext kNext iFor i = 1 To 10List2.AddItem a(i)Next iEnd SubPrivate Sub Command1_Click()Timer1.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Timer1_Timer()List1.AddItem Int(Rnd * 90000 + 10000) End SubDim n As Integer, s As Integers = 0For n = 0 To 4If List1.Selected(n) = True Thens = s + 1End IfNext nText1.Text = sEnd SubList1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndexEnd SubText1.Text = Combo1.TextEnd SubPrivate Sub Command2_Click()Combo1.List(Combo1.ListIndex) = Text1.TextEnd SubPrivate Sub Timer1_TimerDim n as integerIf n>Combo1.ListCount-1 then n=0Combo1.ListIndex = nn=n+1End SubPrivate Sub Command1_ClickTimer1.Enabled =TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2.ClickTimer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled =FalseEnd SubPrivate Sub Command3_Click()For j = 0 To Combo1.ListCount - 1If Combo1.List(j) = Trim(Text1.Text) Then Exit ForEnd IfNext jIf j = Combo1.ListCount ThenLabel1.Caption = "No Found"ElseLabel1.Caption = "Found"End IfEnd Sub实验七过程Dim i As Integer, n As Integer, p As Double n = Val(Text1.Text)p = 0For i = 1 To np = p + fact(i)Next iText2.Text = Str(p)End SubFunction fact(ByVal n As Integer) As Double Dim i As Integer, p As Doublep = 1For i = 1 To np = p * iNext ifact = pEnd FunctionDim x As Integer, y As Integer, z As Integer x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)Swap x, ySwap x, zSwap y, zText4.Text = x & " " & y & Space(2) & z End SubPrivate Sub Swap(ByRef x%, ByRef y%)Dim t As IntegerIf x < y Thent = x: x = y: y = tEnd IfEnd SubDim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = m * n / Gcd(m, n)End SubFunction Gcd(ByVal m%, ByVal n%) As Integer Dim i As IntegerFor i = m To 1 Step -1If m Mod i = 0 And n Mod i = 0 ThenGcd = iExit FunctionEnd IfNext iEnd FunctionDim x As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = Square(x, n)End SubFunction Square(ByVal x%, ByVal n%) As Double Dim i As IntegerFor i = 0 To nSquare = Square + x ^ iNext iEnd FunctionDim m As Integer, n As Integer, i As Integer Text3.Text = ""m = Val(Text1.Text): n = Val(Text2.Text)For i = m To nIf Isprime(i) ThenText3.Text = Text3.Text & i & " "End IfNext iEnd SubFunction Isprime(n As Integer) As Boolean Dim i As IntegerIsprime = TrueFor i = 2 To n - 1If n Mod i = 0 ThenIsprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerReDim a(9)Text1.Text = ""For i = 0 To 9a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubFunction sort(b() As Integer)Dim i As Integer, j As Integer, t As Integer For i = 0 To 8For j = i + 1 To 9If b(j) < b(i) Thent = b(j)b(j) = b(i)b(i) = tEnd IfNext jNext iFor i = 0 To 9sort = sort & b(i) & Space(2)Next iEnd FunctionPrivate Sub Command2_Click()Label1.Caption = sort(a())End SubDim i As Integersak = 0For i = 0 To k - 1sak = sak + a * 10 ^ iNext iEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, n As Integer, s As Long, a As Integer a = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = 1 To ns = sak(a, i) + sNext iText3.Text = sEnd Sub实验八图形Picture1.Picture = LoadPicture(App.Path & "\Wys.bmp") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End Sub2.If Check1.Value = 1 ThenImage1.BorderStyle = 1ElseImage1.BorderStyle = 0End IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture(App.Path & "\Pic.jpg") ElseImage1.Picture = LoadPicture()End IfEnd SubShape1.Shape = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.FillStyle = VScroll1.ValueEnd SubPrivate Sub Command1_Click()Picture1.Line (0, 600)-(1600, 600)End SubPrivate Sub Command2_Click()Picture1.ClsPicture1.Circle (800, 600), 500, , , , 2End SubIf keyascii>48 or keyascii<57 ThenKeyascii=0Label1.Caption = "非法输入"ElseLabel1.Caption = "合法输入"End IfEnd SubImage1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2 ^ (1 / 2)) Image1.Height = Image1.Height * Sqr(2 ^ (1 / 2)) End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2)Image1.Height = Image1.Height * Sqr(2)End SubPrivate Sub Command3_Click()Image1.Stretch = FalseEnd SubPicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsgreen_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsred_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End sub实验九文件Private Sub Command1_Click()Dim i As IntegerText1.Text = ""i = 1Open App.Path & "\Grade.txt" For Input As #1Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 30If a(i) = 100 Thens = s + 1End IfNext iText2.Text = sEnd SubDim s As StringText1.Text = ""Open App.Path & "\Infile.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim a As Stringa = UCase(Text1.Text)Text1.Text = aOpen App.Path & "\Outfile.txt" For Output As #1 Print #1, aClose #1End SubPrivate Sub Command1_Click()Dim s As String, i As IntegerText1.Text = ""i = 1Open App.Path & "\Datain.txt" For Input As #1 Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 20If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2)End IfNext iEnd SubDim s As StringText1.Text = ""Open App.Path & "\Dialog.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 65 And Asc(s) <= 90 Thenr = r + 1End IfNext iText2.Text = rEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 97 And Asc(s) <= 122 Thenr = r + 1End IfNext iText3.Text = rEnd SubFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Dim a As StringIf Right(File1.Path, 1) = "\" Thena = File1.Path + File1.FileNameElsea = File1.Path + "\" + File1.FileNameEnd IfText1.Text = aEnd Sub实验十界面设计Text1.locked=falseFSave.enable=trueEnd subFSave_clickText1.locked=tureFSave.enable=falseEnd sub2.dis_clicktext1.text=“计算机等级考试”end sub3.clea_clicktext1.text=“”end sub4.sqadd_clicklabel1.caption=(val(text1.text)^2)+(val(text2.text)^2) end subsqsub_clicklabel1.caption=(val(text1.text)^2)-(val(text2.text)^2) end submnuclean_clicktext1.text=“”text2.text=“”label1.caption=“”end sub4.Private Sub MnuRed_Click()Shape1.FillColor = vbRedEnd SubPrivate Sub MunBlue_Click()Shape1.FillColor = vbBlueEnd Sub5.Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextFor i = 1 To aIf Sqr(i) = Int(Sqr(i)) ThenList1.AddItem iEnd IfNext iEnd Sub制作人：102宿舍、尤昌波只供参考。

2008年4月全国计算机等级考试二级VB笔试试题-中大网校

2008年4月全国计算机等级考试二级VB笔试试题总分：100分及格：60分考试时间：90分一、单选题(每小题2分，共70分)(1)程序流程图中带有箭头的线段表示的是A. 图元关系B. 数据流C. 控制流D. 调用关系(2)结构化程序设计的基本原则不包括A. 多态性B. 自顶向下C. 模块化D. 逐步求精(3)软件设计中模块划分应遵循的准则是A. 低内聚低耦合B. 高内聚低耦合C. 低内聚高耦合D. 高内聚高耦合(4)在软件开发中，需求分析阶段产生的主要文档是A. 可行性分析报告B. 软件需求规格说明书C. 概要设计说明书D. 集成测试计划(5)算法的有穷性是指A. 算法程序的运行时间是有限的B. 算法程序所处理的数据量是有限的C. 算法程序的长度是有限的D. 算法只能被有限的用户使用(6)对长度为n的线性表排序，在最坏情况下，比较次数不是n(n一1)／2的排序方法是A. 快速排序B. 冒泡排序C. 直接插入排序D. 堆排序(7)下列关于栈的叙述正确的是A. 栈按“先进先出”组织数据B. 栈按“先进后出”组织数据C. 只能在栈底插入数据D. 不能删除数据(8)在数据库设计中，将E—R图转换成关系数据模型的过程属于A. 需求分析阶段B. 概念设计阶段C. 逻辑设计阶段D. 物理设计阶段(9)<Ahref="javascript:;"></A >(10)<Ahref="javascript:;"></A>(11)<A href="javascript:;"></A>(12)<A href="javascript:;"></A>(13)<A href="javascript:;"></A>(14)<A href="javascript:;"></A>(15)<A href="javascript:;"></A>(16)<Ahref="javascript:;"></A>(17)<Ahref="javascript:;"></A>(18)<Ahref="javascript:;"></A>(19)<Ahref="javascript:;"></A>(20)<Ahref="javascript:;"></A>(21)<A href="javascript:;"></A>(22)<Ahref="javascript:;"></A>(23)<Ahref="javascript:;"></A>(24)<Ahref="javascript:;"></A>(25)<Ahref="javascript:;"></A>(26)<Ahref="javascript:;"></A>(27)<Ahref="javascript:;"></A>(28)<Ahref="javascript:;"></A>(29)<Ahref="javascript:;"></A>(30)<A href="javascript:;"></A>(31)<Ahref="javascript:;"></A>(32)<Ahref="javascript:;"></A>(33)<Ahref="javascript:;"></A>(34)<Ahref="javascript:;"></A>(35)<Ahref="javascript:;"></A>二、填空题(每空3分，共30分)(1)测试用例包括输入值集和【1】值集(2)深度为5的满二叉树有【2】个叶子结点。

(完整word版)08年春江苏计算机二级VB上机试题及答案

江苏2008年(春)上机Visual Basic 答案一、改错【题目】本程序的功能如下图所示，将输入的一个由数字字符组成的字符串，从第一位、第二位……直到倒数第二位，依次取两位数据，得到一组两位整数输出到列表框i，再将其中的素数挑选出来输出到列表框 2 (注意，如果截取到的两位数字，第一位为0,例如05,则无效，将其丢弃)。

Opti on ExplicitPrivate Sub Comma nd1_Click()Dim st As String, num() As In tegerDim k As In teger, i As In tegerst = Text1i = 1: k = 1DoIf Mid(st, i, 1) <> "0" The nReDim Preserve num(k) 'err 无Preserve num(k) = Val(Mid(st, i, 2)) List1.Addltemnum(k) k = k + 1End IfLoop While i < Len( st) 'err i <= Len( st)For i = 1 To UBo und(num)If prime( nu m(i)) Then List2.AddItem nu m(i)Next iEnd SubPrivate Function prime( n As In teger) As Boolea nDim i As In tegerFor i = 2 To Sqr( n)If n Mod i = 0 The n Exit Fun ction 'err Exit ForNext iprime = TrueEnd Function二、编程题【题目】编写程序，将10〜5000之间的一组数据，变换到(0, 1 )区间。

变换的方法是，找出这组数据中的最大数，用大于它的第一个能被100整除的数n，分别除以这组数据中的每个数。

国二级VB上机题含答案第四套

第04套1.大体操作（ 2 小题，每题 15 分，共计 30 分）注意：下面显现的“考生文件夹”均为%USER%**********************************************************************请依照以下各小题的要求设计Visual Basic 应用程序（包括界面和代码）。

（1）请在名称为 Form1 的窗体上成立一个二级下拉菜单，第一级共有二个菜单项，题目别离为“文件” 、“编辑”，名称别离为 file 、 edit；在“编辑”菜单下有第二级菜单，含有三个菜单项，题目别离为“剪切” 、“复制”、“粘贴”，名称别离为 cut、 copy、paste。

其中“粘贴”菜单项设置为无效（如下图）。

*注意：存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件名为。

**********************************************************************（2）在窗体上画二个文本框，名称别离为Text 一、Text2。

请设置适当的控件属性，并编写适当的事件进程，使得在运行时，若是在 Text1 中每输入一个字符，那么显示一个“*”，同时在Text2 中显示输入的内容（如下图）。

程序中不得利用任何变量。

*注意：存盘时必需寄存在考生文件夹下，工程文件名为，窗体文件名为。

2.简单应用（ 2 小题，每题 20 分，计 40 分）注意：下面显现的“考生文件夹”均为%USER%***********************************************************************（ 1）在名称为Form1 的窗体上画二个图片框，名称别离为P 一、 P2，高度均为1900，宽度均为1700，通过属性窗口把图片文件放入P1 中，把图片文件放入P2 中；再画一个命令按钮，名称为C1，题目为“互换图片”（如下图）。