VB机试模拟试卷17（共22题）

VB机试模拟试卷17（共9套）（共22题）VB机试模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“字母转换”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(字母&空格)，在Text1中显示。单击“字母转换”按钮，则把Text1中的所有大写字母转换成小写字母。单击“保存数据”按钮，存入out.txt文件中。程序运行后如图28所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为ylc.vbp。标准答案：(1)VisualBasic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。(2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。(3)在工具箱中选择命令按钮控件在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“字母转换”和“保存数据”。(4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码：PrivateSubCommand1_Click()DimaAsStringCallFindData(a)Text1.Text=aEndSubSubFindData(aAsString)OpenApp.Path&"\"&"data.txt"ForInputAs#1DoWhileNotEOF(1)Input#1，aLoopClose#1EndSub(5)双击“字母转换”按钮弹出代码窗口，在其中添加如下代码：PrivateSubCommand2_Click()Text1.Text=UCase(Text1.Text)EndSub(6)双击“保存数据”按钮弹出代码窗口，在其中添加如下代码：PrivateSubCommand3_Click()CallSaveData(Text1.Text)EndSubSubSaveData(aAsString)OpenApp.Path&"\"&"out.txt"ForOutputAs#1Print#1,aClose#1EndSub(7)按F5键运行程序。如图28所示。(8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为ylc.frm。知识点解析：(1)该题综合考查了多个知识点，重点考查了文件的读入操作并在文本框中输出；字符串转换函数UCase()，转换字符串的大小写；对顺序文件的读入和输出的操作等。(2)该题重点考查了命令按钮的单击事件与函数过程的调用，通过调用可以很方便地实现题中要求的各种功能。VB机试模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。标准答案：(1)VisualBasic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体Form1。(2)在工具箱中选择文本框控件，在窗体建立一个文本框Text1，将其Text属性设为空。(3)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”。(4)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码；PrivateSubCommand1_Click()DimaAsStringCallFindData(a)Text1.Text=aEndSubSubFindData(aAsString)OpenApp.Path&"\"&"data.txt"ForInputAs#1DoWhileNotEOF(1)Input#1，aLoopClose#1EndSub(5)双击“计算”按钮，弹出代码窗口，在其中添加如下代码：PrivateSubCommand2_Click()Subsort(a()AsInteger)DimnAsIntegerFori=1To15Forj=1To15-iIf(a(j)＞a(j+1))Thenn=a(j)a(i)=a(i+1)a(j+1)=nEndIfNextiNextiEndSub(6)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码：PrivateSubCommand3_Click()CallSaveData(Text1.Text)EndSubSubSaveData(strAsString)OpenApp．Path&"\"&"out.txt"ForOutputAs#1Print#1,aClose#1EndSub(7)按F5键运行程序。如图29所示。(8)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为ylc.frm。知识点解析：(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。(2)该题重点考查了利用冒泡算法对数组元素进行排序。VB机试模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个名称分别为Frarnel、Frame2的框架，标题分别为“字号”、“修饰”；在Framel中画两个单选按钮，名称分别为Optionl、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为“下划线”。运行后的窗体如图1-34所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上从上到下画两个文本框，名称分别为Textl、Text2；再画一个命令按钮，名称为Commandl，标题为“选中字符数是”。程序运行时，在Textl中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图1-35所示)。请编写按钮的Click事件过程。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sil2．frm。标准答案：第l小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-18在窗体中画出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-19所列在窗体FormI中画出控件并设置它们的属性。步骤2；打开代码编辑窗口，编写以下事件过程：参考代码：PriVateSubCommandl_Click()Text2．Text=Form]．Textl．Sel．LengthEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第l小题复选框和单选按钮的Alignment属性用于设置复选框中标题的对齐方式，0-LeftJustify为控件居左标题居右(默认)，1-RightJustify为控件居右标题居左。本题只需按题目在窗体中画出控件，并设置相关属性即可。第2小题要在Text2中显示Textl中选中的字符个数，需编写语句将Textl的SelLength属性返回值赋值给Text2。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，窗体上有两个列表框，名称分别为List1、List2，在List2中已经预设了内容；还有两个命令按钮，名称分别为C1、C2，标题分别为“添加”、“清除”，如图1-78所示。程序的功能是在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；若选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。既不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，请在Forml窗体上建立一个名称为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10!”、“11!”、“12!”，Index属性分别为0、1、2：再画一个名称为Cl的命令按钮，标题为“计算”；画一个名称为Textl的文本框，如图1-79所示。程序的功能是在选定一个单选按钮并单击“计算”按钮后，可以计算出相应的阶乘值，在Textl中显示该阶乘值。请画出上述控件并编写程序。注意：考生不得修改工程中已经存在的内容，在结束程序运行之前，必须进行一次计算。必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开本题对应工程文件sjt3．vbp。步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：While(k步骤2：在代码编辑窗口，编写“计算”按钮的单击事件过程。参考代码：PrivateSubC1_Click()DimkAsIntegerk=0WhileNotOpl(k)．ValueAndk<3k=k+1WendIfk<3ThenTextl．Text=calculat(Val(Left$(opl(k)．Caption，2)))EndIfEndSubFunctioncalculat(nAsInteger)DimkAsInteger，tAsLongt=1Fork=2Tont=t*kNextkcalculat=tEndFunction步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先选中一个选项，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。知识点解析：第1小题列表框的Text属性用于返回列表框中选择的项目的内容，返回值总与列表框的List(Ifistlndex)属性的。返回值相同。实现本题两个列表框之间的移出和移回功能，其实就是利用列表框的Addltem方法和Removeltem方法添加或删除列表框中的项目。由题中源代码可知，当单击“添加”按钮时，利用While循环语句逐一取出列表框List2中的各项，并用If语句判断是否有项目被选中，如果有被选中的项，就将其作为一个项目添加到列表框Listl中，同时将此项从列表框List2中删除。列表框的Listlndex属性可返回当前选择的项目的索引号，因此删除选中项目的语句为；List2．RemoveltemList2．Listlndex。而循环的条件应是：k三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个文本框，名称分别为Textl、Text2：还有三个命令按钮，名称分别为C1、C2、C3，标题分别为“输入”、“计算”、“存盘”(如图1-210所示)。并有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“输入”按钮，就把文件in5．txt中的整数放入Textl中；单击“计算”按钮，则找出大于Textl中的整数的第一个素数，并显示在Text2中；单击“存盘”按钮，则把Text2中的计算结果存入out5．txt文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过单击“存盘”按钮存入out5．txt文件中。标准答案：【操作步骤】步骤l：打开考生文件中的本题工程文件sit5．vbp，在代码编辑窗口，分别编写命令按钮的单击事件。参考代码：PrivateSubCl_Click()Open"in5．txt"ForInputAs#1Input#1，a％Close#1Textl．Text=a％EndSubPrivateSubC2_Click()a％=Text1．TextDOa％=a％+1LoopUntilisprime(a％)Text2．Text=a％EndS11bPrivateSubC3_Click()Open"out5．txt"ForOutputAs#1Print#1，Text2．TextClose#1EndSub步骤2：按要求将文件保存至考生文件夹中。知识点解析：程序设计思路：在“输入”按钮的单击事件过程中，用Open语句以Input方式打开数据文件in5．txt，并用Input()函数读出所有字符后显示在文本框中；在“计算”按钮的单击事件过程中，调用过程isprime来求解大于Textl中整数的第一个素数。在“存盘”按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5．txt，并通过For循环用Print#方法逐一将数组中的元素存入该文件。VB机试模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框，名称为Textl，字体为“黑体”，文本框中的初始内容为“程序设计”；再画一个命令按钮，名称为cl，标题为“改变字体”(如图l-221所示)。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为“宋体”。程序中不得使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画一个图片框，名称为P1，高为1800，宽为1600，并放入文件名为picl．bmp的图片(如图1-222所示)。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。程序中不得使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-129在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PriVateSubC1_Click()Me．Textl．Font．Name="宋体"EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-130在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写窗体的双击事件过程。参考代码：PriVateSubForm_DblClick()P1．PiCture=LoaoPlcture("")EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题本题需在命令按钮的单击事件过程中，通过修改文本框的FontName属性值为“宋体”来改变文本框中文本的字体。第2小题为图片框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为：图片框．Picture=LoadPieture(”图像文件路径”)，App．Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。本题需在窗体的的DblClick事件过程中，用LoadPicture()函数为图片框清除图片。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出数组air中每个元素与其下标相除所得的和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算数组art中每个元素与其下标相除所得的和的操作在通用过程Fun中实现，请编写该过程的代码。要求：请勿改动程序中的其他部分，只在FunctionFun()和EndFunction之间填入编写的若干语句并运行程序。最后把修改后的文件按原文件名存盘。说明：数组flit中共有40个元素，所谓“数组air中每个元素与其下标相除所得的和”，指的是：arr(1)／1+arr(2)／2+arr(3)／3+…+arr(40)／40。(2)在考生文件夹下有一个工程文件sjt4．vbp，相应的窗体文件为sjt4．frm。在窗体上有两个命令按钮，其名称分别为Commandl、Command2，一个标签控件，其名称为Labell，一个计时器控件，其名称为Timerl，如图1-107(a)所示。程序运行后，在命令按钮Commandl中显示“开始”，在命令按钮Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interval属性设置为50，Enabled属性设置为True。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图1-107(b)所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：第l小题【操作步骤】步骤l：打开考生文件夹下的本题工程文件sjt3．vbp。步骤2：进入代码编辑窗口，在FunctionFun()和EndFunction之间输入以下代码：参考代码：FunctionFun(a()AsSingle)AsSingleSum=OFori=1ToUBound(a)Sum=Sum+a(i)／iNextiFun=SumEndFunction步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤l:打开考生文件夹下的本题工程文件sjt4．vbp。步骤2：进入代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timerl．Enabled=TrueCommandl．Enabled=FalseTimer1．Enabled=FalseLabel1．Left=Label1．Left+20步骤3：按要求将文件保存至考生文件夹中。知识点解析：第l小题由本题所提供原程序可知，要求编写一个求数组中各元素与其下标相除所得的和，并在文本框中显示出来的函数。设计思路：利用For循环语句，将数组中各元素除以其下标(表达式为：a(i)／i)的值累加入一个变量(如sum)。循环变量的初值和终值可分别通过函数Lbound(a)和Ubound(a)获得。第2小题本题原程序利用计时器的Timer事件来控制标签的移动，因此单击“开始”按钮启动计时器，而单击“停止”按钮就是要停止计时器。在计时器的Timer事件过程中。通过每次使标签的Left属性值增量20实现移动，当标签完全移出窗体的右边界(即Label．Left>Me．Width)时，则重新从窗体左边界开始移动，即Label．Left=0。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生的文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．劬。在窗体上有两个命令按钮，其名称分别为Command1和Commaad2，标题分别为“写文件”和“读文件”，如图1-85(a)所示。其中“写文件”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件t5．txt中：而“读文件”命令按钮事件过程用来读出文件t5．txt中的每个记录，并在窗体上显示出来。通信录中的每个记录由三个字段组成，结构如下：姓名(Name)电话(Tel)邮政编码(Pos)LiuMingliang(010)62781234100082各字段的类型和长度为：姓名(Name):字符串15电话(Tel)：字符串15邮政编码(Pos)：长整型(Long)程序运行后。如果单击“写文件”命令按钮，则可以随机存取方式打开文件t5．txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入；如果单击“读文件”命令按钮，则可以随机存取方式打开文件t5．txt，读出文件中的全部记录，并在窗体上显示出来，如图1-85(b)所示。该程序不完整，请把它补充完整。要求如下：①去掉程序中的注释符，把程序中的?改为正确的内容。使其能正确运行，但不能修改程序中的其他部分。②文件t5．txt中已有三个记录，如图1-85(b)所示，请运行程序，单击“写文件”命令按钮，向文件t5．txt中添加以下两个记录(全部采用西文方式)：LiDaqing(027)87348765430065ChenQingshan(022)26874321300120③运行程序，单击“读文件”命令按钮，在窗体上显示全部记录(共5个)。④用原来的文件名保存工程文件和窗体文件。标准答案：【操作步骤】步骤1：打开考生文件中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：RecNum=RecNum+1Put#1，RecNum，PersLoopWhileUCase(asp)<>"N"RecNum=LOF(1)／Len(Pers)Get：#l，i，Pers步骤2：按要求将文件保存至考生文件夹中。步骤3：按键键运行程序，先单击“写文件”按钮，然后在弹出的输入框中依次按照题目要求输入两条记录，再单击“读文件”按钮在窗体上显示结果。知识点解析：用Open语句打开随机文件，其语法格式为：OpenFileNameforRandomas#FileNumberLen=记录长度。记录长度是一条记录实际所占字节数，可用Len()函数获取；Get#语句用于从文件中读出某记录号的记录，格式为：Get撑FileNumber,[RecordNuber],Var;Put#语句用于把记录按指定记录号写入文件，格式为：Put#FileNumber,[RecordNuber],Var。在“写文件”命令按钮的Click事件过程中，用Open语句打开考生文件夹下的文件t5．tXt，变量RccNum代表记录个数，在Do…Loop循环中(以输入的不是“N”作为循环条件)，用Put语句将记录变量Pcrs写入随机文件中相应记录号的记录，然后令记录号加1以便下次继续写入。在“读文件”命令按钮的Click事件过程中，用Open语句打开文件t5．txt，同样使用变量RccNum代表记录个数，然后再一个For循环中依次使用Get语句取出每一个记录并且显示。VB机试模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个文本框，其名称为T1，宽度和高度分别为1400、400;再画两个命令按钮，其名称分别为Cl和C2，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击Cl命令按钮，则在文本框中显示“等级考试”，如图l-18l(a)所示；如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3倍，如图l-18l(b)所示。注意；要求程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画一个命令按钮，其名称为C1，标题为“转换”；然后再画两个文本框，其名称分别为Textl和Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在Textl中输入一行英文字符串，如果单击转换按钮，则Textl文本框中的字母都变为小写，而Text2中的字母都变为大写。例如，在Textl中输入visualbasicprogramming，则单击转换按钮后，结果如图1-182所示。注意：不得使用任何变量。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-102在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码：PrivateSubC1_Click()T1="等级考试"EndSubPrivateSubC2_Click()T1．Height=2*Me．T1．HeightT1．Width=2*T1．WidthT1．FontSize=3*Forml．T1．FontSizeEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-103在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：PrivateSubC1_Click()Textl．Text=LCase(Textl．Text)Text2．Text=UCase(Textl．Text)EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题①文本框(Text)通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本。②控件的Height和Width属性用于设置控件在屏幕上的大小(即高和宽)。③字体大小通过FontSize属性设置，一般格式为：FontSize[=点数]。要在单击“扩大”按钮时，使文本框在高、宽方向上各增加一倍，只需在“扩大”按钮的Click事件中编写设置文本框的Height和Width属性值为原来2倍的语句。要使文本框中的字体大小扩大到原来的3倍，需编写设置文本框的FontSize属性值为原来3倍的语句。第2小题①UCasc()函数用于将字符串中小写字母转换为大写字母，原本大写或非字母字符保持不变。②LCase()函数用于将字符串中大写字母转换为小写字母，原本小写或非字母字符保持不变。本题原程序是在命令按钮的单击事件过程中，将文本框Textl中的字符用UCase函数转换为大写并显示在Toxt2中，同时用LCase函数转换为小写并显示在Textl中。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，含有名称分别为Forml、Form2的两个窗体。其中Forml上有两个控件(图像框和计时器)和一个菜单项“操作”，含有三个菜单命令，如图1-163(a)所示。Form2上有一个名称为Commandl、标题为“返回”的命令按钮，如图1-163(b)所示。要求当单击“窗体2”菜单命令时，隐藏Forml，显示Form2。单击“动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新移动。单击“退出”菜单命令时，结束程序运行。请去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。其窗体上已有部分控件，请按照如图1-164所示添加框架和单选按钮。要求：画两个框架，名称分别为Framel、Frame2，在Framel中添加一个名为Optionl的单选按钮数组，含两个单选钮，标题分别为“古典音乐”、“流行音乐”，在名称为Frame2中添加两个单选按钮，名称分别为Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选按钮的标题显示在标签Label2中，如图1-164所示。如果“音乐”或“体育”未被选中，相应的单选按钮不可选。要求：按照题目要求添加控件，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3．vbp，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：SelectCaseIndexTimerl．Enabled=TrueIfPicturel．Left+Picturel．Width>=WidthThenPicturel．Left=0步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt4．vbp，在窗体上画两个框架、一个含两个元素的单选按钮数组，两个单选按钮，如表2-93设置它们的属性。步骤2：打开代码编辑窗口，修改“选择”按钮的Click事件过程，代码如下。参考代码：IfOptionl(0)．Value=TrueThenIfOption2=TrueThenLabel2．Caption=s步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题本题原程序在菜单项数组的单击事件过程中，通过SelectCase语句对按钮数组的索引号(即Index参数，第一个?处应为Index)进行检查，若索引号为1则显示Form2，隐藏Forml；若索引号为2则令计时器开始启动，第两个?处应为True；若索引号为3则结束程序。计时器启动时，每次Timer事件都是使小汽车向右移动，一旦超出了窗体的右边界(判断条件为Picturel．Left+Pictttrel．Width>=Width)，则令图片框的Left属性为0，以便移到窗体左侧。第2小题当转换其他的数值类型为Boolean值时，0会转换成False，而其他的值则会转换成True。当转换Boolean值为其他的数据类型时，False会转换成0，而True会转换成．1。本题在“确定”按钮的Click事件过程中，先检查是否选中“音乐”复选框，若选中则继续检查是否选中“古典音乐”单选按钮，若选中则字符串变量s的值就为“古典音乐”，否则S的值就为“现代音乐”。接着检查是否选中“体育”复选框，若选中则继续检查是否选中“乒乓球”单选按钮，若选中则字符串变量S的值后连接“乒乓球”，否则s的值后连接“羽毛球”。最后在标签中显示S的值。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生目录下有一个工程文件sjt5．vbp，用来计算勾股定．理整数组合的个数，勾股定理中三个数的关系是：a2+b22=c2，例如3、4、5就是一个满足条件的整数组合(注意：a、b、c分别为4、3、5与分别为3、4、5被视为同一个组合，不应该重复计算)。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签Labd1中。注意：不得修改原有程序控件的属性，在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩，最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤l：打开考生文件中的本题工程文件sjt5．vibp，在代码编辑窗口编写“计算”按钮的单击事件过程。参考代码：n=0Fori=1To60Forj=1To60Fork=1To60x=k*kIf(x=i*i+j*j)Andj>iThenPrinti；j；kn=n+1EndIfNextkNextjNextiLabel1．Caption=n步骤2：按要求将文件保存至考生文件夹中。知识点解析：本题可以使用一个三重循环来判断满足勾股定理的组合，由外至内依次使用循环变量i、j、k，其变化范围均为l~60。在内循环中。首先判断k*k是否等于i．i+j．j，若等于则证明满足勾股定理；由于满足勾股定理的两个数都是成对出现，为了不重复计算，还需要加上限定比如j>i。当找到满足条件的一对i、j、k的时候，输出这三个数，并且令计数器加l。VB机试模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、有一个工程文件ylc5.vbp，窗体上有一个单选按钮数组，含3个没有标题的单选按钮。为单选按钮添加标题“语文”、“数学”、“英语”；再添加一个标题为“显示”的命令按钮，运行后将根据单选按钮的选中情况，在窗体上显示“我喜欢语文”、“我喜欢数学”、“我喜欢英语”。要求单选按钮的初始值为英语。运行后如图21所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。标准答案：1．操作步骤(1)在VisualBasic集成环境中选择“文件”→“打开工程”命令，在对话框中选择ylc5.vbp工程文件，单击“确定”按钮打开。(2)在工具箱中选择OptionButton控件，分别在窗口中创建3个，都命名为Option1。VisualBasic提示是否建立单选控件数组，选择确定。在属性窗口中其名称(Name)分别为Option(0)、Option(1)、Option(2)，标题(Caption)分别为“语文”、“数学”和“英语”。(3)根据题目要求，在属性窗口设置标题为英语的控件Option(2)的Value属性为True，表示其初始值是英语。(4)选择命令按钮，设置名称(Name)为Command1，标题(Caption)为“显示”。1．行为编码选择Command1对象和Click事件，命令按钮的事件过程代码如下：PrivateSubCommand1_Click()’清除窗体上所有的图形和文本Form1.ClsFori=0ToOption1.Count-1IfOptionl.Item(i).ValueThen’使用控件的Caption属性显示名称，进行字符串连接后显示在窗体上Form1.Print("我喜欢"&Option1.Item(i).Caption)EndIfNextiEndSub3．存盘保存执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。知识点解析：(1)本题考查单选按钮控件组的处理。通过循环判断每次选择的单选按钮，在窗体上显示相应的标题字符的组合。(2)注意OptionButton控件数组的建立、For循环语句、Form对象的Print方法。(3)在For循环中检测当前单选按钮数组的值，连接字符串，通过Print方法打印在窗体上。二、简单应用题(本题共1题，每题1.0分，共1分。)2、有一个工程文件ylc6.vbp。请在窗体上画一个文本框，其名称为Text1；画一个命令按钮，名称为Command1，标题为“确定”。再画5个单选按钮，名称分别为option1、Option2、Option3、Option4和Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”，如图26所示。编写适当事件过程。选中一个单选按钮，并单击“确定”按钮，按照表3-1在文本框中显示相应的内容。提供Command1对象的Click事件源代码如下，请补充完整。PrivateSubCommand1_Click()If?ThenText1.Text="需要1小时"EndIfIf?ThenText1.Text="需要10小时"EndIfIf?ThenText1.Text="需要20小时"EndIfIf?ThenText1.Text="需要100小时"EndIfIf?ThenText1.Text="需要500小时"EndIfEndSub注意：不得修改已经给出的程序。在结束程序运行之前，必须选择进行上面的一种操作．退出程序时必须通过单击窗体右上角的关闭按钮．存盘时必须存放在考生丈件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm．标准答案：1．操作步骤(1)在VisualBasic集成环境选择“文件”→“打开工程”命令，在对话框中选择ylc6.vbp工程文件，单击“确定”按钮打开。(2)在工具箱中选择TextBox控件，在窗体中创建命名为Text1。在属性窗口分别设置属性为空。(3)从工具箱中选择选项控件，在窗体中拖动创建，在属性窗口分别命名为Option1、Option2、Option3、Option4和Option5，标题分别为“飞机”、“火车”、“汽车”、“自行车”和“步行”。(4)通过工具箱创建命令按钮，命名为Command1，标题为“确定”。2．行为编码补充后Command1对象的Click事件的完整代码如下：PrivateSubCommand1_Click()IfOption1.ValueThenText1.Text="需要1小时"EndIfIfOption2.ValueThenText1.Text="需要10小时"EndIfIfOption3.ValueThenText1.Text="需要20小时"EndIfIfOption4.ValueThenText1.Text="需要100小时"EndIfIfOption5.ValueThenText1.Text="需要500小时"EndIfEndSub3．存盘保存执行“文件”→“保存工程”命令，工程文件名为yle6.vbp，窗体文件名为ylc6.frm。知识点解析：(1)这是一道简单的应用题，主要考查OptionButton控件的应用能力。在编程中使用判定的控制流程，显示出不同的结果信息。(2)上面的控制流程使用3个If，．．Then．．．EndIf，分别判断3个单选按钮是否被选中。判断后在文本框中显示相应的信息。VB机试模拟试卷第7套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上，绘制一个文本框和两个命令按钮。文本框的名称为Textl，内容初始时为空。两个命令按钮的名称分别为Commandl、Command2、标题分别为“显示”和“隐藏”。编写适当的事件过程，当程序运行时，单击Commandl命令按钮，显示文本框，文本框中显示“模拟考试”；单击Command2命令按钮时，文本框消失。程序中不得使用任何变量。程序运行时的窗体界面如图29—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。(2)在名称为Forml的窗体上绘制一个命令按钮，其名称为Commandl，标题为“向左移动”。编写适当的事件过程，使程序运行时，如果单击命令按钮，则按钮向左移动500单位。程序中不得使用任何变量。程序运行时的窗体界面如图29—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)根据题意，新建“标准EXE”工程，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl，Text属性为“模拟考试”，命令按钮的名称为Commandl和Command2，Caption属性分别为“显示”和“隐藏”。双击Command，进入代码窗口，编写如下代码：PrivateSubCommandlClick()Textl．Visible=True’Textl可见EndSubPrivateSubCommand2Click()Textl．Visible=False’Textl不可见EndSub单击按钮运行程序，并按要求保存。(2)根据题意，新建“标准EXE”工程，将一个Command添加到窗体中，其名称为Commandl、Caption属性为“向左移动”。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandlClick()Commandl．Left=Commandl．Left-500EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图16-3所示。在名称为Form1的窗体上有1个Labe1控件，四个Text控件及七个命令按钮，功能为：开始启动工程时，界面上除“开始录入”及“退出”按钮之外，其他按钮均不可用(灰色显示)；单击“开始录入”按钮之后，利用InputBox让用户连续且必须录入10个数。若录入为非数字符号，则给出警告“输入数据无效，请重新输入数值数据，请输入第n个数”；录入完毕后，“开始录入”变灰，其他变为可用状态；按相应的按钮可分别求出所录入数据的升序、降序排列及最大数和最小数，并在右侧对应的文本框中显示(注意用A(10)存放最大数，A(1)存放最小数)；单击“清除”按钮将所有文本框清空。(2)在考生文件夹下有工程文件sit4.vbp及窗体文件sjt4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图16-4所示。在名称为Form1，标题为“求和程序”的窗体上有3个Labe1控件，2个Text控件和3个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。刚启动工程时，“显示结果”和“清除”按钮均为灰色；可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时“显示结果”变为可用。当输入为非数值时，累加结果为0；单击“显示结果”可以在Text2中显示累加和，且该框内的文字不可修改，同时“显示结果”变灰，“清除”变为可用；单击“清除”，输入框和显示框均显示“0”单击“关闭”按钮结束程序的运行。标准答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。用数组a(10)来接收InputBox输入的10数，InputBox的格式为：InputBox(提示[，标题][，默认][，X坐标位置][，Y坐标位置])；控件是否可用可利用其Enabled属性设置，当该值为True时可用，为False时不可用(灰色)；判断是否是数字可用IsNumeric()，如果是数字返回True，否则返回False；本程序中用到的排序方法是将某一个元素做为标杆，其后的每一个元素与其比较，若小于标杆则两者交换，依此类推，题中要求排完序后a(1)至a(10)依次存放大数，在文本框中显示升序和降序的时候只要两者反序显示即可，即升序可依次显示a(1)到a(10)，降序可依次显示a(10)到a(1)。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表16-3。第二步：编写程序代码。程序提供的代码：OptionExplicitDima(10)AsVariantDimiAsInteger,jAsIntegerDimmAsSinglePrivateSubCommand1_Click()’Text2.Text=Command1.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand2_Click()’Text3.Text=?Command2.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand3_Click()Fori=1To10’Text1.Text=Text1.Text&?&","NextiCommand3.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand4_Click()Fori=10To1Step-1’Text4.Text=Text4.Text&?&","NextiCommand4.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6Click()Label1.Enabled=FalseFori=1To10a(i)=InputBox("请输入第"&i&"个数,请务必输入数值数据!","输入")DoWhileIsNumeric(a(i))=Falsea(i)=InputBox("输入数据无效,请重新输入数值数据!!!"&"请输入第"&_i&"个数","输入")LoopNextiFori=1To9Forj=i+1To10’IfVal(a(j))?Val(a(i))Thenm=a(j)a(j)=a(i)a(i)=mEndIfNextjNextiCommand6.Enabled=FalseCommandl.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand7.Enabled=FalseEndSubPrivateSubCommand7_Click()’Text1.Text=?’Text2.Text=?’Text3.Text=?’Text4.Text=?Label1.Enabled=TrueCommand6.Enabled=TrueCommand4.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=FalseCommandl.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand7.Enabled=FalseEndSub参考代码：OptionExplicitDima(10)AsVariantDimiAsInteger,jAsIntegerDimmAsSinglePrivateSubCommand1_Click()Text2.Text=a(10)Command1.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand2_Click()Text3.Text=a(1)Command2.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand3_Click()Fori=1To10Text1.Text=Text1.Text&a(i)&","NextiCommand3.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand4_Click()Fori=10To1Step-1Text4.Text=Text4.Text&a(i)&","NextiCommand4.Enabled=FalseCommand7.Enabled=TrueEndSubPrivateSubCommand5_Click()EndEndSubPrivateSubCommand6_Click()Label1.Enabled=FalseFori=1To10a(i)=InputBox("请输入第"&i&"个数,请务必输入数值数据!","输入")DoWhileIsNumeric(a(i))=Falsea(i)=InputBox("输入数据无效,请重新输入数值数据!!!"&"请输入第"&i&_"个数","输入")LoopNextiFori=1To9Forj=i+1To10IfVal(a(j))＜Val(a(i))Thenm=a(j)a(j)=a(i)a(i)=mEndIfNextjNextiCommand6.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand7.Enabled=FalseEndSubPrivateSubCommand7_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Label1.Enabled=TrueCommand6.Enabled=TrueCommand4.Enabled=FalseCommand3.Enabled=FalseCommand2.Enabled=FalseCommand1.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand7.Enabled=FalseEndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)控件是否可用可利用其Enabled属性设置，当该值为True时可用，为False时不可用(灰色)；计算从1到n的数字的和可从1开始向后计算，每一步计算的结果都保留然后再用上一步计算的值和后面的数字计算；清除可使文本框的内容置空来实现(文本框.Text="")；显示结果框内的文字不可修改，是通过Locked属性变为True时锁定的。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表16-4。第二步：编写程序代码：程序提供的代码：OptionExplicitPrivateSubCommandlClick()DimiAsDoubleDimsumAsDoubleDimnAsDoublesum=0n=Val(Text1.Text)Fori=1Ton’sum=?Next1’Text2.Text=?Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2Click()’Text1.Text=?’Text2.Text=?Command1.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3Click()EndEndSubPrivateSubFormLoad()Command1.Enabled=FalseCommand2.Enabled=FalseEndSubPrivateSubText1_Change()Command1.Enabled=TrueEndSubOptionExplicitPrivateSubCommand1Click()DimiAsDoubleDimsumAsDoubleDimnAsDoublesum=0n=Val(Text1.Text)Fori=1Tonsum=sum+iNextiText2.Text=sumCommand1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()Text1.Text=0Text2.Text=0Command1.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Command1.Enabled=FalseCommand2.Enabled=FalseEndSubPrivateSubText1_Change()Command1.Enabled=TrueEndSub第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件Sj5．vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有3个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读取数据”、“降序排列”和“保存”。“读取数据”按钮的功能是从考生文件夹下的in5．dat文件中读取40个整数到数组中，并在Textl中显示出来；“降序排列”按钮的功能是对这40个数降序排序，并显示在Textl中；“保存”按钮的功能是把排好序的40个数存到考生文件夹下的out5．dat文件中。程序运行界面如图38—5所示。注意：在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。标准答案：本题在排序中，使用双重循环，外循环每循环一次，确定内循环的次数，内循环就是把本次循环中最小的数，放在数组的最后面，这样就可以实现对40个数的降序排序。原代码补充后如下：Dima(40)AsLongDimstr(40)AsStringDimtexAsStringDimiAsIntegerPrivateSubCommandlClick()’读取数据tex=""Open"App．Path&＼in5．dat"ForInputAs#1Fori=1To40Input#1，a(i)’逐个读取40个数据str(i)=a(i)tex：tex+str(i)+""’将数组放到一个字符串中NextiClose#1Textl．Text=tex’在Textl中显示字符串EndSubPrivateSubCommand3Click()’保存数据Open"App．Path&＼out5．dat"ForOutputAs#1Print#1，Textl．TextClose#1EndSub并在Command2的Click事件中编写以下代码：PrivateSubCommand2Click()Fori=1To40’降序排列temp=a(i)Forj=1ToiIfa(j)按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第8套一、基本操作题(本题共1题，每题1.0分，共1分。)1、1.在窗体上画一个文本框(名称为Text1)和一个命令按钮(名称为C1，标题为“显示”)，请编写C1的Click事件过程，使得在程序运行时，按Esc键就调用这个事件过程且在文本框中显示“等级考试”，程序运行结果如图1—1所示。在程序中不能使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。2．在窗体上画两个名称分别为C1、C2标题分别为“第一个按钮”、“第二个按钮”的命令按钮，其大小相同，然后编写适当的事件过程。程序运行后，如果单击“第一个按钮”，则把“第二个按钮”移到“第一个按钮”上，使两个按钮重合，如图1—2和1—3所示。存盘时，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。标准答案：①建立界面和设置控件属性。程序用到的控件及其属性如下表1所示。②编写程序代码。参考代码：PrivateSubC1_Click()Text1.Text＝"等级考试"EndSub③按题目要求存盘。2．①启动VisualBasic，在窗体上画两个命令按钮。②按F4键激活属性窗口，在属性窗口中设置两个命令按钮的属性，见表2。③编写第1个命令按钮的Click事件过程；PrivateSubC1_Click()C2.Top＝C1.TopC2.Left＝C1.LeftEndSub知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、1.在考生文件夹下有一个工程文件sjt3.vbp，它的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且显示“文本框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数绝对值相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“文本框中的数值太小”。如图2—1所示。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的程序以原来的文件名存盘。2．在考生文件夹下有一个工程文件sjt4.vhp，相应的窗体文件为sjt4.frm。在窗体上有2个命令按钮、1个标签和1个计时器，其名称分别为Command1、Command2、Label1和Timer1，如图2—2所示。程序运行后，在命令按钮Command1中显示“开始”，在命令按钮Command2中显示“停止”，在标签中用字体大小为16的粗体显示“热烈欢迎”(标签的AutoSize属性为True)，同时把计时器的Interva1属性设置为50，Enabled属性设置为False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动，每个时间间隔移动20，如图2—3所示，移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。试题所提供的程序如下：PrivateSubFormLoad()Command1.Caption="开始"Command2.Caption="停止"Timer1.Interval=50Timer1.Enabled=FalseLabel1.Caption="热烈欢迎"Label1.AutoSize=TrueLabel1.FontSize=16Label1.FontBold=TrueEndSubPrivateSubCommand1_Click()Command1.Caption="继续"’Timer1.Enabled=?Command1.Enabled=FalseCommand2.Enabled=TrueEndSubPrivateSubCommand2_Click()’Timer1.Enabled=?Command2.Enabled=FalseCommand1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.Left＜WidthThen’Label1.Left=?Else’Label1.Left=?EndIfEndS