VB机试模拟试卷1（共25题）

VB机试模拟试卷1（共9套）（共25题）VB机试模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在窗体上绘制一个名称为Textl的文本框，然后建立一个主菜单，标题为“操作”，名称为Op。该菜单有两个子菜单，其标题分别为“显示’’和“退出”，其名称分别为Dis和Exit，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示’’命令，则在文本框中显示“计算机考试”；如果单击“退出”命令，则程序结束。程序的运行情况如图4—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。(2)在名为Form1的窗体上绘制一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“计算机等级考试VisualBasic课程”。程序运行情况如图4—2所示。注意：不要使用任何变量，直接显示字符串；文件必须存放在考生文件夹中，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)本题主要考查菜单的使用。在VisualBasic中，菜单也被看作控件，具有属性和事件，菜单在“菜单逻辑器”对话框中建立。通过End语句结束程序的运行。①建立界面并设置控件属性。菜单及控件属性设置见下表：②编写参考代码如下：PrivateSubDisClick()Text1．Text="计算机考试"EndSubPrivateSubExitClick()EndEndSub③调试并运行程序。④按题目要求存盘。(2)①新建一个名为Forml的窗体。②单击丁具箱中的CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl，标题为“显示”。③打开代码窗口输入如下代码：PrivateSubCmdl_Click()Forml．Print"计算机等级考试VisualBasic课程"EndSub④按要求保存文件即完成本题。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sj3．vbp，相应的窗体文件为sj3．frm。其功能是产生40个0～800的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击名称为Commandl的命令按钮，标题为“输出最小值”，即可求出其最小值，并在Textl文本框中显示出来，如图33—4所示。这个程序不完整，请把它补充完整，并能正确运行。注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4．vbp，相应的窗体文件为sj4．frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出100～800范围内能被3整除和能被5整除的整数的个数，并在文本框中显示出来，如图33—5所示。在窗体的代码窗口中，已给出了部分程序。注意：请勿改动程序中的其他任何内容，只将“?”处的代码编写完整。最后把修改后的文件按原文件名存盘。标准答案：(1)在数组求最小值中，定义一个变量，用来存放数组中的最小值，在数组比较开始前，对变量进行赋初始值。在比较中，使用循环让变量和数组中的每个元素进行逐个比较，每次比较后变量中保存两个数中最小的数，循环结束后，变量中存放的数即为最小值。由于要产生随机数，所以要调用Rnd()函数，Rnd函数返回小于1，但大于或等于0的值，其语法格式为：Rnd[(number)]。number参数是可选的，是Single或任何有效的数值表达式。number的值决定了Rnd函数生成随机数的方式。为了生成某个范围内的随机整数，可使用公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)。这里，upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。具体代码如下：PrivateSubCommandl_Click()Dima(40)AsLongDimiAsIntegerDimtmpAsIntegerFori=1To40a(i)=Rnd()*(800—0)’产生0～800的随机数，放人数组中Nextitmp=a(1)Fori=2To40Iftmp>a(i)Thentmp=a(i)’获得最小值EndIfNextiTextl．Text=tmp’在Textl中显示最小值EndSub单击按钮运行程序，并按要求保存。(2)本题使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否则不能整除。具体代码如下：PrivateSubCommandl_Click()DimiAsIntegerDimnumAsIntegernum=0Fori=100To800’for循环从100到800IfiMod3=0AndiMod5=0Thennum=num+1’如果能同时被3和5整除，计数加1EndIfNextiTextl．Text=num’在Textl中输出个数EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm。在名为Forml的窗体上有5个Label控件和2个命令按钮，数据文件inl3．dat存放学生的编号、姓名、性别和体重，如图13—5所示。程序运行后，按“Begin”按钮后，能从考生文件夹下的inl3．dat中读出数据并把体重大于平均体重的学生的所有数据写入考生文件夹下的outl3．dat文件中。执行完毕，“Begin”按钮变成“完成”按钮，且无效。注意：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“’”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。标准答案：根据题目1．打开题目所给工程文件。2．打开代码窗口输入如下代码：PrivateSubCmdlClick()DimiAsIntegerDimtotalAsIntegerDimaverAsSingleDimnum(10)，namstring(10)，sexstring(10)，wages(10)MyFile=App．Path&"＼"&"inl3．dat"MyFile2=App．Path&"＼"&"outl3．dat"OpenMyFilelForInputAs#1OpenMyFile2ForOutputAs#2Fori=1To10Input#l，num(i)，namstring(i)，sexstring(i)，wages(i)total=total+wages(i)Nextiaver=total／10Fori=1To10Ifwages(i)>averThenWrite#2，num(i)，namstring(i)，sexstring(i)，wages(i)NextiCmdl．Caption="完成"Cmd1．Enabled=FalseEndSub3．按要求保存文件即完成本题。知识点解析：暂无解析VB机试模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个标签，其名称为Labell，标题为“等级考试”，BorderStyle属性为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Commandl，编写适当的事件过程。程序运行后，其界面如图1-8l(a)所示，此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题，如图1-81(b)所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp。窗体文件名为sjtl．frm。(2)在名称为FormI的窗体上画一个文本框，其名称为Textl，初始内容为空白；然后再画三个单选按钮，其名称分别为OPl、Op2和OP3，标题分别为北京、西安和杭州，编写适当的事件过程。程序运行后，如果选择单选按钮Opl，则在文本框中显示“颐和园”；如果选择单选按钮Op2，则在文本框中显示“兵马俑”；如果选择单选按钮Op3，则在文本框中显示“西湖”。程序的运行情况如图1-82所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1；新建一个“标准EXE”工程，如表2-42在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口编写以下事件过程。参考代码：PriVateSubCommand1_Click()Commandl．Caption=LabellLabel1．Visible=FalseEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXB”工程，在窗体Forml上画一个文本框和三个单选按钮，其属性及值如表2-43所示。步骤2：在代码编辑窗口。编写三个单选按钮的单击事件过程。参考代码：PrivateSubOp1_Click()Textl="颐和因"EndSubPrivateSubOp2_Click()Text1．Text="兵马俑"EndSubPrivateSubOp3_Click()Textl．Text="西湖"EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题①标签控件(Label)常用于显示用户不能直接改变的信息，Caption属性用来设置其显示的文本。标签的BorderStyle属性用于设置标签的边框样式，值为0表示无边框，值为1表示有固定单边框。AutoSize属性用来确定是否根据Caption属性指定的标题自动调整标签的大小，可以设置为True或False。本题需要在窗体上画出控件并相应设置其属性，然后编写命令按钮的单击事件，使得标签的Visible属性为False并且改变命令按钮的Caption属性。第2小题本题只需在三个单选按钮的Click事件过程中，分别为文本框的Text属性赋予相应内容即可。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，其功能是：①单击“读数据”按钮，则把考生文件夹下in3．dat文件中的100个正整数读入数组a中；②单击“统计”按钮，则找出这100个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就是完全平方数。例如，36=62，所以36就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框Textl、Text2中。在给出的窗体文件中有了全部控件(如图1-4l所示)，但程序不完整，请将程序中的注释符去掉，把?号改为正确的内容，实现上述功能。注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框Listl。请画一个标签，其名称为Labell，标题为“请输入编号”；再画一个名称为Textl，初始值为空的文本框，如图1-42所示。程序功能如下；①系统启动时，自动向列表框添加一个编号信息“a0001”。②系统运行时，在文本框。Textl中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框Listl已有项目之后：否则，将弹出“不允许重复输入，请重新输入l”对话框，单击该对话框中的“确定”按钮，可以重新输入。③单击“退出”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sit3．vbp，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Ifx=m^2Thenis_square=flagIfa(k)>maxThenTextl．Text=maxText2．Text=num步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4．vbp，如表2-22在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Listl．AddItem"a0001"Fori=0ToListl．ListCount-1LiStl．ListIndex=iListl．AddItemTextl．TextEnd步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题Sqr(N)求平方根函数，用于返回N的算术．平方根。issquare()函数用于判断参数x是否为完全平方数，方法是从1到x的平方根进行循环，依次判断x是否能等于循环变量的平方，若等于则退出循环，返回True，若循环结束后都没有等于某个循环变量的平方则返回False。求完全平方数的最大值，只需要先预设最大值为0，然后在循环中每次找到一个完全平方数就将其与最大值比较，若大于预设最大值则令其为新的最大值，同时令计数器加1，循环结束后可得最大值与个数。第2小题若要在系统启动时，自动向列表框添加一个编号信息“a0001”，需要在窗体的Load事件中调用列表框的Addltem方法向列表框中添加列表项。在“添加”按钮的单击事件中，需要判断输入的值是否在列表框中已存在，为了实现这个功能，需要遍历整个列表框，其循环条件为Fori=0ToListl．ListCount-1；在循环中首先令Listlndex属性值为i，这样第i个列表项的内容就是列表框的Text属性值，可以与文本框中的内容进行比较，若已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的AddItem方法将文本框的内容加入列表框。在“退出”按钮的单击事件过程中，使用End语句结束整个程序的运行。三、综合应用题(本题共1题，每题1.0分，共1分。)3、考生文件夹下的工程文件sjt5．vbp中的窗体如图1-215所示。考生文件夹下的随机文件in5．dat中有20条记录，每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype，此类型变量可以存放一条记录。要求如下：①请为“计算最大最小值”按钮编写Click事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval，minval中(这两个变量已经给出，不得修改)。②运行程序，单击“计算最大最小值”按钮后再单击“存盘”按钮。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击“计算最大最小值”、“存盘”按钮，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤l：打开考生文件中的本题工程文件sjt5．vbp，在代码编辑窗口的适当位置编写代码。参考代码：PrivateSubCommandl_Click()DimSAsRecordtypeOpen"in5．dat"ForRandomAs#1Len=Len(S)maxval=0minval=300Fork=1To20Get#1，，Ssumval=s．a1+s．a2+s．a3Ifsumval>maxvalThenmaxval=sumvalIfsumval知识点解析：①Type语句用于在模块级别中定义一个用户自己的数据类型，其本质上是一个数据类型集合，它含有一个或一个以上的成员，每个成员可以被定义为不同的数据类型。声明白定义类型变量后，可通过“变量名．成员名”来访问自定义变量中的元素。②用Open语句打开随机文件，其语法格式为：OpenFileNameforRandomas#FileNumberLen=记录长度。记录长度是一条记录实际所占字节数，可用Len(记录变量名)函数获取：Get#语句用于从文件中读出某记录号的记录，格式为：Get撑FileNumber,[RecordNuber]，Var；Put#语句用于把记录按指定记录号写入文件，格式为：Put#FileNumber,[RccordNuber]，Var。本题原程序设计思路：在“计算最大最小值”命令按钮的单击事件过程中，先用Open语句打开考生文件夹下的随机文件in5．txt；然后预定义最大值为O，最小值为3000门课程总成绩不可能超过300)，在For循环中，依次使用Get语句取出记录内容到自定义数据类型变量s，然后将s的各元素累加起来，并将总分(s中各元素的累加和)和预定义的最大值以及最小值进行比较，如果总分大于最大值则将其存入最大值，如果总分小于最小值则将其存入最小值，然后进行下一次循环判断下一条记录。VB机试模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、注意：下面出现的“考生文件夹”均为c;\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”(名称分别为vbFile和vbHelp)两个主菜单项，其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、vbClose和vbExit)，如图1-1所示。只建立菜单，不必定义其事件过程。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。(2)在名为Form1的窗体上画一个框架，名称为Frm1，标题为“框架”，高度为2500，宽度为4000，框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为“文本框”。如图1-2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。标准答案：(1)在VisualBasic中，菜单项通过菜单编辑器来建立。解题步骤：第一步：打开“菜单编辑器”窗口，建立菜单项。用到的菜单项及其属性见表1-1。第二步：调试并运行程序。第三步：按题目要求存盘。(2)在窗体上建立好控件后，再按题目要求设置各自的属性即可。需要指出的是在框架里的控件需要画出框架后，单击工具箱里的控件然后在框架里拖动画出所需控件，不可以用双击的方法，否则所需的控件放不到框架里。窗体中的控件的具体位置由控件的Top、Left属性设置，大小由属性HeightWidth设置。解题步骤：第一步：设置框架的Height、Width属性分别为2500，4000；文本框的Left、Top属性值分别为600，1200。(以上均可在属性栏里没置)第二步：调试并运行程序。第三步：按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、注意：下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为vbNew、vbOpen和vbSave。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图3-3所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sjt3.vbp。(2)在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1，标题为“计算”的命令按钮，如图3-4所示。要求程序运行后，单击命令按钮，将计算100-200之间所有素数之和，在文本框中显示结果，同时把结果存入文件out.txt中。(在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。)注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。标准答案：(1)在VisualBasic中，菜单项通过菜单编辑器来建立；选择菜单则是触发其Click事件。MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回1个Integer告诉用户单击哪一个按钮。语法：MsgBox(prompt[，buttons][，title][，helpfile，context])MsgBox函数的语法具有以下几个命名参数：Prompt必需的。字符串表达式，作为显示在对话框中的消息。Buttons可选的。数值表达式是值的总和，指定显示按钮的数目及形式。Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中。Helpfile可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。Context可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤：第一步：建立菜单项。程序中用到的菜单项及其属性见表3-2。第二步：编写程序代码。参考代码：PrivateSubvbNew_Click()MsgBox“新建”，vbOKOnlyEndSubPrivateSubvbOpen_Click()MsgBox“打开”，vbOKOnlyEndSubPrivateSubvbSave_Click()MsgBox“存盘”，vbOKOnlyEndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容由Text属性设置，命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。解题步骤：第一步：建立菜单项。程序中用到的控件及其属性见表3-3。第二步：编写程序代码。参考代码：PrivateSubCmd1_Click()DimiAsIntegerDimtempAsLongtemp=0Fori=100To200Ifisprime(i)Thentemp=temp+iEndIfNextText1.Text=tempputdata"out.txt"，tempEndSub标准模块代码：OptionExplicitSubputdata(t_FileNameAsString，TStrAsVariant)DimsFileAsStringsFile="\"&tFileNameOpenApp.Path&sFileForOutputAs#1Print#1，T_StrClose#1EndSubFunctionisprime(t_IAsInteger)AsBooleanDimJAsIntegerisprime=FalseForJ=2TotI/2IftIModJ=0ThenExitForNextJIfJ＞tI/2Thenisprime=TrueEndFunction第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“计算保存”，如图2-6所示。要求程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，把求和结果在文本框Text1中显示出来，同时把结果存入考生文件夹中的文件result.txt中。(在prog.bas中的putdata过程可以把结果存入result.txt文件)。注意：文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，计算结果存入result,txt文件中，否则没有成绩。标准答案：文本框显示的内容由Text属性设置；按钮的标题由Caption属性设置，单击命令按钮触发Click事件；在本题中涉及到文件的操作，读入顺序文件以顺序的方式打开，用Input#语句读取数据，另外需要注意的是对文件操作完后，一定要关闭文件。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表2-1。第二步：编写程序代码。程序提供的代码：窗体代码Dimi(1To100)AsIntegerPrivateSubCmd1_Click()DimjAsIntegerj=0OpenApp.Path&"\in.txt"ForInputAs#1Forj=1To100’Input#1,i(?)NextClose#1Forj=1To100Text1.Text=Text1.Text&i(j)&Space(5)NextEndSubPrivateSubCmd2_Click()DimtempAsLongDimjAsInteger’For?=1To100Ifi(j)＞=400Andi(j)＜800Thentemp=temp+i(j)EndIfNext’Text1.?=tempputdatatempEndSub标准模块代码：Subputdata(ByValaAsInteger)DimsFileAsStringsFile="\result.txt"OpenApp.Path&sFileForOutputAs#1Print#1,a;Close#1EndSub参考代码：Dimi(1To100)AsIntegerPrivateSubCmd1_Click()DimjAsIntegerj=0OpenApp.Path&"\in.txt"ForInputAs#1Forj=1To100Input#1,i(j)NextClose#1Forj=1To100Text1.Text=Text1.Text&i(j)&Space(5)NextEndSubPrivateSubCmd2_Click()DimtempAsLongDimjAsIntegerForj=1To100Ifi(j)＞=400Andi(j)＜800Thentemp=temp+i(j)EndIfNextText1.Text=tempputdatatempEndSub第三步：调度并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析VB机试模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Commandl的命令按钮，标题为“打开文件”，再画一个名称为CDI的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框。请按下列要求设置属性和编写代码：①设置适当属性，使对话框的标题为“打开文件”；②设置适当属性，使对话框的“文件类型”下拉式组合框中有两行：“文本文件”、“所有文件”(如图1-142所示)。默认的类型是“所有文件”；③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。(2)在名称为Forml的窗体上画一个命令按钮，名称为Commandl，其标题为“移动本按钮”。如图1-143所示。编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjl2．frm。标准答案：第l小题【操作步骤】步骤l：新建一个“标准EXE”工程，选择【工程】→【部件】命令，打开“部件”对话框，从其列表中选中“MicroSoftCommon．DialogControl6．0”项目，单击“确定”按钮。步骤2：在窗体Forml中加入一个命令按钮和一个通用对话框，其相关属性设置如表2-80所示。步骤3：在代码编辑窗口中，编写“打开文件”按钮的单击事件过程：参考代码：PriVateSubCommandl_Click()CD1．ShowOpenEndSub步骤4：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE"工程，画出一个名为Commandl的命令按钮，并且设置其Caption属性为“移动本按钮”。步骤2:在代码编辑窗口编写命令按钮的单击事件过程。参考代码：PriVateSubCommandl_Click()Command1．Left=Commandl．Left-100EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第l小题通用对话框的DialogTitle属性用于返回或设置该对话框标题栏上所显示的文本。要在单击按钮时弹出“打开文件”对话框，只需在“打开”按钮的Click事件过程中调用通用对话框的ShowOpen方法即可。第2小题本题只需要在命令按钮的单击事件中为命令按钮的Left属性减100即可。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)考生文件夹中有工程文件sjt3．vbp。在窗体上有名称为Combo1的组合框，请设置该组合框的属性，使该组合框只能用于选择操作，不能输入文本。窗体上还有两个标题分别为“输入正整数”、“判断”的命令按钮。程序运行时在组合框中选中一项，如图1-32(a)所示，单击“输入正整数”按钮，通过输入对话框输入一个正整数，再单击“判断”按钮，则按照选定的选项内容，将判断结果显示在信息框中。如图1-32(b)所示的是输入56且选中的组合框选项为“判奇偶数”时显示的信息框。在给出的窗体文件中已经有了全部控件，但程序不完整，要求：按照题目要求设置组合框的有关属性，去掉程序中的注释符，把程序中的?改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。(2)在考生目录下有一个工程文件sjt4．vbp。窗体上有一大一小两个名称分别为Shape2、Shapel的Shape控件。请在属性窗口中将Shapel控件设置为圆形，并将其颜色设置为红色(颜色值为&H000000FF&)，如图1-33所示。要求：当单击窗体时，Shapel移动到矩形(即Shape2)左上角，再次单击窗体，则Shapcl移动到矩形的右下角。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：在属性窗口中设置有关的属性值，去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤l：打开考生文件中的本题工程文件sjt3．vbp，将组合框的Style属性设置为2。步骤2：在代码编辑窗口，去掉程序中的注释符们”，将问号“?”改为正确的内容。参考代码：SelectCaseComb01．ListIndexMsgBoxStr(x)&fl(x)MsgBoxStr(x)&f2(x)PrivateFunctionf2(ByValxAsInteger)AsStringIfxMod7=0Then步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：打开考生文件中的本题工程文件sjt4．vbp，将Shapel控件的Shape属性设置为3，BackColor属性设置为&H000000FF&。步骤2：在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：PrivateFlagAsBooleanShapel．Top=Shape2．Top+Shape2．Height-Shapel．HeightShapel．Left=Shape2．Left+Shape2．Width-Shapel．Width步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题本题源代码中给出了两个函数，f1函数的作用是判断参数的奇偶性并返回判断结果，其返回值为字符型；f2函数的作用是判断参数能否被7整除，其返回值也为字符型。在“判断”命令按钮的单击事件中，首先根据组合框的Listlndex值判断选中的是组合框中的哪一项，如果ListIndex值为0则调用fl函数，否则调用f2函数。第2小题本题原程序中，在窗体的单击事件中，要求实现圆形在左上角和右下角之间来回切换，需要设置一个全局布尔型变量flag，每次单击窗体之后将其取反，通过flag的值来判断是需要将圆形移动到哪个位置。要移动到矩形的右下角，需要令其Top属性等于Shape2．Top+Shape2．Height-Shapel．Height，Left属性等于Shape2．Left+Shape2．WidthShapel．Width。三、综合应用题(本题共1题，每题1.0分，共1分。)3、考生文件夹下的工程文件sjt5．Vbp中有一个初始内容为空的文本框Textl，两个标题分别是“读数据”和“计算”的命令按钮；请画一个标题为“各行平均数的最大值为”的标签LabeL2，再画一个初始内容为空的文本框Text2，如图1-195所示。程序功能如下：①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读入20行5列的二维数组a中，并同时显示在Textl文本框内；②单击“计算”按钮，则自动统计二维数组a中各行的平均数，并将这些平均数中的最大值显示在Text2文本框内。“读数据”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事件过程实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用“计算”按钮进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤l：打开考生文件中的本题工程文件sjt5．vbp，在窗体。Forml中画一个标签和一个文本框，其属性及值如表2-111所示。步骤2：打开代码编辑窗口，在指定位置编写以下代码：参考代码：Fori=1To20Sum=0Forj=1To5Sum=Sum+a(i，j)NextAvg=Sum／5Ifi=1ThenMax=AvgElseIfMax键运行程序，先单击“读数据”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。知识点解析：本题可利用一个嵌套的For循环来完成计算工作：在外循环(循环变量的取值为1～20)体中，先初始设置记录每行数据之和的变量Sum的初值为O，接着通过内循环(循环变量的取值为1～5)体完成对每行数据的累加工作。内循环结束后，用表达式Avg=Sum／5计算出该行的平均值。如果是第一次执行外循环的循环体，则将当前Avg的值记录在变量Max中，否则仅在其他行Avg值大于Max的值时，才将其记录在变量Max中。嵌套For循环结束时，变量Max的值即为每行平均数中的最大值，将其显示在文本框txtMax中。VB机试模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、1.请根据以下各题的要求设计VisualBasic应用程序(包括界面和代码)。1．在窗体(名称为Form1)上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”，编写适当的事件过程。程序运行后，“命令按钮2”隐藏，此时如果单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏；而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图1—1所示。注意；存盘时，工程文件名为sjt1.vbp．窗体文件名为sjt1.frm。2．在Form1的窗体上画一个命令按钮，其名称为C1，标题为“显示”；再画一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则在文本框中显示“等级考试”。程序运行情况如图1—2所示。标准答案：①启动VisualBasic，在窗体上画两个命令按钮。②按F4键，激活属性窗口，在属性窗口中设置两个命令按钮的属性，见表1。③编写两个命令按钮的Click事件过程：PrivateSubC1_Click()C1.Visible=FalseC2.Visible=TrueEndSubPrivateSubC2_Click()C1.Visible=TrueC2.Visible=FalseEndSub2．①对象主要属性设置如表2所示。②分析：按试题要求在窗体上画出一个文本框和一个命令按钮，并分别将它们的属性按表2的内容进行设置。当窗体加载时激活Form_Load，通过文本框Text的Visible属性设置为False，即将Text文本框隐藏掉。当双击窗体时，产生Form_DblClick事件，Text的Visible属性设置为True，即可见。将字符串“等级考试”赋值给文本框Text1的Text属性时，则在文本框中显示“等级考试”。③编程代码：PrivateSubC1_Click()Text1.Text＝"等级考试"EndSubPrivateSubForm_DblClick＜)Text1.Visible＝TrueEndSubPrivateSubForm_Load()Text1.Visible＝FalseEndSub知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、1.在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。要求：编写程序，以实现试题要求的功能。注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。标准答案：①对象主要属性设置如表3所示。②分析：按试题要求在窗体上画一个文本框和一个命令按钮，并分别将它们的属性按表3的内容进行设置。通过将一个空字符串(即"")赋值给文本框的Text属性即可清除Text文本框的内容。③编程代码：PrivateSubCmd1_C1ick()Text1.Text＝""Endsub2．①窗体Load事件过程的程序如下：PrivateSubForm_Load()List1.AddItem"项目1"List1.AddItem"项目2"List1.AddItem"项目3"List1.Addltem"项目4"EndSub②命令按钮Click事件的程序如下：PrivateSubCommand1_Cllek()Fori＝0ToList1.ListCount—1IfList1.Selected(i)＝TrueThenText1.Text＝List1.List(i)EndIfNextiEndSub知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮和一个文本框，命令按钮的名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”，文本框为空，如图3—1所示。程序的功能是在运行时，单击“计算”命令按钮，系统随机产生20个只有两位数的正整数，将其存入到一个数组中，再将这20个数相加的结果在文本框中显示出来。单击“存盘”命令按钮，将相加的结果存入“out5.txt”文件中。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能。注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的程序以原文件名存盘。sjt5.frm文件内容如下：OptionBase1DimsumAsIntegerPrivateSubCmd1_ClickODimart(20)AsInteger’Dimf1As?Randomizearr(1)=Int(Rnd*90)+10’sum=?Fori=3To20Doa=Int(Rnd*90)+10’f1=?Forj=1Toi—1Ifarr(j)=aThenf1=True:ExitForNextjLoopWhilef1arr(i)=asum=sum+arr(i)NextiText1.Text=sumEndSubPrivateSubCmd2_Click()’CallWriteData(?,sum)EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&"\"&FilenameForOutputAs#1Print#1,NumClose#1EndSub标准答案：①对象主要属性设置如表5所示。②分析：窗体上有两个命令按钮和一个文本框，它们的属性按表5的内容进行设置。f1为逻辑变量，在程序中起到一个开关作用，其初值为False。变量sum为整型窗体变量，用它存放各数组值之和，其初值为第一个产生的随机数。WriteData过程有两个参数，其中第一个参数的作用是传递文件名。在该程序中，从第二个随机数开始，海产生一个随机数，都要与数组中原有的数据进行比较，若有重复，重新产生一个，直到与每一个数据都不重复为止。③编程代码：OptionBase1DimsumAsIntegerPrivateSubCmd1_Click()Dimarr(20)AsIntegerDimf1AsBooleanRandomizeart(1)=Int(Rnd*90)+10sum=arr(1)Fori=2To20Doa=Int(Rnd*90)+10f1=FalseForj==1Toi—1Ifarr(j)=aThenf1=True:ExitForNextjLoopWhilef1arr(i)=asum=sum+arr(i)NextiText1.Text=sumEndSubPrivateSubCmd2_Click()CallWriteData("Out5.txt",sum)EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&"\"&FilenameForOutputAs#1Print#1,NumClose#1EndSub知识点解析：暂无解析VB机试模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm)，在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框的项目；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表中删除。程序的运行情况如图23所示。注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。标准答案：1．操作步骤(1)在VisualBasic集成环境选择“文件”→“打开工程”命令，在对话框中选择ylc5.vbp工程文件，单击“确定”按钮打开。(2)在工具箱中选择ListBox控件，在窗体上创建该控件，命名为List1。在工具箱中选择TextBox控件，在窗体中创建并命名为Text1，标题为空。2．行为编码在代码窗口选择Form对象的MouseDown事件，其行为代码如下：PrivateSubFormMouseDown(ButtonAsInteger，ShiftAsInteger，_XAsSingle，YAsSingle)SelectCaseButton’若按下的是鼠标左键Case1’将文本框中的内容加入列表框List1.Addltem，(Text1.Text)’清空文本框Text1.Text=""’若按下的是鼠标右键Case2’删除列表框中与文本框相同的内容Fori=0ToList1.ListCount-1IfList1.List(i)=Text1.TextThenList1.Removeltem(i)ExitForEndIfNextiEndSelectEndSub3．存盘保存执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。知识点解析：(1)本题考查考生对ListBox控件的属性控制和操作，特别对鼠标按键的控制进行了仔细的考查。(2)注意使用ListBox控件的AddItem、RemoveItem方法、鼠标消息的控制。(3)本题是根据键码的值，使用Select语句来判断按下的是鼠标左键或右键。VB机试模拟试卷第7套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体中建立一个标题为“显示结果”、名称为Commandl的命令按钮，要求程序运行后，如果单击“显示结果”按钮，则执行语句Forml．Print“显示结果”；如果单击窗体，则执行语句Form1．Cls，如图32—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为s11．frm，工程文件名为sj1．vbp。(2)在名称为．Forml的窗体上建立一个垂直滚动条，名称为VSl，其最大值为50，最小值为0。要求程序运行后，每次移动滚动块时，都执行语句Form1．PrintVSl．Value，如图32—2所示(程序中不能使用任何变量)。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)清除窗体上原来的显示的值可以用Cls方法来实现。根据题意，新建“标准EXE”工程，在Forml窗体上放人一个命令按钮，并将其名称设为Commandl、Caption属性为“显示结果”。然后双击Forml中的命令按钮进入代码窗口，编写如下代码：PrivateSubCommandl_Click()Forml．Print"显示结果"EndSubPrivateSubForm_Click()Forml．ClsEndSub单击按钮运行程序，并按要求保存。(2)滚动条表示的最大值由Max属性设置，最小值由Min属性设置，滚动条的当前值由Value属性设置；当滚动框的位置改变时，触发Change事件。根据题意，新建“标准EXE”工程，在窗体上放人一个垂直滚动条控件，将其名称设为VSl，并将其Max属性为50、Min属性为0。双击VSl控件，进入代码窗口，编写如下代码：PrivateSubVSlChange()Forml．PrintVSl．ValueEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有3个Text控件及5个命令按钮，功能为：开始启动工程时，界面上除“读取数据”及“关闭”按钮有效之外，其他按钮均不可用(灰色显示)；单击“读取数据”按钮之后，利用InputBox让用户连续且必须输入8个数。若录人为非数字符号，则给出提示“输人数据无效，请重新输入：”；输入完毕后，“读取数据”变灰，其他变为可用状态；按相应的按钮可分别求出所输入数据的升序排列及平均值，并在右侧对应的文本框中显示(注意用A(8)存放最大数，A(1)存放最小数)；单击“清空”按钮将所有文本框清空。如图10一3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在名称为Forml，窗体上有3个Label控件、2个Text控件和2个命令按钮。该程序的主要功能是求从1到Textl中用户输入的任意自然数n的累加和。刚启动工程时，可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过4位)。当输入为非数值时，累加结果为0；单击“开始”可以在，I?ext2中显示累加和，同时“开始”变为“完成”并变灰；单击“关闭”按钮结束程序的运行。如图10—4所示注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：(1)用数组str(8)来接收InputBox输入的8个数，InPutB。x的格式为：InputBOX(提示[，标题][，默认][，x坐标位置][，Y坐标位置])；Enabled属性可设置控件是否可用，当该值为True时可用，为False时不可用(灰色)；Val()函数将字符转换成数值。根据题意，将5个命令按钮和3个文本框控件添加到窗体中，命令按钮的名称分别为Commandl、command2.Command3、Command4和Command5，Caption属性分别为“读取数据”、“升序显示”、“平均值”、“清空”和“关闭”，文本框的名称分别为Textl、Text2和Text3，Text属性都为空。双击Cornmandl进入代码窗口，补充后的代码如下：Dima(8)AsLongDimstr(8)AsStringPrivateSubCommandl_Click()DimstrlASStringDimstr2AsStringDimstr3AsStringDimiASIntegerstr3=""Fori=iTo8str2==istrl="输入第"strl=strl+str2strl=str1+"个数"str(i)=InputBox(strl)lfstr(i)=""Then’如果按“取消则重新初始化”对话框Form_LoadEndIfWhiieAsc(str(i))>Asc("9")OrAsc(str(i))ExitForEndIfNextjNextiFori=1To8tmp=a(i)str=str+tmp+""NextiText2．Text=strEndSubPrivateSubCommand3_Click()’求平均数DimiAsIntegerDimtotalAsLongtotal=0Fori=lTo8total=total+a(i)Nextitotal=total＼8Text3．Text=totalCommandl．Enabled=FalseCommand2．Enabled=TrueCommand3．Enabled=FalseCommand4．Enabled=TrueEndSubPrivateSubCommand4_Click()’清空所有文本框Textl．Text=""Text2．Text=""Text3．Text=""Commandl．Enabled=TrueCommand2．Enabled=FalseCommand3．Enabled=FalseCommand4．Enabled=FalseEndSubPrivateSubCommand5_Click()’关闭对话框UnloadMeEndSubPrivateSubForm_Load()’初始化对话框Commandl．Enabled=TrueCommand2．Enabled=FalseCommand3．Enabled=FalseCommand4．Enabled=FalseCommand5．Enabled=TrueEndSub单击按钮运行程序，并按要求保存。(2)要计算累加和通常利用for循环来完成。文本框巾的内容(包括数字)默认都是当做字符串来处理的，如果要参与数据运算则需先用Val()函数将其转化为数字。根据题意，将3个标签、2个命令按钮和2个文本框控件添加到窗体中．标签的Caption属性分别为“要求：程序能得到结果total，total=1+2+3+…+n”、“输入n(0Text)’获得ntotal=0Fori=1Tontotal=total+i’累加NextiText2．Text=totalCommandl．Enabled=False’完成后Commandl不可用Commandl．Caption="完成"’名称改为完成EndSubPrivateSubCommand2_Click()’关闭命令按键UnloadMeEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl，可以多行显示；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“大写”和“保存”。程序运行时的窗体界面如图24—5所示。命令按钮的功能是：单击“打开文件”按钮，弹出打开文件对话框，默认打开文件的类型为“文本文件”。选择考生文件夹下的in5．txt文件后，该文件中的内容显示Textl中；单击“大写”按钮，程序将把Text1中的所有小写英文字母转换成大写；单击“保存”按钮，把Text1中的内容存入考生文件夹下的out5．txt文件中。在窗体中已经给出了部分程序。注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5．txt文件进行转换，并把转换结果通过“存盘”按钮存入考生文件夹下的out5．txt文件中，否则会影响成绩。标准答案：本题主要考查通用对话框使用、顺序文件的打开和Ucase()函数的使用。通用对话框(CommonDialog)提供打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。其Action属性用于设置被打开对话的类型，Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。例如，过滤器为*．txt表示显示所有的文本文件。语法为“对象名．Filter=“描述|文件扩展名””。首先要根据ASCII码来判断是否为小写字母，然后再用Ucase函数将小写字母转换为大写字母，补充后的具体代码如下：DimstrASStringPrivateSubCommandl_Click()DimtmpAsStringstr=""Commonl．Filter="文本文件(*．txt)|*．txt"Commonl．ShowOpenIfCommonl．FileName

""ThenOpenCommonl．FileNameForInputAs#1’如果文件存在则进行读取WhileEOF(1)=False’判断是否读取完成Input#1，trapstr=str+tmp’将读取的字符串放入strWendEndIfClose#1Textl．Text=str’在Textl中显示读取的字符串EndSubPrivateSubCommand2_Click()Textl．Text=UCase(Textl．Text)EndSubPrivateSubCommand3_Click()Open"App．Path&＼out5．txt"ForOutputAs#1Print#1，Textl．Text’将修改后的字符串写入文件中Close#1EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第8套一、基本操作题(本题共1题，每题1.0分，共1分。)1、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Form1的窗体上画一个名称为Text1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，名称分别为Dis和Hid，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“隐藏”命令，则隐藏文本框。程序的运行情况如图12-1和图12-2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。程序中不得使用任何变量。(2)在窗体上画一个列表框，名称为L1，通过“属性”窗口向列表框中添加四个项目，分别为“早上好”、“中午好”、“下午好”和“晚上好”，编写适当的事件过程。程序运行后，每次单击列表框中的任何一项，则总在最后面添加一项“真有礼貌”。程序的运行情况如图12-3和图12-4所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。程序中不得使用任何变量。标准答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。菜单在“菜单编辑器”窗口中创建；在程序运行是控件是否可见该控件的Visible属性决定，如果将该值设置为True时，在对象可见，如果设置为为False时，则将隐藏该控件。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表12-1。第二步：编写程序代码。参考代码：PrivateSubDis_Click()Text1.Text="计算机考试"EndSubPrivateSubHid_Click()Text1.Visible=FalseEndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。在“属性”窗口中，通过List属性设置列表项的内容。向列表框中添加文本通过Additem方法来实现，其格式为：列表框.Addltem项目字符串[.索引值]Addltem方法把“项目字符串”的文本内容放入“列表框”中。解题步骤：第一步：建立界面并设置控件属性。程序中只用到的控件及其属性见表12-2。第二步：编写程序代码。参考代码：PrivateSubL1_C1ick()L1.AddItem"真有礼貌"EndSub第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。(1)在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图14-3所示。本题描述如下：在名称为Form1，标题为“调用系统对话框”的窗体上有一个文本框和六个命令按钮及一个通用对话框，通过CommonDialog实现对系统一些对话框的调用。请将“打开”按钮的功能补充完整，并限制打开的类型为可执行文件(*.com和*.exe)，默认打开文件类型为.exe文件。(2)在考生文件夹下有工程文件jft4.vbp及窗体文件jft4.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名为P1的图片框，有一个名为C1，标题为“输入参数”的命令按钮，有两个单选按钮，名称分别是Op1和Op2，标题分别是“画圆环”和“画方框”。要求程序运行后，选中两个单选按钮中的一个，再点击命令按钮C1，在弹出的输入对话框中输入相应的参数值，则在图片框上画出相应的图形。程序运行界面如图14-4所示。标准答案：解题步骤：第一步：编写程序代码。程序提供的代码：OptionExplicitPrivateSubCommandl_Click()DimiAsIntegerCommonDialog1.CancelError=TrueOnErrorGoToCancelCommonDialog1.Action=5Fori=1ToCommonDialog1.CopiesPrintFormNextiCancel:EndSubPrivateSubCommand2_Click()CommonDialog1.CancelError=TrueOnErrorGoToCancelCommonDialog1.HelpCommand=&H