05年秋江苏计算机二级VB上机试题及答案

合集下载

国家二级VB机试(上机操作)模拟试卷505(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷505(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上画一个图片框，名称为P1，高为1800，宽为1600，并放入文件名为pic1.bmp 的图片（如图1－32 所示）。

请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。

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

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。

步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。

参考代码：Private Sub C1_Click( ) = “宋体”End Sub 步骤3：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。

步骤2：打开代码编辑窗口，编写窗体的双击事件过程。

参考代码：Private Sub Form_DblClick( ) P1.Picture = LoadPicture(““) End Sub 步骤3：按要求将文件保存至考生文件夹中。

简单应用题2．（1）在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为1；再添加一个名称为Timer1 的计时器。

请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。

如图1－33所示的是程序刚启动时的情况。

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

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

（2）在考生文件夹下有一个工程文件sjt4.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。

而如果单击“显示”按钮，则在窗体上输出所有选中的列表项（如图1－34所示）。

要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的?为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。

2005 秋江苏省二级VB等级考试笔试卷 (1)

B．-b+Sqr(b*b-4*a*c)/(2*a)
C．(-b+Sqr(b*b-4*a*c))/(2*a)
D．(-b+Sqr(b*b-4*a*c))/ 2*a
25．设Mys1,Mys2均为字符串型变量，Mys1=”Visual Basic”,Mys2=”b”,则下面关系表达式中结果为的是
A.CD-RW光盘刻录机可以刻录CD-R和CD-RW盘片
B. DVD的英文全名是Digital Video Disc，即数字视频光盘，它仅能存储视频信息
C. DVD光盘的容量一般为数千兆字节
D. 目前 DVD光盘存储器所采用的激光大多为红色激光
A. 现代继承电路使用的半导体材料大多数是（ Si ）
B.Pentium4 微处理器芯片是一种超大规模集成电路，其集成度在 1000 万以上
C. 目前 PC 机中所用的的电子元器件均为大规模集成电路
D.Moore 定律指出（预言），集成电路的集成度平均 18~24 个月翻一番
B. 网络聊天是一种双向的、以信息交互为主要目的的系统
C. 广播是一种双向的、点到多点的信息交互系统
D.Internet 是一种跨越全球的多功能信息系统
2. 微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（ IC ）的叙述中，错误的是 2 。
2005 秋江苏省二级VB等级考试笔试卷（1）
2005 秋江苏省二级VB等级考试笔试卷（1）
2005 秋江苏省计算机等级考试笔试卷
第一部分计算机基础知识
1. 在下列关于信息系统的叙述中，错误的是 1 。
A. 电话是一种双向的、点对点的、以信息交互为主要目的的系统

江苏省计算机二级考试VB程序设计复习题

江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。

2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。

3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。

4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。

第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。

2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。

3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。

4、设置控件背景颜色的属性名称是_ backcolor __。

5、所有控件都具有的共同属性是__ name __属性。

6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。

7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。

8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。

9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。

第三章1、一般可以使用____ Const ______关键字声明常量。

2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。

3、变量的声明分为两种方法：_隐式声明__和__显示声明__。

2005年9月全国计算机等级考试二级VB笔试试卷.详解

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练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试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元。

国家二级VB机试(上机操作)模拟试卷142(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷142(题后含答案及解析) 题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题1．在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图所示。

程序执行时，窗体的最大化按钮不可用(如图所示)，请设置相应属性。

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

正确答案：[操作步骤]步骤1：新建一个窗体，在属性窗口中设置窗体的属性，按照表4．3所示在属性窗口中设置相应属性，其运行效果如图4．3所示。

步骤2：在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．4所示在属性窗口中设置相应属性，其运行效果如图4．4所示。

步骤3：调试并运行程序，关闭程序后按题目要求存盘。

2．在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白；再画1个名称为Picture1的图片框，大小适中即可。

要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图所示。

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

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

正确答案：[操作步骤]步骤1：新建一个窗体，在窗体上添加一个标签控件，在属性窗口中设置标签的属性，按照表4．5所示在属性窗口中设置相应属性，其运行效果如图4．5所示。

步骤2：在窗体上添加一个文本框控件，在属性窗口中设置文本框的属性，按照表4．6所示在属性窗口中设置相应属性，其运行效果如图4．6所示。

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

江苏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》练习题及答案

xx年计算机二级考试《VB》练习题及答案1、一个栈的初始状态为空。

现将元素1、2、3、4、5、A、B、c、D、E依次入栈，然后再依次出栈，那么元素出栈的顺序是( )。

A.12345ABCDEB.EDCBA54321C.ABCDEl2345D.54321EDCBA2、以下表达中正确的选项是( )。

A.循环队列有队头和队尾两个指针，因此，循环队列是非线性构造B.在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C.在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D.循环队列中元素的个数是由队头指针和队尾指针共同决定3、在长度为凡的有序线性表中进展二分查找，最坏情况下需要比拟的次数是( )。

A.0(n)B.O(n2)C.O(1092n)D.0(nlog2n)4、以下表达中正确的选项是( )。

A.顺序存储构造的存储一定是连续的，链式存储构造的存储空间不一定是连续的B.顺序存储构造只针对线性构造，链式存储构造只针对非线性构造C.顺序存储构造能存储有序表，链式存储构造不能存储有序表D.链式存储构造比顺序存储构造节省存储空间5、数据流图中带有箭头的线段表示的是( )。

A.控制流B.事件驱动C.模块调用D.数据流6、在软件开发中，需求分析阶段可以使用的工具是( )。

A.N—s图B.DFD图C.PAD图D.程序流程图7、在面向对象方法中，不属于“对象”根本特点的是( )。

A.一致性B.分类性C.多态性D.标识唯一性8、一问宿舍可住多个学生，那么实体宿舍和学生之间的联系是( )。

A.一对一B.一对多C.多对一D.多对多9、在数据管理技术开展的三个阶段中，数据共享最好的是( )。

A.人工管理阶段B.文件系统阶段C.数据库系统阶段D.三个阶段相同10.栈和队列的共同特点是( )A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同点参考答案： C。

2005年4月份二级VB真题(附参考答案)

（考试时间90分钟，满分100分）一、选择题((1)~(35)每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1)数据的存储结构是指A) 存储在外存中的数据 B) 数据所占的存储空间量C) 数据在计算机中的顺序存储方式 D) 数据的逻辑结构在计算机中的表示(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表 B) 栈只能顺序存储C)栈具有记忆作用 D) 对栈的插入与删除操作中，不需要改变栈底指针(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A) 冒泡排序为n/2 B) 冒泡排序为nC) 快速排序为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)数据独立性是数据库技术的重要特点之一。

国家二级计算机vb考试试题及答案

国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。

A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。

A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。

A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。

A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。

A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。

A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。

答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。

答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。

答案：Dim4. VB中，使用____关键字可以定义一个过程。

答案：Sub5. VB中，使用____关键字可以定义一个函数。

答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。

历年计算机二级vb考试试题及答案

历年计算机二级vb考试试题及答案一、单选题1. 在VB中，以下哪个选项不是有效的数据类型？A. IntegerB. StringC. DateD. Boolean答案：C2. VB中，以下哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Property答案：B3. 在VB中，以下哪个选项是正确的字符串连接操作？A. "Hello" + "World"B. "Hello" & "World"C. "Hello" || "World"D. "Hello" / "World"答案：B4. VB中，以下哪个选项不是控制结构？A. If...ThenB. For...NextC. While...WendD. Dim答案：D5. 在VB中，以下哪个选项用于声明一个变量？A. DimB. ConstC. FunctionD. Sub答案：A二、多选题1. 在VB中，以下哪些选项是合法的数组声明？A. Dim numbers(10) As IntegerB. Dim names() As StringC. Dim matrix(2, 3) As DoubleD. Dim matrix(3) As Double答案：A, B, C2. VB中，以下哪些选项是合法的循环结构？A. For...NextB. Do...LoopC. While...WendD. Repeat...Until答案：A, B, C, D三、判断题1. VB中，所有的变量都必须在程序开始之前声明。

（对/错）答案：错2. VB中，可以使用“=”来比较两个字符串是否相等。

（对/错）答案：错3. VB中，可以使用“&”来连接两个字符串。

计算机二级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。

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

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

运行窗体如图所示。

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

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

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

05年秋江苏计算机二级VB上机试题及答案

江苏省等级考试二级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二级计算机考试试题及答案一、单选题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type答案：A2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. 在VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. FormD. Interface答案：A4. VB中，用于读取文件内容的函数是：A. DirB. FileGetC. FileOpenD. FilePut答案：C5. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案：D6. VB中，用于创建一个窗体的关键字是：A. FormB. DialogC. WindowD. Frame答案：A7. VB中，用于实现事件驱动编程的关键字是：A. EventB. SubC. FunctionD. Property答案：B8. 在VB中，下列哪个选项不是字符串函数？A. LeftB. RightC. MidD. Round答案：D9. VB中，用于定义常量的关键字是：A. DimB. ConstC. StaticD. Private答案：B10. VB中，下列哪个选项不是循环结构？A. For EachB. ForC. Do WhileD. If答案：D二、填空题（每题2分，共20分）1. VB中，用于声明全局变量的关键字是________。

答案：Public2. VB中，用于定义一个过程的关键字是________。

答案：Sub3. 在VB中，用于定义一个函数的关键字是________。

国家二级VB机试(上机操作)模拟试卷2(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷2(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

在名称为Forml的窗体上画两个名称分别为Frame1、Frame2的框架，标题分别为”字号”、”修饰”；在Frame1中画两个单选按钮，名称分别为Optionl、Option2，标题分别为”10号字”、”20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为”下划线”。

运行后的窗体如图2-34所示。

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

正确答案：步骤1：新建一个”标准EXE”工程，如表3-18在窗体中画出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

2．在名称为Forml的窗体上从上到下画两个文本框，名称分别为Textl、Text2；再画一个命令按钮，名称为Commandl，标题为”选中字符数是”。

程序运行时，在Textl中输入若干字符，选中部分内容后，单击”选中字符数是”按钮，则在Text2中显示选中的字符个数(如图2-35所示)。

请编写按钮的Click事件过程。

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

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

正确答案：步骤1：新建一个”标准EXE”工程，如表3-19所列在窗体Forml 中画出控件并设置它们的属性。

步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Commandl_Click( )Text2．Text=Forml．Textl．SelLengthEnd Sub简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。

程序运行后，单击”读入数据”按钮，可把考生文件夹下in3．txt文件中的所有英文单词读入，并显示在Textl文本框中；单击”插入列表框”按钮，则按顺序把每个单词作为一项添加到Listl列表框中(如图2-36所示)。

国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。

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

(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。

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

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

正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。

程序中用到的控件及属性如表3．7所示。

步骤2：调试并运行程序，效果如图3．12所示。

步骤3：关闭程序后按题目要求保存T程和窗体文件。

(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。

步骤2：打开代码编辑窗口，存指定位置编写如下代码。

参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。

简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。

全国计算机二级考试《VB》操作试题及答案

全国计算机二级考试《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中显示“我开汽车去”，如图所示。

江苏计算机二级VB 2005春~2009秋答案

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。

江苏省计算机二级vb考试题库及答案

江苏省计算机二级vb考试题库及答案在计算机技术的不断发展和应用的推广下，计算机二级考试在各个地区都成为了一个非常重要的考试内容。

江苏省计算机二级VB考试题库及答案是众多考生备考时必备的资料之一。

本文将就江苏省计算机二级VB考试题库及答案进行详细的介绍。

一、江苏省计算机二级VB考试题库1. VB程序的基本结构是什么？答案：VB程序的基本结构由窗体、控件和代码组成。

2. VB中如何定义一个变量？答案：可以使用“Dim”关键字定义一个变量。

例如：Dim num As Integer。

3. VB中如何实现画图功能？答案：可以使用绘图工具或者画布控件来实现画图功能。

4. VB程序中如何实现输入输出？答案：可以使用输入框控件或者消息框来实现输入输出功能。

5. VB中如何调用函数？答案：可以使用函数名+参数的方式来调用函数。

二、江苏省计算机二级VB考试答案1. 请简述VB程序的运行过程。

答案：VB程序的运行过程包括以下几个步骤：- 加载窗体和控件；- 执行代码；- 响应用户操作。

2. 请写出VB程序中定义一个计算两数之和的函数的代码。

答案：```Function Add(num1 As Integer, num2 As Integer) As IntegerAdd = num1 + num2End Function```3. 如何实现在VB程序中播放音乐？答案：可以使用“WindowsMediaPlayer”控件来实现音乐的播放功能。

4. 请写出VB程序中实现文件读取的代码。

答案：```Dim file As Stringfile = FreeFileOpen "文件路径" For Input As fileInput #file, dataClose file```5. VB中如何处理异常错误？答案：可以使用“On Error Resume Next”语句来处理异常错误。

以上就是江苏省计算机二级VB考试题库及答案的相关内容介绍。