图1 图2
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
(2)考生文件夹下的工程文件vbsj2.vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下表所示。
要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是cmdShow、cmdHide，标题分别为\显示\、\隐藏\，如图3所示。请编写适当的事件过程使得其在运行时，单击\显示\按钮，则显示三角形的高；单击\隐藏\按钮，则隐藏三角形的高。
注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。
图3
二、简单应用题
(1)在考生目录下有一个工程文件vbsj3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件(如图4所示)。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图5所示)；若用鼠标右键单击圆的边线，则指针恢复到起始位置；若鼠标左键或右键单击其他位置，则在标签上显示\鼠标位置不对\。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)，是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。
注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
图4 图5
(2)在考生文件夹下有一个工程文件vbsj4.vbp，其窗体如图6所示。该程序用来对在上面的文本框中输入的英文字母串(称为\明文\加密，加密结果(称为\密文\显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击\加密\按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(\后面的字母认为是\，\后面的字母认为是\，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
—6—
图6
三、综合操作题
在考生文件夹下有一个工程文件vbsj5.vbp，含三个窗体，标题分别为\启动\、\注册\、\登录\，运行时显示\启动\窗体，如图7所示，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。注册时用户名不能重复，且\口令\与\验证口令\须相同，如图8所示，注册成功则在\启动\窗体的标签中显示\注册成功\，否则显示相应错误信息。登录时，如图9所示，检验用户名和口令，若正确，则在\启动\窗体的标签上显示\登录成功\，否则显示相应错误信息。标准模块中函数finduser的功能是：在users数组中搜索用户名(即参数ch)，找到则返回该用户名在users中的位置，否则返回0。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。
图7 图8 图9 注意：不得修改已经存在的程序和控件的属性；最后，程序按原文件名存盘。
第八十七套题干110
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在Form1的窗体上画一个文本框，名称为Txt1；画一个命令按钮，名称为cmdDisplay，标题为\显示\，TabIndex属性为0。请为cmdDisplay设置适当的属性，使得按Esc键时，可以调用cmdDisplay的Click事件，该事件过程的作用是在文本框中显示\考试\，程序运行结果如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。程序中不得使用任何变量。
图1
(2)在窗体上画两个文本框，名称分别为txtPwd、txtCopy。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在txtPwd中每输入一个字符，则显示一个\，同时在txtCopy中显示输入的内容(如图2所示)。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图2
二、简单应用题
(1)在名称为Form1的窗体上画一个名称为txtInput的文本框；画两个标题分别为\对齐方式\、\字体\，名称分别为fraAlign、fraFont的框架；在fraAlign框架中画三个单选按钮，标题分别为\左对齐\、\居中\、\右对齐\，名称分别为optLeft、optCenter、optRight；在fraFont框架中画两个单
选按钮，标题分别为\宋体\、\黑体\，名称分别为optSt、optHt。
要求：编写五个单选按钮的Click事件过程，使程序运行时，单击这些单选按钮，可以对文本框中的文字实现相应的操作，如图3所示。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj3.vbp，窗体文件名为vbsj3.frm。
图3
(2)在考生文件夹下有一个工程文件vbsj4.vbp。其窗体上有一个圆，相当于一个时钟，当程序运行时通过窗体的Activate事件过程在圆上产生12个刻度点，并完成其他初始化工作；另有长、短2条(红色、蓝色)直线，名称分别为linLong和linShort，表示两个指针。程序运行时，单击\开始\按钮，则每隔0.5秒linLong(长指针)顺时针转动一个刻度，linShort(短指针)顺时针转动1/12个刻度(即长指针转动一圈，短指针转动一个刻度)，单击\停止\按钮，两个指针停止转动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。
图4
提示：程序中的符号常量x0、y0是圆心到窗体左上角的距离，radius是圆的半径。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 三、综合操作题
在考生目录下有一个工程文件vbsj5.vbp，其窗体如图5所示。考生目录下有一个in5.dat文件，文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行，顺序是：姓名、7个分数、难度系数。程序运行时，单击\读入\按钮，可把in5.dat文件中的5个姓名读入数组athlete中，把5组得分(每组7个)和难度系数读入二维数组a中(每行的最后一个元素是难度系数)，并把这些数据显示在txtList文本框中；单击\选出冠军\按钮，则把冠军的姓名和成绩分别显示在文本框txtMark、txtScore中。成绩的计算方法是：去掉一个最高分和一个最低分，求剩下得分的平均分，再乘以3，再乘以难度系数；单击\保存\按钮，则把冠军姓名和成绩存入考生目录下的out5.dat文件中。
要求：去掉程序中的注释符，把程序中的？改为正确的内容(程序中getmark函数的功能是计算并返回第n个运动员的最后得分)，并编写\选出冠军\按钮的Click事件过程。
注意：不得修改已经存在的程序和控件的属性，在结束程序运行前，必须用\保存\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
图5
第八十八套题干111
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 —7—
(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为\改变颜色\的命令按钮，窗体标题为\设置窗体背景色\。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图1所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
图1
(2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmd1(标题为\设置\和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性：
Max=窗体高度 Min=0
LargeChange=50 SmallChange=10
如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图2所示。
要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2.vbp，窗体文件名为vbsj2.frm。
图2
二、简单应用题
(1)在考生文件夹下有一个工程文件vbsj3.vbp，相应的窗体文件为vbsj3.frm，在窗体上有一个标题为\计算\的命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组arr中每个元素与其下标相除所得的和，并在文本框中显示出来，程序的运行情况如图3所示。在窗体的代码窗口中，已给出了部分程序，其中计算数组arr中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。
图3
要求：请勿改动程序中的其他部分，只在Function Fun()和End Function之间填入你编写的若干语句并运行程序。在结束程序运行之前，必须至少正确运行一次程序，将结果显示在文本框中，否则无成绩。最后把修改后的文件按原文件名存盘。
说明：数组arr中共有40个元素，\数组arr中每个元素与其下标相除所得的和\，是指：arr(1)/1+arr(2)/2+ arr(3)/3+...+arr(40)/40
(2)在考生文件夹下有一个工程文件vbsj4.vbp。程序运行后，如果单击\开始\按钮，则图片自左向右移动，同时滚动条的滑块随之移动，每0.5秒移动一次。当图片完全移出窗体的右边界时，立即再从窗体的左边界开始重新移动，若单击\停止\按钮，则图片停止移动，如图4所示。在窗体文件中已经给出了全部控件，但程序不完整。
图4
要求：请去掉程序中的注释符，把程序中的？改为正
确的内容，使其实现上述功能，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合操作题
在考生目录下有一个工程文件vbsj5.vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a2+b2=c2。例如，3、4、5就是一个满足条件的整数组合(注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签Lbl1中，运行时程序界面如图5所示。
图5
注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。
第八十九套题干124
一、基本操作题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为\滚动条\的窗体上画一个名称为HScroll1的水平滚动条，刻度值范围为1~100；再画两个标签，其名称分别为Label1、Label2，标题分别为\、\。运行后的窗体如图1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
图1
(2)在名称为Form1的窗体上用形状控件画一个圆，名称为Shape1。其直径为1000(高、宽均为1000)；再画两个命令按钮，名称分别为Command1、Command2，标题分别为\红色\、\绿色\。
要求：编写两个按钮的Click事件过程，使得单击\红色\按钮，则圆的边线的颜色变为红色(为相关属性赋值：&HFF&)；单击\绿色\按钮，则圆的边线的颜色变为绿色(为相关属性赋值：&HC000&)。在程序中不得使用变量，事件过程中只能写一条语句。运行时的窗体如图2所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
图2
二、简单应用题
(1)在考生目录下有一个工程文件sjt3.vbp，窗体上有两个命令按钮，其中\读数据\按钮的名称是Command1，\统计\按钮的名称是Command2；还有一个文本框。请画三个单选按钮，其名称分别是：Option1、Option2、Option3，标题分别是\统计大写字母数\、\统计小写字母数\、\统计空格字符数\，如图3所示。 程序运行时，请按以下顺序操作： 1)单击\读数据\按钮，把考生目录下的文件in3.dat中的所有内容读到变量s中(此过程已经给出)； 2)选择一个单选按钮；
3)单击\统计\按钮，则可按选中的单选按钮的标题要求对s中的字符进行统计，结果放到文本框中(要求考生编写程序)； 4)单击窗体右上角的关闭按钮结束程序。
\读数据\按钮的Click事件过程已经给出，请为\统计\按钮编写适当的事件过程实现上述功能。 —8—
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次统计，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
图3
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序功能是：在程序运行时，显示红灯，汽车不动；单击\开始\按钮后，显示绿灯，汽车向右运动；单击右边命令按钮中的一个方向按钮后，则汽车向该按钮上箭头所示的方向移动(如图4所示)；单击\停止\按钮，则显示红灯，汽车停止运动。
在窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的？改为正确的内容。
提示：两个图片框Picture1、Picture2分别装入了红灯亮和绿灯亮的图片，并重叠在一起，要使哪种灯亮，就使相应的图片框为可见，另一图片框为不可见。汽车的移动是由计时器按一定时间间隔移动汽车所在的图片框来实现的。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
图4
三、综合操作题
若两个素数a、b之间没有其他素数，则称a、b为相邻的素数。在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件，如图5所示。从左到右的三个文本框名称分别为Text2、Text1、Text3；三个命令按钮的名称分别为Command1、Command2、Command3。本程序的功能是：单击\读入数据\按钮，则从文件in5.dat中读入一个整数x放入Text1(中间的文本框)中；单击\找素数\按钮，则找出一对相邻素数a、b，使得满足以下条件：
a≤x 注意：不得修改原有程序和控件的属性。在结束程序运行之前，必须单击\存盘\按钮，把结果存入out5.dat文件，否则无成绩。最后把修改后的文件按原文件名存盘。 图5 第九十套题干125 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上用名称为Shape1的形状控件画一个椭圆，高、宽分别为1000、2000。请设置适当的属性满足以下要求： 1)椭圆的边线为红色(把相应的属性设置为：&H000000FF&或&HFF&)； 2)窗体的标题为\椭圆\，窗体的最大化按钮不可用。 运行后的窗体如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在文件名为sjt2.vbp的工程文件中建立两个窗体,名称分别为Form1和Form2，其中Form2是启动窗体，其标题为\启动窗体\，在Form2上画一个命令按钮，名称为Command1，标题为\结束\，如图2(a)所示。 请编写适当的事件过程以满足以下要求： 1)单击Form2窗体，则显示Form1窗体(如图2(b)所示)； 2)单击Form1窗体，则Form1窗体消失； 3)单击\结束\按钮则结束程序运行。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，Form1窗体文件名为sjt21.frm，Form2窗体文件名为sjt22.frm。 (a) (b) 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp，窗体上给出了一个文本框Text1和两个命令按钮，命令按钮的标题分别是\读文件\、\计算\，名称分别是Command1、Command2。请画三个单选按钮，名称分别为Option1、Option2、Option3，标题分别为\大小写字母数之差\即大写字母数减小写字母数)、\大小写字母数之和\、\大小写字母数乘积\；窗体如图3所示。 程序运行时，请按以下顺序操作： 1)单击\读文件\按钮，可把考生目录下的文件in3.dat中的所有内容读到变量s中(此事件过程已经给出)； 2)选中一个单选按钮。 3)单击\计算\按钮，则可按选中的单选按钮的标题要求对s中的字符进行计算，结果放到文本框中(要求考生编写程序)。 4)单击窗体右上角的关闭按钮结束程序。 \读文件\按钮的Click事件过程已经给出，请为\计算\按钮编写适当的事件过程实现上述功能。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一次计算，并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。 图3 (2)在考生目录下有一个工程文件sjt4.vbp，其窗体左部的图片框的名称为Picture1，框中还有六个有香蕉图案的小图片框，它们是一个数组，名称为pic，在窗体右部有一个有香蕉图案的图片框，名称为Picture2，如图4(a)所示。 程序运行时，有六个香蕉图案的小图片框不显示。可以用鼠标拖拽的方法把右边的香蕉放到左部的图片框中(右部的香蕉不动)，如图4(b)所示。左边的图片框最多可放六个香蕉。 实现此功能的方法是：刚运行程序时，图片框数组 —9— 不显示，当拖拽一次香蕉时，就显示一个图片框数组元素，产生香蕉被放入的效果。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 (a) (b) 图4 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其中文本框Text1用于显示五个学生的六门课成绩；右边的五个文本框是一个数组，名称为Text2，用于显示每个学生的平均分；下方的六个文本框是一个数组，名称为Text3，用于显示每门课的平均分。 程序的功能是：单击\读入文件\按钮，则把考生文件夹下的文件in5.dat中的姓名和成绩分别读到数组n和a中；单击\每人平均分\按钮，则计算每个学生的平均分，并显示在Text2数组中；单击\每科平均分\按钮，则计算每门课的平均分，并显示在Text3数组中，所有平均分的值均四舍五入取整或截尾取整；单击\存结果\按钮，则把Text2、Text3中的所有平均分存入out5.dat文件中。 窗体中给出了所有控件(如图5所示)和\读入文件\、\存结果\按钮的Click事件过程，请为\每人平均分\按钮和\每科平均分\按钮编写适当的事件过程，实现上述功能。 注意：不得修改已经存在的程序；在结束程序运行之前，必须用\存结果\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 图5 第九十一套题干126 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Text1的文本框，请设置适当属性，使文本框中无初始内容，可显示多行，有垂直滚动条，且最多只能输入1000个字符。如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上利用形状控件画一个矩形，名称为Shape1，高和宽分别为1000、1700；再画两个命令按钮，名称分别是Command1、Command2，标题分别为\圆\、\椭圆\，如图2(a)所示。请编写适当的事件过程使得在运行时，单击\圆\按钮，则矩形变为一个圆；单击\椭圆\按钮，则矩形变为一个椭圆(如图2(b)所示)。要求程 序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 (a) (b) 图2 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp。窗体上有三条直线，是一个数组，数组的名称为Line1。在运行时，用鼠标单击其中一条线的任何位置，则以单击的点为起始点，画一个正弦曲线(如图3所示)；若鼠标单击在直线之外，则不画正弦曲线。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。文件中的drawsin过程的作用是画一条正弦曲线，可以直接调用。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 图3 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上有三个文本框Text1、Text2、Text3，其中Text3可显示多行，并已经输入了内容(如图4所示)，Text1用来输入要查找的内容，Text2用来输入要替换的新内容。程序运行时，在Text1、Text2中输入文字，单击\替换\按钮，则在Text3中找到Text1中的内容，并用Text2中的内容替换，若未找到，则不替换。此外窗体上还有两个单选按钮，名称依次为Option1、Option2，标题依次为\第1个\和\全部\。程序运行后，若Option1被选中，则只替换Text3中第一个匹配的字串；若Option2被选中，则替换Text3中所有匹配的字串。 在窗体文件中已经给出了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。 图4 三、综合操作题 在考生目录下有一个工程文件sjt5.vbp，其功能是：单击\读数据\按钮，则把考生目录下的文件in5.dat中的100个整数读到数组a中；单击\计算\按钮，则找出其中与所有数的平均值(平均值截尾取整)最接近的整数，放到文本框中；单击\存盘\按钮则把计算结果存盘。窗体中给出了所有控件(如图5所示)和\读数据\按钮及\存盘\按钮的Click事件过程，请为\计算\按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须用\存盘\按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 —10— 提示：与平均值最接近的数可能大于也可能小于平均值。 图5 第九十二套题干127 一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中\设置\菜单项为灰色(不可用)，如图1所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 图1 (2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为\最大值\、\最小值\，且都未选中。再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图2所示)。 请编写适当的事件过程，使得程序运行时，单击\最大值\单选按钮，则滚动条上的滚动框移到最右端；单击\最小值\单选按钮，则滚动框移到最左端。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 图2 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，已给出了所有控件和部分程序。程序运行时，请按以下顺序操作： 1)单击\读入数据\按钮，可把考生目录下的文件in3.dat中的100个整数读到数组a中； 2)从名称为List1的列表框中选中一项(如图3所示)。 3)单击\计算\按钮，则可按该选项的要求计算出结果并放到文本框中。 4)单击窗体右上角的关闭按钮结束程序。 \读入数据\按钮的Click事件过程已经给出，请为\计算\按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。