2012年上海市高等学校计算机等级考试试卷二级VBNET程序设计
2012年上海市高等学校计算机等级考试试卷
2012年上海市高等学校计算机等级考试试卷二级 C语言程序设计B卷（二）编程题（2小题，共35分，第1小题15分，第2小题20分）1．编程题1编程要求：请按题中的功能要求，编写程序并能得到正确的结果。
将结果（包括B_4_1.C文件和B_4_1.EXE文件）保存到目录C:\KS\中。
程序功能：输入一个字符串，输出三角形样式图案，每行包含行号与子串，格式参见示例。
运行示例：输入：London输出：0:London1:ondon2:ndon3:don4:on5:n参考答案：#include <stdio.h>int main(void){char s[80];int i;gets(s);for (i=0;s[i]!='\0';i++){printf("%d:",i);puts(s+i);}return 0;}测试数据：Shanghai输出结果：0:Shanghai1:hanghai2:anghai3:nghai4:ghai5:hai6:ai7:i2．编程题2编程要求：请按题中的功能要求，编写程序并能得到正确的结果。
将结果（包括B_4_2.C文件和B_4_2.EXE文件）保存到目录C:\KS\中。
背景说明：在2012伦敦奥运会上，中国选手陈若琳获得跳水女子10米跳台冠军，中国代表团夏季奥运会第200枚金牌，下图是决赛中完成第2跳之后的裁判打分及跳水得分。
规则说明：共7个裁判对单人跳水进行打分，打分范围为0.0至10.0，且为0.5整数倍。
（1）去掉2个最高分，去掉2个最低分，保留3个中间有效分；（2）3个有效分的之和乘难度系数为跳水得分。
=∑得分⨯难度系数有效分以第2跳为例，得分=(9.0+8.5+9.0)*3.2=84.80。
程序功能：输入某轮次跳水的难度系数与7个裁判打分，输出该轮次跳水的得分，格式参见示例。
运行示例：输入：3.0 10.0 9.5 9.0 9.5 9.5 9.0 9.5输出：85.50参考答案：#include <stdio.h>int main(void){int j,k;float a[7],dif,score,sum,t;sum=0;scanf("%f",&dif);for (j=0;j<7;j++)scanf("%f",&a[j]);for (j=0;j<7-1;j++)for (k=0;k<7-1-j;k++)if (a[k]>a[k+1]){t=a[k];a[k]=a[k+1];a[k+1]=t;}score=dif*(a[2]+a[3]+a[4]);printf("%.2f\n",score);return 0;}测试数据：3.1 9.0 9.5 8.5 9.5 9.0 8.0 9.5输出结果：85.25C卷（二）编程题（2小题，共35分，第1小题15分，第2小题20分）1．编程题1编程要求：请按题中的功能要求，编写程序并能得到正确的结果。
2012年3月全国计算机等级考试《二级VisualBasic语言程序设计》真题及答案
2012年3月全国计算机等级考试《二级VisualBasic语言程序设计》真题及答案2012年3月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A ）、B ）、C ）、D ）四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）下列叙述中正确的是A ）循环队列是队列的一种链式存储结构B ）循环队列是队列的一种顺序存储结构C ）循环队列是非线性结构D ）循环队列是一种逻辑结构（2）下列叙述中正确的是A ）栈是一种先进先出的线性表B ）队列是一种后进先出的线性表C ）栈与队列都是非线性结构D ）以上三种说法都不对（3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为A ）16B ）10C ）6D ）4（4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是A ）外模式B ）内模式C ）概念模式D ）逻辑模式（5）在满足实体完整性约束的条件下A ）一个关系中应该有一个或多个候选关键字B ）一个关系中只能有一个候选关键字C ）一个关系中必须有多个候选关键字D ）一个关系中可以没有候选关键字（6）有三个关系R 、S 和T 如下：R ST 则由关系R 和S 得到关系T 的操作是A ）自然连接B ）并C ）交D ）差（7）软件生命周期中的活动不包括A ）市场调研B ）需求分析C ）软件测试D ）软件维护（8）下面不属于需求分析阶段任务的是A ）确定软件系统的功能需求B ）确定软件系统的性能需求C ）需求规格说明书评审 A B Ca 1 2b 2 1c 3 1 A B C a 1 2d 2 1 A B C b 2 1 c 3 1整理：陈远跃D）制定软件集成测试计划（9）在黑盒测试方法中，设计测试用例的主要根据是A）程序内部逻辑B）程序外部功能C）程序数据结构D）程序流程图（10）在软件设计中不适用的工具是A）系统结构图B）PAD图C）数据流图（DFD图）D）程序流程图（11）以下合法的VB变量名是D）x*y A）case B）name10 C）t-name（12）设x是小于10的非负数。
二级VB理论2012-带答案
Visual Basic 6.0程序设计练习册诚毅学院计算机教研室版本:No.4目录目录 (1)第一、二章理论复习题 (2)第三、四章理论复习题 (12)第五章理论复习题 (23)第六章理论复习题 (36)第七章理论复习题 (49)第八章理论复习题 (54)第九章理论复习题 (63)第十一章理论复习题 (66)第十二章理论复习题 (69)第一、二章理论复习题1、标准模块文件的扩展名是（）。
A、c lsB、f rmC、b asD、r es2、有程序代码：Text1.Text = "Visual Basic"，则：Text1、Text 和"Visual Basic"分别代表（）。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值3、命令按钮能响应（）事件。
A、S crollB、C hangeC、D blClickD、K eyPress4、下列不是VB6.0的特点是（）。
A、事件驱动的编程机制B、C AD技术C、可视化设计平台D、A ctive技术5、下列可以打开立即窗口的操作是（）。
A、C trl+DB、C trl+EC、C trl+FD、C trl+G6、当一个工程含有多个窗体时，其中的启动窗体是（）。
A、最后一个添加的窗体B、存盘时正在编辑的窗体C、第一个添加的窗体D、在“工程属性”对话框指定的窗体7、下列不能打开属性窗体的操作是（）。
A、执行“视图”菜单中的“属性窗口”命令B、按F4键C、按Ctrl+TD、单击工具栏上的“属性窗口按钮”8、以下不能在“工程资源管理器”窗口中列出的文件类型是（）。
A、B asB、R esC、F rmD、o cx9、为了在按回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）。
A、V alueB、D efaultC、C ancelD、E nabled10、当文本框的（）属性设置为True时,文本框控件相当于标签的作用。
全国计算机等级考试二级VISUAL+BASIC真题2012年3月
全国计算机等级考试二级VISUAL BASIC真题2012年3月(总分：100.00，做题时间：90分钟)一、选择题（每小题2分，共70分） (总题数：35，分数：70.00)1.下列叙述正确的是（）。
（分数：2.00）A.循环队列是队列的一种链式存储结构√B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构解析：解析：循环队列是一种顺序存储的线性结构，所以，“循环队列是队列中的一种链式存储结构，”“循环队列是非线性结构”和“循环队列是一种逻辑结构”的说法都是错误的。
2.下列叙述正确的是（）。
（分数：2.00）A.栈是一种先进先出的线性表B.队列是一种后进后出的线性表C.栈和队列都是非线性结构D.以上三种说法都不对√解析：解析：栈和队列都是线性结构，并且栈是后进先出，队列是先进先出，所以三种说法都不对。
3.一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为（）。
（分数：2.00）A.16 √B.10C.6D.4解析：解析：根据公式n0=n2+1,叶子节点个数为5，则度为2的结点书为4，那么度为1的结点数n1=n-n0-n2=25-4-5=16.4.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（）。
（分数：2.00）A.外模式B.内模式√C.概念模式D.逻辑模式解析：解析：数据库系统在气内部都具有三级模式：概念模式、内部模式与外部模式。
其中，内模式(又称物理模式)给出了数据库物理存储结构与物理存取方法，如数据存储的文件结构、索引、集簇及hash等存取方式与存取路径，内模式的物理特性主要体现在操作系统及文件级上，它还为深入到设备及上。
概念模式是数据库系统中全局数据逻辑结构的描述。
是全体用户(应用)的go公共数据师徒，主要描述数据的概念记录类型一级他们之间的广西，它还包括一些数据间的语意约束。
外模式(子模式货用户模式)是用户的数据师徒，也就是用户缩减到的数据模式，它由概念模式推到而出的，在一般的DBMS中都提供相关的外模式描述语言(外模式DDL)5.在满足实体完整性约束的条件下（）。
2012年计算机二级VB上机试题及解题思路(第三套)
第03套1. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Frame1，标题为“目的地”的框架，在框架中添加三个复选框，名称分别为Check1、Check2、Check3，其标题分别是“上海”、“广州”、“巴黎”，其中“上海”为选中状态，“广州”为未选状态，“巴黎”为灰色状态，如图所示。
请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
解题思路：启动Visual Basic系统，创建一个Form1窗体。
在该窗体上画一个框架控件，通过其属性窗口将名称设为Frame1，标题（Caption属性）设为“目的地”。
在F1框架中画三个复选框控件，通过其属性窗口将名称分别设为Check1、Check2、Check3，标题（Caption 属性）分别设为“上海”、“广州”、“巴黎”，“上海”的Value属性设为1,“巴黎”的Value属性设为2。
参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。
**********************************************************************（2）在名称为Form1的窗体上画一个名称为Picture1的图片框，其宽和高分别为1700、1900。
请编写适当事件过程，使得在运行时，单击图片框，则装入考生目录下的图形文件pic1.bmp，如图所示。
2012年上海市高等学校计算机等级考试试卷二级VBNET程序设计
2012年上海市高等学校计算机等级考试试卷二级 程序设计（ A 卷）（本试卷考试时间 120 分钟）一、单选题 ( 本大题 10 道小题，每小题 1.5 分，共 15 分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。
1.当运行程序时，系统自动执行启动窗体的__________事件过程。
答案：AA.LoadB.ClickC.UnLoadD.GotFocus2.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是___________。
答案：BA.ListBox1.Clear()B.ListBox1.Items.RemoveAt(4)C.ListBox1.Items.RemoveAt("计算机")D.ListBox1.Items.Add(1, "打印机")3.若要使标签控件显示时不覆盖窗体的背景图案，要对___________ 属性进行设置。
答案：AA.BackColorB.BorderStyleC.BackD.ForeColor4.下列函数中，_________函数返回值是数值型的。
答案：DA.ChrB.MidC.ReplaceD.Val5.下面的过程定义语句中_________是不合法的。
答案：AA.SubSub1(ByVal n%) As IntegerB.SubSub1(ByVal sub1%)C.FunctionSub1(ByVal n%) As IntegerD.FunctionSub1%(ByVal n%)6.定义结构类型并声明变量如下：Structure StudentDim No As IntegerDim Name As StringEnd StructureDim s As Student下列语句正确的是__________。
答案：DA.s={100001,"张三"}="张三"="张三"="张三"7.VB程序设计中，响应对象的外部动作称为______ , 而对象可以执行的动作或对象本身的行为则称为______。
2012年9月全国计算机等级考试二级VB笔试试卷及答案(WORD版本)
2012年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计一、选择题1、下列链表中，其逻辑结构属于非线性结构的是A、二叉链表B、循环链表C、双向链表D、带链的栈2、设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35。
现经过一系列入队与退队运算后，front=15,rear=15,则循环队列中的元素个数为A、15B、16C、20D、0或353、下列关于栈的叙述中，正确的是A、栈底元素一定是最后入栈的元素B、栈顶元素一定是最先入栈的元素C、栈操作遵循先进后出的原则D、以上三种说法都不对4、在关系数据库中，用来表示实体间联系的是A、属性B、二维表C、网状结构D、树状结构5、公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，则实体部门和职员间的联系是A、1:1联系B、m:1联系C、1:m联系D、m:n联系6、有两个关系 R和S如下：则由关系R得到关系S的操作是A、选择B、投影C、自然连接D、并7、数据字典（DD）所定义的对象都包含于A、数据流图（DFD图）B、程序流程图C、软件结构图D、方框图8、软件需求规格说明书的作用不包括A、软件验收的依据B、用户与开发人员对软件要做什么的共同理解C、软件设计的依据D、软件可行性研究的依据9、下面属于墨盒测试的方法是A、语句覆盖B、逻辑覆盖C、边界值分析D、路径覆盖10、下面不属于软件设计阶段任务的是A、软件总体设计B、算法设计C、制定软件确认测试计划D、数据库设计11、以下叙述中错误的是A、.vbp文件是工程文件，一个工程可以包含.bas文件B、.frm文件是窗体文件，一个窗体可以包含.bas文件C、.vbp文件是工程文件，一个工程可以由多个.frm文件组成D、.vbg文件是工程组文件，一个工程组可以由多个工程组成12、以下叙述中错误的是A、在Visual Basic的窗体中，一个命令按钮是一个对象B、事件是能够被对象识别的状态变化或动作C、事件都是由用户的键盘操作或鼠标操作触发的D、不同的对象可以具有相同的方法13、设x=3.3，y=4.5，表达式x-Int(x)+Fix(y)的值是A、3.5B、4.8C、4.3D、4.714、窗体上有一个名称为Command1的命令按钮，其中部分代码如下：Private Sub Command1_Click( )Dim a(10) As IntegerDim n As Integer……Call calc(a,n)……End Subcalc过程的的首行应该是A、Sub calc（x() As Integer,n As Integer）B、Public Sub calc(x() As Integer)C、Private Sub calc(a(n) As Integer,n As Integer)D、Public Sub calc(a As Integer, n As Integer)15、设有如下程序Sub f(x As Integer，ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As Integer , b As Integera=6 ; b=35call f(a,b)print a,bEnd Sub程序运行后，单击命令按钮Command1，输出结果为A、6 47B、12 47C、6 35D、12 3516、以下叙述中正确的是A、窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B、在工程中只有启动窗体可以建立菜单C、窗体名称必须与窗体文件的名称相同D、程序一定是从某个窗体开始执行的17、窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1_Click()Static x As Variantn=0x=array(1,2,3,4,5,6,7,8,9,10)While n<=4x(n)=x/(n+5)Print x(n);N=n+1WendEnd Sub运行程序，单击命令按钮Command1，窗体上显示的是A、12345B、678910C、23456D、6234518、窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮，命令按钮的单击事件过程如下：Private Sub Command1_click()x=InputBox(“输入x: ”，，0)y=InputBox(“输入y: ”，，0)Label1.caption=x+yEnd Sub运行程序后，单击命令按钮，在输入对话框中分别输入2，3，运行的结果是A、程序运行有错误，数据类型不匹配B、程序运行有错误，InputBox函数的格式不对C、在Label1中显示5D、在Label1中显示2519、窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。
2012年9月全国计算机等级考试《二级Visual Basic语言程序设计》真题及答案
2012年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟，满分100分）整理：陈远跃一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）下列链表中，其逻辑结构属于非线性结构的是A）双向链表B）带链的栈C）二叉链表D）循环链表（2）设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35。
现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为A）20B）0或35C）15D）16（3）下列关于栈的叙述中，正确的是A）栈底元素一定是最后入栈的元素B）栈操作遵循先进后出的原则C）栈顶元素一定是最先入栈的元素D）以上三种说法都不对（4）在关系数据库中，用来表示实体间联系的是A）网状结构B）树状结构C）属性D）二维表（5）公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。
则实体部门和职员间的联系是A）1：m联系B）m：n联系C）1：1联系D）m：1联系（6）有两个关系R和S如下：R SA B C A B Ca 1 2 c3 1b 2 1c 3 1则由关系R得到关系S的操作是A）自然连接B）并C）选择D）投影（7）数据字典（DD）所定义的对象都包含于A）软件结构图B）方框图C）数据流图（DFD图）D）程序流程图（8）软件需求规格说明书的作用不包括A）软件设计的依据B）软件可行性研究的依据C）软件验收的依据D）用户与开发人员对软件要做什么的共同理解（9）下面属于黑盒测试方法的是A）边界值分析B）路径覆盖C）语句覆盖D）逻辑覆盖（10）下面不属于软件设计阶段任务的是A）制定软件确认测试计划B）数据库设计C）软件总体设计D）算法设计（11）以下叙述中错误的是A）.vbp文件是工程文件，一个工程可以包含.bas文件B）.frm文件是窗体文件，一个窗体可以包含.bas文件C）.vbp文件是工程文件，一个工程可以由多个.frm文件组成D）.vbg文件是工程组文件，一个工程组可以由多个工程组成（12）以下叙述中错误的是A）在Visual Basic的窗体中，一个命令按钮是一个对象B）事件是能够被对象识别的状态变化或动作C）事件都是由用户的键盘操作或鼠标操作触发的D）不同的对象可以具有相同的方法（13）设x=3.3，y=4.5，表达式x-Int(x)+Fix(y)的值是A）3.5 B）4.8 C）4.3 D）4.7 （14）窗体上有一个名称为Command1的命令按钮，其中部分代码如下：Private Sub Command1_Click() Dim a(10) As IntegerDim n As Integer…… Call calc(a, n) ……End Subcalc过程的首行应该是A）Sub calc(x() As Integer,n As Integer)B）Public Sub calc(x() As Integer)C）Private Sub calc(a(n) As Integer，n As Integer)D）Public Sub calc(a As Integer,n As Integer) （15）设有如下程序：Sub f(x As Integer, ByVal y As Integer) x = 2 * xy = y + xEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integer a = 6: b = 35Call f(a, b)Print a, bEnd Sub程序运行后，单击命令按钮Command1，输出结果为A）6 47 B）12 47 C）6 35 D）12 35 （16）以下叙述中正确的是A）窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B）在工程中只有启动窗体可以建立菜单C）窗体名称必须与窗体文件的名称相同D）程序一定是从某个窗体开始执行的（17）窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1_Click()Static x As Variantn =0x = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) While n <=4x(n) =x(n + 5)Print x(n);n =n + 1WendEnd Sub运行程序，单击命令按钮Command1，窗体上显示的是A）1 2 3 4 5 B）6 7 8 9 10C ）2 3 4 5 6D ）6 2 3 4 5（18）窗体上有一个名称为Labe11的标签和一个名称为Command1的命令按钮，命令按钮的单击事件过程如下：Private Sub Command1_Click()x = InputBox("输入x ：", , 0)y = InputBox("输入y ：", , 0)Label1.Caption = x + yEnd Sub运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是A ）程序运行有错误，数据类型不匹配B ）程序运行有错误，InputBox 函数的格式不对C ）在Labe11中显示5D ）在Labe11中显示23（19）窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmdDraw 的控件数组。
上海市高等学校计算机等级考试试卷二级c语言程序设计(-a-卷)
2012年上海市高等学校计算机等级考试试卷二级 C语言程序设计（ A 卷）（本试卷考试时间 120 分钟）一、单选题 ( 本大题 10 道小题，每小题 1 分，共 10 分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。
1.在一个C 语言源程序中，main()函数的位置_________。
答案：CA.必须在最前面B.必须在其它函数之前C.可以在任意位置D.必须在最后面2. 设有变量定义：int a[ ]={5, 6, 1, 3, 7}, c, i;当执行完语句：for(i=c=0; i<5; i++){ if(a[i]%3 = =0)continue;c++;}之后，c的值是_____。
答案：CA.1B.2C.3D.43.以下程序运行结果为_______#define PII 3#define S(x) PII*x*xmain(){ int a=1, b=2, c;c = a+b;printf("%d\n",S(c));}答案：BA.9B.27C.7D.104.若有变量定义：int a[4], *p=a; 则以下对数组a的元素不正确的引用是_____。
答案：DA.*aB.*(p+1)C.p[1]D.a[4]5.设有变量定义：int d[50], *p=&d[0]; 下面表达式中________的计算结果为int类型的数值（非地址）。
答案：DA.p+=1B.p++C.&d[2]D.p-d6.为了判断两个字符串s1和s2是否相等，应当使用_____。
答案：DA.if (s1==s2 )B.if (s1 = s2 )C.if ( strcpy (s1,s2 ) )D.if ( strcmp( s1,s2) == 0 )7.设有变量定义int n; char str[80];与函数调用：n=hex2dec(str);则函数hex2dec正确的函数说明应该是_______。
12年上海VB.NETB卷
一、单选题1.在面向对象的程序设计语言中，___________不属于对象的三个要素。
A.方法B. 封装C. 时间D.属性2.要使Timer事件每秒触发两次，则需要设置Timer控件的Interval属性为______。
A.50B.500C.5D.0.53.若有说明：Dim x%, y%, z%, 则下列语句中错误的是_____A.x+y=y+xB.z=x<>yC.x=x+2D.x=x+y4.执行如下代码后，标签上显示的是_______。
Private Sub Button1_Click( ……) Handles Button1.ClickDim x As Integerx = 2Select Case xCase 1, 3label1.text = "分支1"Case Is > 4label1.text = "分支2"End SelectEnd SubA.分支1B.分支2C.其它D.程序报错5.下列循环语句中循环体的执行情况为_____。
Dim i%i = 10Do……i = i + 1Loop While i >= 0A.执行6次B.执行1次C.执行5次D.溢出6.已定义Dim b() As Integer，则在其后使用下列_____语句是错误的。
A. ReDim b(2)B. ReDim Preserve b(10)C. ReDim b(2,2)D. ReDim b(n%)7.单击按钮执行如下程序，所弹出的信息框内容为__________。
Private Sub Button1_Click(……) Handles Button1.ClickDim s$ = "传值与传地址"Call Changestr(s)MsgBox(s)End SubSub Changestr(ByVal str$)Changestr = Mid(str, 4, 3)End SubA. 传值与传地址B. 传值与C. 传地址D.与传地8.在“打开”文件对话框中，若要在文件列表框中只显示扩展名为BMP的文件，则Filter属性应设置为______。
上海市高等学校计算机等级考试二级
上海市高等学校计算机等级考试（二级）《Visual Basic程序设计》考试大纲(2009年修订)一、考试性质上海市高等学校计算机等级考试是上海市教育委员会组织的全市高校统一的教学考试，是检测和评价高校计算机应用基础知识教学水平和教学质量重要依据之一。
该项考试旨在规范和加强上海高校非计算机专业的计算机教学工作，提高非计算机专业学生的计算机应用能力。
考试对象主要是上海高等学校非计算机专业学生，每年举行一次，当年的十月下旬、十一月上旬的星期六或星期日。
凡考试成绩达到合格者或优秀者，由上海市教育委员会颁发相应的证书。
本考试由上海市教育委员会统一领导，聘请有关专家组成考试委员会，委托上海市教育考试院组织实施。
二、考试目标Visual Basic是当前流行的，简单易学、功能强大的程序设计语言，特别适合非计算机专业学生学习和应用。
学生通过该课程的学习，应能了解程序设计语言的基本知识、面向对象的基本概念，掌握程序设计的基本方法与思路，其中包括数据类型、基本语句、模块化程序设计、常用算法、界面设计等，并能综合应用这些知识解决简单实际问题。
《Visual Basic程序设计》的考试目标是测试考生掌握VB基本知识的程度和综合运用VB进行程序设计。
三、考试细则考试方法为基于网络环境的无纸化上机考试系统。
考试时间为120分钟。
试卷总分为100分。
由四部分组成：单选题、填空题、程序填空题和综合编程题。
试卷从局域网的服务器下载、考试结果上传到服务器，若不按照要求上传到服务器，则考试无效。
考试阅卷采用机器和人工相结合方式。
四、试卷参考样式五、考试内容、要点和考点六、几点说明（一）建议学时数64-72学时，其中32学时为实验课（二）建议计算机配置计算机硬件基本要求：中央处理器 Pentium III 550MGHz以上内存 128MB以上硬盘 20GB以上计算机软件基本要求：操作系统 Windows 2000以上编程环境中文VB 6.0（三）考试环境安装并使用“上海市高校计算机等级考试通用平台”进行考试。
全国计算机二级考试《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考试题及答案
计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。
2012年全国计算机等级《二级VB》全真模拟试题(3)-中大网校
2012年全国计算机等级《二级VB》全真模拟试题(3)总分：100分及格：60分考试时间：90分一、选择题(每题2分，共35题，70分)(1)设已经在窗体上添加了一个通用对话框控件CommonDialogl，以下语句正确的是（）。
(2)以下（）控件没有Caption属性。
A. CommandButtonB. CheckBoxC. 11extBoxD. Label(3)以下叙述中正确的是（）。
A. 任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C. 只有当窗体设计窗口为当前活动窗体时，才能打开菜单编辑器D. 任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器(4)A. 3+77．7B. 377．7C. 80．7D. 12377．7(5)在窗体上有一个文本框Textl，Text属性值为空，然后编写如下事件过程：程序运行后，如果在文本框中输入字母“P”，则在文本框中显示的内容为（）。
A.B.C.D.(6)以下（）操作不能触发滚动条Change事件。
A. 拖动滚动块B. 单击两端箭头C. 单击滚动块D. 单击箭头与滚动块之间的滚动条(7)下列可以激活属性窗口的操作是（）。
A. 用鼠标双击窗体的任何部位B. 按Ctrl+F4键C. 执行“工程”菜单中的“属性窗口”命令D. 按F4键(8)以下叙述错误的是（）。
A. 滚动条的重要事件是Change和ScrollB. 框架的主要作用是将控件进行分组，以完成各自相对独立的功能C. 组合框是组合了文本框和列表框的特性而形成的一种控件D. 计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上(9)在关系代数运算中，有5种基本运算，它们是（）。
(10)在窗体上画一个命令按钮，名称为Commandl，然后编写如下程序：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
全国计算机等级考试二级VISUAL+BASIC真题2012年9月
全国计算机等级考试二级VISUAL BASIC真题2012年9月(总分：100.00，做题时间：90分钟)一、选择题（每小题2分，共70分） (总题数：35，分数：70.00)1.下列链表中，其逻辑结构属于非线性结构的是（分数：2.00）A.二叉链表√B.循环链表C.双向链表D.带链的栈解析： [解析] 循环链表、双向链表、带链的栈都是线性结构，二叉链表是非线性结构二叉树的链式存储结构，只有它是非线性结构。
2.设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35。
现经过一系列入队与退队运算后，front=15,rear=15,则循环队列中的元素个数为（分数：2.00）A.15B.16C.20D.0或35 √解析：[解析] 在循环队列中，用队尾指针rear指向队列中的队尾元素，用队头指针front指向队头元素的前一个位置。
因此，从队头指针front指向的后一个位置到队尾指针rear指向的位置之间所有的元素均为队列中的元素。
循环队列的初始状态为空，即rear=front=m，每进行一次人队运算，队尾指针就进一。
每进行一次出运运算，队头指针就进一。
此题中rear=front=15，可能出现的情况是入队的元素全部出队，此时队列中元素个数为0；也可能是执行人队出队的次数不一样，最终状态是队列为满的状态，此时队列中元素个数为35。
3.下列关于栈的叙述中，正确的是（分数：2.00）A.栈底元素一定是最后入栈的元素B.栈顶元素一定是最先入栈的元素C.栈操作遵循先进后出的原则√D.以上三种说法都不对解析：[解析] 栈(Stack)是限定在一端进行插入与删除的线性表。
在栈中，允许插入与删除的这一端称为栈顶，而不允许插入与删除的另一端称为栈底。
栈是按照“先进后出”或“后进先出”的原则组织数据的，因此，栈也被称为“先进后出”表或“后进先出”表4.在关系数据库中，用来表示实体间联系的是（分数：2.00）A.属性B.二维表√C.网状结构D.树状结构解析： [解析] 在关系数据库中，实体与实体间的联系可以用关系(二维表)的形式来表示。
上海计算机二级VB试卷
上海计算机二级VB试卷以下是为大家整理的上海计算机二级Vb试卷的相关范文，本文关键词为上海,计算机,二级,试卷,20XX年,上海市,高等学校,计算，您可以从右上方搜索框检索更多相关文章，如果您觉得有用，请继续关注我们并推荐给您的好友，您可以在教育文库中查看更多范文。
20XX年上海市高等学校计算机等级考试试卷二级Visualbasic程序设计（考试时间120分钟----A卷）一、单选题(共15分，每题1分)1.是合法的变量名。
【A】A.x_yzb.123abcD.x?Y2.Rnd函数不可能的返回值是。
A.1b.0c.0.0001D.0.9999c.Integer【A】3.要将一个值传递给子过程A的m参数，并通过n参数返回一个结果，子过程定义中正确的是。
【b】A.subA(byValm!,byValn!)b.subA(byValm!,byRefn!)c.subA(byValm!,byRef( n+1)!)D.subA(byValm+1,byValn+2)4.能在窗体Form1的标题栏中显示“Visualbasic窗体”的语句是____________。
【c】=\窗体\b.Form1.Title=\窗体\c.Form1.caption=\窗体\D.Form1.Text=\窗体\5.在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示jpg图像类型的文件，则Filter属性的正确设置是。
A.picture(.jpg)||*.jpgb.picture(.jpg)(*.jpg)c.图片文件|(.jpg)D.图片(.jpg)|*.jpg【D】6.关于多重窗体程序的叙述中，错误的是____________。
【c】A.用hide方法隐藏窗体，用show方法显示窗体b.可以根据需要指定启动窗体c.若各窗体都建立了一个文本框控件（Textbox），它们的name 不能相同D.若各窗体都有菜单，则各菜单是彼此独立的7.按照结构化程序设计的要求，语句是非结构化程序设计语句。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2012年上海市高等学校计算机等级考试试卷二级 程序设计（ A 卷）（本试卷考试时间 120 分钟）一、单选题 ( 本大题 10 道小题，每小题 1.5 分，共 15 分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。
1.当运行程序时，系统自动执行启动窗体的__________事件过程。
答案：AA.LoadB.ClickC.UnLoadD.GotFocus2.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是___________。
答案：BA.ListBox1.Clear()B.ListBox1.Items.RemoveAt(4)C.ListBox1.Items.RemoveAt("计算机")D.ListBox1.Items.Add(1, "打印机")3.若要使标签控件显示时不覆盖窗体的背景图案，要对___________ 属性进行设置。
答案：AA.BackColorB.BorderStyleC.BackD.ForeColor4.下列函数中，_________函数返回值是数值型的。
答案：DA.ChrB.MidC.ReplaceD.Val5.下面的过程定义语句中_________是不合法的。
答案：AA.Sub Sub1(ByVal n%) As IntegerB.Sub Sub1(ByVal sub1%)C.Function Sub1(ByVal n%) As IntegerD.Function Sub1%(ByVal n%)6.定义结构类型并声明变量如下：Structure StudentDim No As IntegerDim Name As StringEnd StructureDim s As Student下列语句正确的是__________。
答案：DA.s={100001,"张三"}="张三"="张三"="张三"7.VB程序设计中，响应对象的外部动作称为______ , 而对象可以执行的动作或对象本身的行为则称为______。
答案：BA.方法，事件B.事件，方法C.属性，方法D.过程，事件8.在过程A中定义了静态变量y。
当调用过程A第一条语句开始，在退出过程A前，y的值为5。
当下次再进入过程A时，y的值为_____。
答案：AA.5B.0C.不定值D.出错9.用户单击水平滚动条HScrollBar1两端的箭头（“>”或“<”）按钮，Value属性增加或减少的值为2，可通过语句： HScrollBar1._________ = 2来实现。
答案：CrgeChangeB.MaximumC.SmallChangeD.Minimum10.要打开FontDialog1对话框选取字体属性来改变TextBox1的字体，下面_________语句组是正确的。
答案：DA.FontDialog1.Show()TextBox1.FontName= FontDialog1.FontB.FontDialog1.ShowDialog()TextBox1.FontName= FontDialog1.FontC.FontDialog1.Show()TextBox1.Font= FontDialog1.FontD.FontDialog1.ShowDialog()TextBox1.Font= FontDialog1.Font二、程序填空题 ( 本大题 2 道小题，每空 2.5 分，共 22.5 分）。
1. 产生10个不重复的2位随机整数。
算法思想是先产生一个随机数tmp，然后在已经存放着不重复随机数的数组a中，查找tmp是否已经存在。
如果已经存在，则丢弃，再重新产生；反之，就将tmp存放入数组a中。
【程序】Sub Form1_Click(…) Handles MyBase.ClickDim tmp As Integer, i As Integer, j As IntegerDim a(10) As IntegerDim isExist As Boolean ' 重复随机数标志Randomize()Label1.Text = "不重复的2位随机整数："i = 0Do While (i < （1）)isExist = Falsetmp = Int(Rnd() * （2）)For j = 1 To i '找重复的随机数If a(j) = tmp ThenisExist = （3）Exit ForEnd IfNext jIf Not isExist Then '找到了一个不重复的随机数i = i + 1a(i) = （4）Label1.Text = Label1.Text + Str(tmp) + " " '字符处理End IfLoopEnd Sub1）：【10】【=9】2）：【90 + 10】3）：【True】4）：【tmp】2. 求1000~9999之间的零巧数。
零巧数：一个百位数字为0的四位数，如果去掉这个零得到三位数的9倍等于原数。
例如2025的百位数是0，去掉这个0，得到225。
因为225 * 9 =2025，所以2025是零巧数。
函数Shu功能是判断是否是零巧数。
其返回值：如果是零巧数，则返回三位零巧数；否则返回-1。
列表框1显示零巧数，列表框2显示对应的三位数。
【程序】Sub Button1_Click(…) Handles Button1.ClickDim i%, n%For i = 1000 To 9999n = （1）If n > 0 Then '若是零巧数，则添加ListBox1.Items.Add(i)（2）End IfNext iEnd SubFunction Shu(ByVal n%) As IntegerDim k%, m%Shu = -1k = Mid(n, 2, 1) '获取百位数If （3）Thenm = Mid(n, 1, 1) & （4）If m * 9 = n Then Shu =（5）End IfEnd Function1）：【Shu(i)】2）：【ListBox2.Items.Add(n)】3）：【k = 0】4）：【Mid(n, 3, 2)】5）：【m】三、操作题三、程序调试题(共30分，每改正一错得3分，第1题有3处错，第2题有3处错，第3题有4处错)启动解决方案文件"C:\ks\改错A.sln"，请调试改正，并按原文件名和位置保存。
正确结果见样例"c:\样张\改错样例A.exe"。
改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记'***********。
调试改错题1,程序中有3个错误。
程序的功能是单击"调试改错题1"按钮，随机产生一个1900-2200之间的年份，在文本框显示；在标签2显示是否是闰年。
判断闰年：若该年份能够被4整除但不能被100整除，或者能够被400整除,则该年份是闰年。
程序中有2个错误，请调试改正。
Private Sub Button1_Click(…) Handles Button1.ClickDim year%Dim t1, t2, t3 As Booleanyear = Int(Rnd() *301 + 1900)'此句无错year =TextBox1.Textt1 = year Mod 4 =1t2 = year Mod 100 <> 0t3 = year Mod 400 = 0If (t1 And t2) And t3 ThenLabel2.Text = year & "年是闰年"ElseLabel2.Text = year & "年不是闰年"End IfEnd Sub调试改错题2,程序中有3个错误。
单击"调试改错题2"按钮，启动定时器，显示打字机效果的文字和光标效果（"_"）；当文字显示完整，关闭定时器，光标不显示,见样例。
程序中有3个错误，请调试改正。
Private Sub Button2_Click(…) Handles Button2.ClickTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Tick(…) Handles Timer1.TickStatic p% 'p为记录字符位置的变量Dim s$ = "欢迎参加年计算机等级考试"Label3.Text = Mid(s, p) & "_" '逐一显示p个字符If p = Len(s) ThenTimer1.Enabled ="True"Label3.Text = sElsep = p + 1End IfEnd Sub调试改错题3, 程序中有4个错误。
计算多项式e = 1+1/1！ + 1/2！+1/3！+…+1/6！的值。
Private Sub Button3_Click(…) Handles Button3.ClickDim i As IntegerDim f As IntegerDim ee As Doubleee = 1f = 0For i = 1 To 6f = f * iee = ee + fNextLabel4.Text = " e= " + eeEnd Sub四、编程题（35分）参照样例，编写一个完整的程序，要求如下：1．在C:\KS 目录下新建项目文件VBNET1.sln。
2．在Form1窗体上放置文本框1、列表框、标签和命令按钮，并建立菜单，界面如样例所示。
在Form2窗体上放置“返回”两个命令按钮。
3．在Form1窗体上单击“确定”按钮，模拟出租车计价器计算车费，将本单交易添加到列表框，清除文本框中数据，并将每次车程的里程数和交易金额按下图格式，以追加方式记录在C:\ks\A.TXT中。
计算公式：起步费：13元（3公里），3到10公里：2.4元/公里，10公里以后：3.6元/公里。
4．单击“求平均值”菜单项，在标签中显示各次车费的平均值；单击"窗体2"菜单项时，打开Form2窗体；单击"退出"菜单项时，结束程序的运行。