VB机试模拟试卷11（共27题）

VB机试模拟试卷11（共9套）（共27题）VB机试模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、在名为Form1的窗体上绘制一个垂直滚动条(名称为VS1)和一个水平滚动条(名称为HS1)。在属性窗口中对两个滚动条设置如下属性：Min2000Max8000LargeChange500SmallChange50编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小窗体。运行后的窗体如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise22.vbp，窗体文件名为exeeise22.frm。标准答案：知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、在考生文件夹中有工程文件execise99.vbp和窗体文件execise99.frm。在名为Fom1的窗体上有一个名为Text1的文本框，有两个命令按钮(名称分别是Cmd1和Cmd2，标题分别是Read和Save)。要求程序运行后，单击Read按钮，将文本文件in99．txt中的所有数字读到数组arr中，并在文本框内显示出来。随后Read按钮变为无效；然后单击Save按钮，求出数组alt中的各元素的立方并赋值回相应的元素，例如，arr(2)=2,则令art(2)=arr(2)*arr(2)*arr(2)=8。把计算后的数组的值全部写入考生文件夹中的文本文件out99.txt中，并在文本框中显示出来，最后Save按钮也变为无效。本程序不完整，请补充完整，并能正确运行。要求；去掉程序中的注释符“’”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。标准答案：知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹中有一个工程文件execise32.vbp(相应窗体文件为execise32.frm)。窗体Form1中已经给出了所有控件。其功能是：单击“读入”命令按钮，则把考生目录下的in32.txt文件中的所有英文字符放入Text1(可多行显示)：如果单击“统计”命令按钮，则统计文本框中字母A、B、c、D各自出现的次数，并把结果在文本框中显示出来，如下图所示；如果单击“保存”命令按钮，则把统计结果存入考生文件夹下的out32.txt文件中。文件中已给出了“读入”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。要求：(1)统计每个字母出现的次数时，不区分大小写。(2)统计后的每个字母的次数必须存入考生文件夹下的out32.txt文件中，否则没有成绩。在文件中的格式为：字母A出现的次数为xx字母B出现的次数为xx字母C出现的次数为xx字母D出现的次数为xx注意：不能修改已经给出的程序部分：在结束程序运行之前，必须单击“保存”按钮，把结果存入out32.txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：知识点解析：暂无解析VB机试模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“框架”的窗体上画一个名称为Framel，且没有标题的框架。框架内含有两个单选按钮，名称分别为Optl和opt2、标题分别为“字体”、“大小”，如图1-216所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)考生文件夹下的工程文件sjt2．vbp中有一个由直线Linel、Line2和Line3组成的三角形，直线Linel、Line2和Line3的坐标值见表1-10：要求画一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。再画两个命令按钮，名称分别是Cmdl、Cmd2，标题分别为“显示高”、“隐藏高”，如图1-217所示。请编写适当的事件过程，使得在运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。注意：要求程序中不得使用变量，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-126在窗体上绘制控件并设置属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤l：打开本题工程文件sjt2．vbp，在窗体中画一个直线控件和两个命令按钮，并设置其相关属性如表2-127所示。步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PrivateSubCmdl_Click()Line4．ViSible=TrueEndSubPrivateSubCmd2_Click()Line4．Visible=FalseEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题本题只需按题目要求画出框架和单选按钮，并分别设置其属性。第2小题Visible(可见)属性用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见。本题的考核要求有两项。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，运行情况如图1-23所示。程序的功能是计算表达式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Textl、Text2中。单击名称为Commandl、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Labell的标签中。在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容。要求：程序调试通过后，必须按照如图1-23所示输入N=5，x=12，然后计算z的值，并将计算结果显示在标签Labell中，否则没有成绩。注意；不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有名称为Labell的标签和名称为Timerl的计时器控件。该程序的功能是在名称为Labell的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图1-24所示)，且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第l小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：tmp=1tmp=temp+ixn=tmpz=z+xn(t)步骤2：按键键运行程序，在第一个文本框中输入5，第两个文本框中输入12，然后单击“计算”按钮。步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：arr=Array("第一项"，"第二项"，"第三项"，"第四项")StaticiAsIntegerLabell．Caption=arr(i)i=0步骤2：按要求将文件保存至考生文件夹中。知识点解析：第l小题本题原程序中，自定义函数xn的功能是进行m！阶乘运算，它通过For循环连续m次将循环变量i的值乘以累积变量tmp(第一个?处map初值应为1)来实现。故自定义函数xn中第两个?处应改为：tmp*i，作为函数返回值第三个?处应改为：)xn。在“计算”按钮的单击事件过程中。根据程序所要计算表达式的特点，原程序利用一个For循环依次计算表达式中各项的值((x-i)1)，并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t)来实现的，其中t=x-i。故Commandl_Click事件过程中第一个?处应改为：xn(t)。计算结果显示在标签中。第2小题要实现本题中的功能，在窗体的Load事件过程中，首先使用Array函数建立一个新数组，然后设置计时器的相关属性并启用计时器；在计时器的Timer事件中，由于需要计算Timer事件的执行次数才能判断出应该显示何种文字，因此计数变量i应该声明为Static类型的变量，然后把数组的第i项显示在标签中，接下来令i+l，一旦i超过了3就将其重新置O以便实现循环显示。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹中有一个工程文件sjt5．vbp。窗体外观如图1-58所示。运行程序，单击“读数据”按钮，文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时，对读入的数据从小到大排序，并将排序结果显示在窗体的Label4控件中。要求：工程文件中已给出部分程序，“读数据”命令按钮的事件过程不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。请编写“排序”命令按钮的事件过程中的部分程序代码。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，两个命令按钮的事件过程必须至少各执行一次。标准答案：【操作步骤】步骤1：打开考生文件夹中的本题工程文件sjt5．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：DoWhileNotEOF(1)s=s&Str(a(i))步骤2：在代码编辑窗口指定位置编写以下代码：参考代码：num=UBound(a)Fori=1Tonum-1Forj=iTonumIfa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextNext步骤3：按键运行程序，先单击“读数据”按钮，再单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤4：按要求将文件保存至考生文件夹中。知识点解析：冒泡法的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数。则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。设计思路：在“读数据”按钮的单击事件中，首先使用DoWhile当型循环结构从文件中读取全部数据，并以NotEOF(文件号)(非文件结尾)作为循环条件，通过Input#语句将打开文件中的数据逐一读出后赋值给a(i)，然后将数组连接起来显示在标签中。在“排序”按钮的单击事件过程中，原程序利用“冒泡法”对记录数组中的元素从小到大进行排序。VB机试模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)请在名称为Forml的窗体上绘制一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为U和L2的标签，并分别显示1和100．运行时的窗体如图44—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vb，窗体文件名为sjl．frm。(2)在窗体上画两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时。如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容，如图44—2所示。程序中不得使用仟何变量。注意：存盘时必须存放在光盘相应目录下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：(1)根据题意，新建“标准EXE”工程，将一个滚动条控件和两个标签控件添加到窗体中，滚动条的名称为H1，Min属性为1，Max属性为100，LargeChange属性为10，两个标签的名称分别为L1和L2，Caption属性分别为“1”和100。设置完成后，单击按钮运行程序，并按要求保存。(2)建立界面并设置控件属性。程序用到的控件及其属性见下表。双击“工具箱”中的文本框控件在窗体上建立2个文本框，用鼠标分别拖动它们的边框到合适的大小，然后再用鼠标将它们分别调整到合适的位置。并按下表分别设置它们的属性。编写程序代码。PrivateSubTextl_Change()Text2．Text=Textl．TextEndSub然后，调试并运行。最后，按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，在窗体上画一个名称为Text1的文本框和两个名称分别为Command1和Command2、标题分别为“大写A”和“小写a”的命令按钮。要求程序运行后，如果单击“大写A”命令按钮，则弹出对话框，输入要显示的个数，根据输入的数值在文本框中显示相应数量的大写字符串A；如果单击“小写a”命令按钮，也弹出对话框，输人要显示的个数，根据输入的数值在文本框中显示相应数量的小写字符串a。程序运行时的窗体界面如图5—3所示。注意：该程序是不完整的，请在有“?”的地方添入正确的内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，在窗体上有一个名称为HScrolll的水平滚动条(Min为400，Max为2000)和三个名称分别为Command1、Command2和Command3、标题分别为“减200”、“显示”和“加200”的命令按钮。程序运行后，如果单击“减200”命令按钮，则滚动块向左滚动200单位；如果单击“显示”命令按钮，则显示当前滚动条的值；如果单击“加200”命令按钮，则滚动块向右滚动200单位。程序运行时效果如图5—4所示。注意：请在有“?”的地方正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。编写程序使程序运行时满足下列的条件。存盘时不得改变文件名和文件夹。标准答案：(1)本题主要考查考生对For循环、文本框内容的显示和InputBox()函数的理解。Inpu,Box()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[，Title][，Default])。其中．Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏．i：显示；Default字符串为输入框的缺省文本。根据题意，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl、Text属性为空，命令按钮的名称分别为Commandl和Command2、Caption属性分别为“大写A”和“小写a”。双击Commandl进入代码窗口，补充后的代码如下：PrivateSubCommandl_Click()DimaAsIntegerDimstrAsStringDimiASIntegera=Val(InputBox("输入个数"))’读取输入的个数str=""Fori=1Toastr=str+"A"’循环写入大写字母"A"NextiTextl．Text=str’在Text1中显示结果EndSubPrivateSubCommand2_Click()DimaAsIntegerDimstrASStringDimiAsIntegera=Val(InputBox("输入个数"))’读取输入的个数str=""Fori=1Toastr=str十"a"’循环写入小写字母"a"NextiTextl．Text=str’在Textl中显示结果EndSub单击按钮运行程序，并按要求保存。(2)滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Valtie属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围．在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。根据题意，将一个水平滚动条控件和3个命令按钮添加到窗体中，水平滚动条的名称为HScrolll、Min属性为400、Max属性为2000，命令按钮的名称分别为Commandl、Command2和Command3，Caption属性分别为“减200”、“显示”和“加200”。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()IfHScrolll．Value-200Value’在窗口上显示HScrolll的当前值EndSubPrivateSubCommand3_Click()IfHScroll1．Value+200>HScrolll．MaxThen’如果移动后大于最大值HScrolll．Value=HScroll1．Max’则HScrolll的值为最大值Else’否则HScrolll．Value=HScrolll．Value+200’HScrolll的值加200EndIfEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、打开考生文件夹下的sj5．vbp，在名称为Forml的窗体上有一个名称为Text1的文本框．两个命令按钮，名称分别为Commandl和Command2，命令按钮上分别显示“读入”和“排序”(如图70—5所示)。程序运行时单击“读入”按钮，将文件in5．dat中的数据读人数组a中，单击“排序”则把数组a中的数值按照升序排列，并显示在文本框中。注意：请在有“?”号的地方填入正确的内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：(1)本题主要考查了从文件中读取数据和数据的排序。要从文件中读取数据，首先要打开文件，在读文件的时候要用到EOF函数判断文件是否已读完。本题补充后的代码如下：Dima()AsIntegerDimnumAsIntegerPrivateSubCommandl_Click()DimstrAsStringnum=0str=""Open"App．Path&＼in5．dat"ForInputAs#1’打开文件准备读取WhileEOF(1)=False’查看是否读到文件尾Input#1，str’读取文件num=num+1’计数WendClose#1’关闭文件ReDima(num)’动态分配数组空间DimiAsIntegerstr=""Open"App．Path&＼in5．dat"ForInputAs#1Fori=1Tonuml’利用For循环Input#1，a(i)’逐个读取数据str=str+CStr(a(i))+""’将数组写入字符串中NextiClose#1Textl．Textstr’将字符串显示在Textl中EndSubPrivateSubCommand2_Click()DimtexAsStringFori=1Tonum’升序排列temp=a(i)Forj=1ToiIfa(j)>tempThen’读取的数据比原位置的数据大Fork=iToj+lStep-la(k)=a(k-1)’数据向后偏移一个Nextka(j)=tempExitForEndIfNextjNextitex=""Fori=1To40tex=rex+CStr(a(i))+""NextiTextl．Text=tex’在Textl中显示排序后的结果Open"App．Path&＼out5．txt"For0utputAs#2Print#2，Textl.TextClose#1EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上画一个名称为Checkl的复选框数组，它含4个复选框，它们的标题依次为“Iteml”、“Item2”、“Item3”和“Item4”，其索引号分别为0，l，2，3。初始状态下，“Iteml”和“Item4”为选中状态。程序运行后的窗体界面如图19—1所示。注意：存盘时必须存放考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。(2)在名称为Forml的窗体上画一个名称为VScrolll的垂直滚动条，其刻度值范围为1～200；画一个命令按钮，名称为Commandl、标题为“向下移动”。请编写适当的事件过程，使得程序运行时，每单击命令按钮一次(假定单击次数少于10次)，滚动块向下移动20个刻度。程序运行时的窗体界面如图19—2所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。标准答案：(1)本题主要考查在窗体中添加控件数组及设置复选按钮控件(CheckBox)的Value属性。控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号(Index)，即下标。添加控件数组的方法是：先通过工具箱建立第一个控件，然后对该控件进行“复制”、“粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号。复选按钮组可用于提供多重选择，每个复选按钮的选中状态由其Value属性值决定：0-UnChecked为未选；1-Checked为选中；2-Grayed为禁用(即灰色)。根据题意，新建“标准EXE”工程，将一个复选按钮控件添加到窗体中，再选中、复制、粘贴，在弹出的对话框中单击“是”，即创建一个控件数组，设置其Index属性分别为0、1、2、3，Caption属性分别为“Iteml”、“Item2”、“Item3”和“Item4”，“heml”和“Item4”的值为1，“Item2”和“Item3”的属性为0，单击按钮运行程序，并按要求保存。(2)本题主要考查滚动条(HScrollBar)控件的画法、属性设置及简单事件的编写。滚动条多用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。根据题意，新建“标准EXE”工程，将一个垂直滚动条控件和一个命令按钮添加到窗体中，垂直滚动条的名称为VScrolll、Min属性为1、Max属性为200，命令按钮的名称为Commandl、Caption属性为“向下移动”。双击命令按钮进入代码窗口，编写如下代码：PrivateSubCommandl_Click()VScrolll．Value=VScrolll．Value+20’每按一次按键，则VScroll的数值加20EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在窗体上设置两个标签，名称分别为Labell与Label2、标题分别为“当前时间为：”和空；要求当单击窗体时，Label2显示当前时间。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图21—3所示。注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．vbp与sj3．frm。(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，O代表反面。在窗体上画3个名称分别为Textl、Text2和Text3的文本框与一个名称为Commandl的命令按钮，其中Commandl的标题为“开始”。文本框分别用于显示用户输入投币总次数、出现正面的次数和出现反而的次数。程序运行后，在文本框Textl中输入总次数，然后单击“开始”按钮，按照输人的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。如图21—4所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：(1)本题主要考查计时器控件和简单事件编程。计时器控件用以实现在规定的时间间隔触发其Timer事件，执行有关事件过程代码来完成对应功能。Interval属性用于设置触发计时器的Timer事件的时间间隔，单位为毫秒。Enabled属性控制计时器是否开始启用，True为启用，False为不启用；Time()函数用于返回系统当前时间。根据题意，新建“标准EXE”工程，将两个标签添加到窗体中，名称分别为Labell和Label2，Caption属性都为空，设置完成后双击Form1，进入代码窗口，编写如下代码：PrivateSubForm_Click()Label2．Caption=TimeEndSub单击按钮运行程序，并按要求保存。(2)Rnd()函数用于产生0～1之内的随机数。根据题意，将3个标签、3个文本框控件和一个命令按钮添加到窗体中，标签的Caption属性分别为“总次数”“正面”和“反面”，文本框的名称分别为Textl、Text2和Text3，Caption属性为空，命令按钮的名称为Commandl、Caption属性为“开始”。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()DimaAsIntegerDimiAsIntegerDimblAsIntegerDimb2AsIntegerbl=0b2=0a=Val(Textl．Text)’通过Textl获得总的次数Fori=1Toaa=Rnd()’取随机数Ifa=1Thenb1=b1+1’当随机到1时，则b1加1Elseb2=b2+1’当随机到0时，则b2加1EndIfNextiText2．Text=bl’在Text2中显示1的个数Text3．Textb2’在Text3中显示0的个数EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sj5．vbp，其窗体上有4个标签Labell、Lable2、Label3和Label4，标题分别为“用户名”、“密码”、“剩余次数”和“5”；一个命令按钮Commandl、标题为“登录”；两个文本框名称分别为Textl和Text2，其中Textl用来输入用户名，Text2用来输入密码(输入时，显示“*”)，无初始内容。程序给出了Cornmandl的事件过程，但不完整，要求去掉程序中的注释符“’”，把程序中的“?”改为正确内容，使得在运行时，在Textl中输入用户名，Text2中输入密码后，单击“登录”按钮，如果输入的用户名和密码都是“abcd”时，则在Textl中显示“登录成功”；如果输入其他内容，单击“登录”后，弹出如图35—5所示的错误提示对话框，并且Label4中的数字减1。最多可输人5次口令，若5次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘，运行结果如图35—5所示。标准答案：在文本框里显示的内容通过Text属性设置，其格式为：文本框名．Text=显示的内容。要使文本框内容显示为“*”，需将PasswordChar属性设置为“*”。MsgBox函数的格式为：MsgBox提示[，按钮][，标题]根据题意，将4个标签、两个文本框控件和一个命令按钮添加到窗体中，标签的名称分别为Labell、Label2、Label3和Label4，Caption属性分别为“用户名”、“密码”、“剩余次数”和“5”，文本框的名称分别为Textl和Text2、Caption属性都为空，Text2的Passwordchar属性为“*”，命令按钮的名称为Commandl，Caption属性为“登录”。补充后的具体代码如下：PrivateSubCommandlClick()IfTextl．Text="abcd"AndText2．Text="abcd"ThenMsgBox("登录成功")ElseMsgBox("登录失败")Label4．Caption=Val(Label4．Caption)-1EndIfIfVal(Label4．Caption)=0ThenTextl．Enabled=FalseText2．Enabled=FalseCommandl．Enabled=FalseEndIfEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在Forml的窗体上画一个名称为I．abell的标签，然后建立一个主菜单，标题为“命令”，名称为Com，该菜单有两个子菜单，其标题分别为“输出”和“关闭”，其名称分别为Pri和Close。编写适当的事件过程，使程序运行后，如果单击“命令”菜单中的“输出”命令，则在标签中显示“模拟考试”；如果单击“关闭”命令，则结束程序运行。程序运行时，单击“输出”命令的效果如图40-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．Inn。(2)在窗体上画一个列表框，名称为Listl，通过“属性”窗口向列表框中添加5个项目，分别为“足球”、“篮球”、“排球”、“乒乓球”和“羽毛球”，单击列表框中的一项，则该项就从列表框中删除。程序的运行情况如图40-2和图40-3所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。标准答案：(1)根据题意，新建“标准EXE”工程，将一个标签添加到窗体中，其名称设为Labell、Caption属性为空，按“Ctrl+E”组台键打开菜单编辑器，在其中添加如下菜单项：单击“确定”按钮，完成菜单设计，在对应事件窗口中编写如下代码：PrivateSubClose_Click()’单击关闭命令的处理函数UnloadMeEndSubPrivateSubPri_Click()’单击输出命令的处理函数Labell．Caption="模拟考试"EndSub单击按钮运行程序，并按要求保存。(2)本题考查用RemoveItem方法删除列表框中指定的项目。其格式为：列表框．RemoveItem索引值。RemoveItem方法从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。Listlndex属性是已被选中的表项的位置。如果没有选中任何项，ListIndex的值将设置为-1。根据题意，新建“标准EXE”工程，将一个List控件添加到窗体中，其名称为Listl，在其List属性栏中输入元素，每输入一个后按“Ctrl+enter”组合键换行输入下一个元素，当输入完成后，按回车键。双击List进入代码编写窗口，编写如下代码：PrivateSubListl_Click()Listl．RemovehemListl．ListIndex’removeltem的参数是索引号EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在名称为Forml的窗体上画两个图片框，名称分别为Pl、P2，高度均为1900，宽度均为1700。通过属性窗口把图片文件picl．bmp放入P1中，把图片文件pic2：jpg放入P2中；再画一个命令按钮，名称为Cl，标题为“交换图片”(如图l-208所示)。编写适当的事件过程，使得在运行时，如果单击“交换图片”按钮，则在Pl中显示pic2．jpg，在P2中显示pic1．bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3．vbp，窗体文件名为sjl3．frm。(2)在考生文件夹下有一个工程文件sjt4．vbp，请在窗体上画两个复选框，名称分别为Chl、Ch2，标题分别为“程序设计”、“数据库原理”；然后画一个文本框，名称为Textl；再画一个命令按钮，名称为Cl，标题为“确定”(如图1-209所示)。请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为sjt4．vbp，窗体文件名为sjt4．frm。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生表1-9一个结果的操作。标准答案：第1小题【操作步骤】步骤l：新建一个“标准EXE”工程，在窗体Forml中如表2-122画出所列控件并设置其相关属性。步骤2：打开代码编辑窗口，编写命令按钮的Click事件过程：参考代码：PriVateSubC1_Click()Picl．Picture=LoadPicture(App．Path+"＼pic2．bmp")Pic2．Picture=LoadPicture(App．Path+"＼picl．bmp")EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤l：打开考生文件中的本题工程文件sjt3．vbp，如表2-123在窗体中画出控件并设置属性。步骤2：在代码编辑窗口，编写“确定”按钮的单击事件。参考代码：PrivateSubC1_C1ick()Textl．Text="我选的课是"IfChl．ValueThenTextl．Text=Textl．Text+Chl．CaptionEndIfIfCh2．Value=1ThenTextl．Text=Textl．Text+Ch2．CaptionEndIfEndSub步骤3：按要求将文件保存垒考生文件夹中。知识点解析：第1小题本题要求在程序运行后，单击“交换图片”命令按钮时，交换两个图片框中的图片。因此可在命令按钮的Click事件过程中，通过LoadPicture()函数分别为两个图片框重新加载图片。App．Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。第2小题为实现本题所要求的功能可在“确定”按钮的单击事件过程中，先设置文本框的初始内容为“我选的课是”，然后用两个If语句分别判断两个复选框是否选中，若选中则将其对应信息输入文本框中。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件execise39.vbp及窗体文件execise39.frm。在窗体Form1上给出了所有控件和不完整的程序，请去掉程序中的注释符“’”，把程序中的问号“?”改为正确的内容。本程序的功能是：如果单击“读取”按钮，则把考生目录下的in39.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名：当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如下图所示)：若未找到，则在Text2中显示“不存在!”：若Text1中没有查找内容，则在Text2中显示“未输入查找内容!”。注意：考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。标准答案：知识点解析：暂无解析VB机试模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处于选中状态，运行时的窗体如图1-86所示。请画控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Forml的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1～100；画一个命令按钮，名称为c1，标题为“移动滚动框”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于10次)，滚动框向右移动10个刻度。运行时的窗体如图1-87所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjl2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。步骤2：在窗体Forml中加入一个复选框．并用“复制”和“粘贴”的方法，生成包含四个元素的复选框数组。步骤3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表2-44所示。步骤4:按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤l：新建一个“标准EXE”工程。步骤2：在窗体Forml中加入一个命令按钮，分别设置它们的相关属性，其属性及值如表2-45所示。步骤3：在代码编辑窗口，编写命令按钮的Click事件过程。参考代码：PriVateSubC1_Click()HSl．Value=HSI．Value+10EndSub步骤4：按要求将文件保存至考生文件夹中。知识点解析：第1小题复选框(Check．Box)组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态：O—Unchecked为未选，1一Checked为选中，2一Grayed为禁用(以灰色呈现)。选择某复选框后，该复选框将显示“√”，而取消选择后，“√”消失。本题只需按要求画出控件数组，并设置其Value属性。第2小题滚动条分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar)两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时、Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。本题只需要在单击命令按钮时改变滚动条的Value值即可。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有名称为Timerl的定时器，以及名称为Line1和Line2的两条水平直线。请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：①圆的顶端距窗体Forml顶端的距离为360．②圆的颜色为红色(红色对应的值为&H000000FF&或&HFF&)，如图1-13所示。程序运行时，Shapel将在Linel和Line2之间运动。当Shapel的顶端到达Linel时，会自动改变方向而向下运动；当ShapeI的底部到达Line2时，会改变方向而向上运动。文件中给出的程序不完整，请去掉程序中的注释符，把程序中的?改为正确内容，使其实现上述功能。注意：不能修改程序的其他部分和已给出控件的属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，包含了所有控件和部分程序，如图1-14所示。程序功能如下：①单击“读数据”按钮，可将考生文件夹下in4．dat文件中的100个整数读到数组a中；②单击“计算”按钮，则根据从名称为Combol的组合框中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Textl中。“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序。否则无成绩，最后，程序按原文件名存盘。标准答案：第1小题【操作步骤】步骤l：打开考生文件下的本题工程文件sjt3．vbp，在窗体上两条水平直线间画一个形状控件，并如表2-10设置其属性。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Timerl．Enabled=True工fShapel．Top<=Linl．YlThenIfShapel．．Top+Shapel．Hei．ght>=Lin2．Y1Then步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1．打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，编写“计算”按钮的单击事件过程以及三个自定义过程。参考代码：PrivateSubCommand2_Click()SelectCaseCombo1．ListIndexCase0Textl=even()Case1Textl=odd()Case2Textl=all()EndSelectEndSubFunctioneven()DimsAsSingle，nAsInteger。s=OFor．k=1T0100Ifa(k)／2=Fix(a(k)／2)Thens=s+a(k)n=n+lEndIfNexts=s／neven=CInt(s)EndFunctionFunctionodd()DimsASSingle，nAsInteger8=0Fork=1To100Ifa(k)／2<>Fix(a(k)／2)Thens=s+a(k)n=n+1EndIfNexts=s／nodd=CInt(s)EndFunctionFunctionall()DimsAsSingle，nAsIntegers=0Fork=1TO100s=s+a(k)Nexts=s／100all=CInt(s)EndFunction步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，然后选择组合框中的一项再单击“计算”按钮，最后单击窗体右上角的关闭按钮结束程序。知识点解析：第1小题①形状控件(Shape)提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0一矩形、l一正方形、2一椭圆、3一圆、4一圆角矩形、5一圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。②Move方法用于移动窗体或控件，其语法为：对象名．MoveLeR,Top,Width,Height。本题在计时器的Timer事件过程中，Shapel每次上下移动的距离为s(值为负向上移动，值为正向下移动，初值为-40)，若Shapel向上移动后其Top属性值小于或等于Linel的Yl(或Y2)属性值，则s取其相反数，Shapel向下移动。若Shapel向下移动后其Top属性值与其Width属性值之和大于或等于Line2的Yl(或Y2)属性值，则s再取其相反数，Shapel向上移动。窗体加载时，计时器启动，Shapel开始在Linel和Line2之间运动。第2小题调用过程有两种方式：一种是过程名参数1，参数2，…；另一种是Call过程名(参数1，参数2，…)。本题原程序在“计算”按钮的单击事件过程中，逐一检查组合框中的列表项是否选中，将选中列表项的索引号作为判断依据，根据选中不同的项来调用不同的过程。过程even用来求得数组中的偶数平均值，首先预设累加和变量s=O以及计数器n=O，然后通过一个执行100次的For循环来遍历整个数组，依次判断数组元素是否为偶数，若是偶数则将其加入类价格变量s中以及令计数器加1，循环结束后用累加和除以计数器即得到平均值。同理编写odd过程用来求得数组中奇数的平均值，all过程用来求得数组中所有数的平均值。三、综合应用题(本题共1题，每题1.0分，共1分。)3、数列1，1，3，5，9，15，25，41，…，的规律是从第三个数开始。每个数是它前面两个数的和加1。在考生目录下有一个工程文件sjt5．vbp。窗体中已经给出了所有控件，如图1-99所示。请编写适当的事件过程实现以下功能：在Textl中输入整数40，单击“计算”按钮，则在Text2中显示该数列第40项的值。如果单击“存盘”按钮，则将计算的第40项的值存到考生目录下的out5．txt文件中。(提示：因数据较大，应使用Long型变量。)注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入outS．txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。标准答案：【操作步骤】步骤l：打开考生文件夹下的本题工程文件sjl5．vbp。步骤2：编写“计算”按钮的单击事件过程。参考代码：Pr5．VateSubCommand1_Click()DimfAsLonga(1)=1a(2)=1Fori=3ToVal(Textl．Text)f=a(i-2)+a(i-1)+la(i)=fNextText2．Text=fEndSub步骤3：运行程序，在文本框中输入40，并单击“计算”按钮获得一个结果，然后单击“存盘”按钮保存计算结果。步骤4：按要求将文件保存至考生文件夹中。知识点解析：①数组使用相同的名字引用一系列变量，并用数字索引来识别它们。数组有上界和下界，数组的元素在上、下界内是连续的。VisualBasic对每一个索引值都分配空间，所以不要不切实际地声明一个太大的数组。在很多情况下，使用数组可以缩短和简化程序，因为可以利用索引值设计循环，高效处理多种情况。②可以声明具有任何基本数据类型的数组，数组中的所有元素具有相同的数据类型，当数据类型为Variant时，各元素能够包含不同种类的数据(对象、字符串、数值等)。根据题意，从数列的第三个数开始，每个数是其前两个数之和加l，数列第n项的值可表示为：a(i)=a(i-1)+a(i-2)+1。可以利用For循环语句(循环变量i的初值为3，终值为Text1．Text)，从数列的第三个数开始，逐一计算出该数列第3-n项的值，计算表达式为a(i)=a(i-1)+a(i-2)+1。VB机试模拟试卷第7套一、基本操作题(本题共1题，每题1.0分，共1分。)1、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Form1的窗体上建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，其名称分别为Dis和Clea。编写适当的事件过程，程序运行后，如果单击“操作”菜单中的“显示”命令，则在窗体上显示“等级考试”；如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如图14-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。(2)在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名称为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序中不准使用任何变量，运行情况如图14-2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。标准答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。VisualBasic中，菜单被看作控件，具有属性和事件。菜单由“菜单编辑器”来创建。在窗体上打印信息通过Print方法方法来实现。清除在窗体上的打印的信息要通过Cis方法来实现Cis方法清除运行时Form或PictureBox所生成的图形和文本：语法：Object.Clsobject代表一个对象表达式。如果省略object，则默认为当前的Form窗体。解题步骤：第一步：打开“菜单编辑器”，建立菜单并设置菜单属性。菜单的属性设置见表14-1。第二步：编写程序代码。参考代码：PrivateSubClea_Click()ClSEndSubPrivateSubDis_Click()Prin"等级考试"EndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。双击控件触发DblClick事件，ListCount属性返回列表框中表项的数量。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddItem方法在程序中添加。本题是通过属性窗口来设置的。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表14-2。第二步：编写程序代码。参考代码：PrivateSubL1_DblClick()Lab1.Caption=L1.ListCountEndSub第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共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=FalseEndSubPri