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

VB机试模拟试卷22（共6套）（共18题）VB机试模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Form1的窗体上画一个命令按钮，名称为Commandl、标题为“退出”、高为500、宽为1200。窗体的标题为“退出”，窗体标题栏上不显示最大化、最小化。编写适当的事件过程，使程序运行时，单击Commandl命令按钮，退出窗体。程序运行时的窗体界面如图27—1所示。注意：存盘时必须保存到考生文件夹下，工程文件名为sj1．vbp，窗体的文件名为sjl．frm。(2)在名称为Form1的窗体上画一个空白文本框，名称为Textl，其宽为1000、高度为400；再画一个水平滚动条，名称为HScrolll，其刻度值范围是500～1500。请编写滚动条的Change事件过程．程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度，如图27—2所示。程序中不能使用任何变量。注意：保存时必须存放到考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。标准答案：(1)根据题意，将一个命令按钮添加到窗体中，名称为Commandl、Caption属性为“退出”，将Forml的Caption属性设为“退出”，MaxButton属性为False、MinButton属性为False。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()UnloadMe’关闭窗口EndSub单击按钮运行程序，并按要求保存。(2)本题考查控件画法、水平滚动条(HScrollBar)相关属性和事件。滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围。滚动条滑块移动时触发其Change事件，编写代码：Textl．Width=HScrolll．Value，即可实现移动滚动框来改变文本框的宽度。根据题意，将一个水平滚动条控件和一个文本框控件添加到窗体中，水平滚动条的名称为HScrolll，Min属性为500、Max属性为1500，文本框的名称为Textl、Width属性为500、Height属性为400，设置完成后双击HScrolll，进入代码窗口，编写如下代码：PrivateSubHScroll1_Change()Textl．Width=HScrolll．Value’根据HScrolll的值来改变Textl的宽度EndSub知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和vbEdit，在“文件，，菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgB0x对话框显示该菜单项的标题，如图6—3所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为si3．vbp。(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm。该程序是不完整的。在窗体上建立一个名称为Comrnand1，标题为“计算”的命令按钮，再建立一个名称为Text1的文本框。运行界面如图6—4所示。要求程序运行后，若单击“计算”按钮，将计算200～350之间所有素数的和，在文本框中显示结果，同时把结果存入文件out．txt中。(在考生文件夹中有标准模块mode．bas，其中的writedata过程可以把结果存入文件，而isprinlenum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。)注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：(1)本题主要考查MsgBox函数的使用。MsgBox函数用于在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。其格式为：MsgBox(prompt[，buttons][，title][，helpfile，conText])。Prompt参数是必选的，是字符串表达式，作为显示在对话框中的消息；Buttons是可选的，是数值表达式值的总和，指定显示按钮的数目及形式；Title是可选的，是在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中；Helpfile是可选的，是字符串表达式．识别用来向对话框提供上下文相关帮助的帮助文件；ConText是可选的，是数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。在窗体空白处单击右键，按“Ctrl+E”组合键打开菜单编辑器，添加菜单项如下：单击“确定”按钮，菜单建立完成后，进入代码窗口编写以下代码：PrivateSubvbClose_Click()’关闭命令调用的函数MsgBox("关闭")EndSubPrivateSubvbOpen_Click()’打开命令调用的函数MsgBox("打开")EndSubPrivateSubvbSave_Click()’保存命令调用的函数MsgBox("保存")EndSub单击按钮运行程序，并按要求保存。(2)先按要求将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1，命令按钮的名称为Command1、Caption属性为计算。然后将mode．bas模板加人到工程当中，模板的代码如下：FunctionisPrimeNum(numAsInteger)AsBoolean’判断输入是否为素数isPrimeNum=TrueDimiAsIntegerFori=2Tonum-1IfnumModi=0ThenisPrimeNum=FalseExitForEndIfNextiEndFunctionFunctionwriteData(totalAsLong)’将结果写入out．txt文件中OpenApp．Path&．"＼out．txt"ForOutputAs#1Write#1，totalClose#1EndFunction然后单击Commandl，进入代码窗口，编写以下代码：PrivateSubCommandl_Click()DimnAsIntegerDimtotalAsLongtotal=0Forn=200To350IfisPrimeNum(n)=TrueThen’如果是素数则累加到total中total=total+nEndIfNextnTextl．Text=IotalwriteData(total)’将结果写入out．txt文件中EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sj5．vbp，窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”；文本框的名称分别是Textl与Text2，内空；标签名称分别是Labell与Label2，标题为“查找内容”、“查找结果”。窗体上给出了所有程序需要的控件，但程序代码是不完整的，请去掉程序中的注释符“’”，把程序中的“?”改为正确的内容。本程序的功能是：当在Textl中输入一个姓氏后，如果单击“查找”按钮，则在in5．txt中进行查找，若找到，就把所有与Textl中相同姓氏的姓名显示在Text2中，如图53—5所示；若未找到，则在Text2中显示“未找到!”；若Textl中没有查找内容，单击“查找”按钮，则在Text2中显示“未输入查找内容!”。注意：考生不得修改程序的其他部分和控件的属性，把修改后的文件按原文件名存盘。标准答案：本题程序功能描述为：先用Open语句打开文件in5．txt，用While循环的Input#方法读取文件，再判断若有输入，用For循环在in5．txt文件中逐一查找与Textl中内容相符的元素，相符的标准是Textl．Text=Mid(str(i)，j，1)，若有相匹配的，则在文本框中显示结果，若没找到则显示“未找到”，若Textl中未输入内容，则显示“未输入查找内容!”的提示。补充后的代码如下：Dimstr()AsStringDimnumAsIntegerDimrelAsStringPrivateSubCommandl_Click()DimtmpAsStringDimjAsIntegerDimiAsIntegernum=0rel=""Open”App．Patb&＼in5．txt”ForInputAs#1’打开文件进行读取WhileEOF(1)=False’判断是否读取到文件末尾Input#1，tmpnum=num+1’获得字符串个数WendClose#1ReDimstr(num)’重新分配数组控件Open"App．Path&＼in5．txt"ForInputAs#1Fori=1TonumInput#1，str(i)’读取字符串数组NextiClose#1Fori=1Tonum’利用For循环进行查找Forj=1ToLen(str(i))’逐个字符查找IfTextl．Text=Mid(str(i)，i，1)Thenrel=rel+str(i)+""’将查找到的结果放人字符串中Elsej=j+1’如果没有查找则计数加1EndIfNextjNextiIfrel=""Thenrel="未找到!"’如果没有查找到则显示"未找到"EndIfIfTextl．Text=""Thenrel="未输入查找内容!"EndIfText2．Text=rel’在Text2中显示结果EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上画一个名称Checkl的复选框数组(Index属性从0开始)，含4个复选框，其标题分别为“Iternl”、“Item2”、“Itern3”和“Item4”。利用属性窗口设置适当的属性，使“Iteml”未选，“Item2”、“Item3”被选中，“Item4．”为灰色，程序运行时的窗体界面如图64—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sj1．frm。(2)在窗体上画一个命令按钮。其名称为Commandl，标题为“清空标题”，编写适当的事件过程。程序运行后，窗体的标题为“模拟考试”，如图64—2所示，如果单击命令按钮，则清除窗体的标题，如图64—3所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)本题考查在窗体中加入控件数组及复选框控件(CheckBox)的使用。复选框组可用于实现多重选择，每个复选框的选中状态由其Value属性值决定：0为未选；1为选中；2为不可用(即灰色)。根据题意，将一个复选框控件添加到窗体中，其名称为Checkl，再选中此复选框，复制、粘贴，在弹出的对话框中选择‘‘是”，即创建含有4个控件的控件数组。Index属性分别为0、1、2、3，Caption属性分别为“heml”、“hem2”、“hem3”和“Item4”，“Iteml，，的Value属性为0，“Item2’’和“hem3”的Value属性为1，“Item4”的Value属性为2。单击按钮运行程序，并按要求保存。、(2)本题考查命令按(CommandButton)控件的画法和窗体相关属性，以及简单的事件过程编写。根据题意，将一个命令按钮添加到窗体中，其名称为Commandl、Caption属性为。“清空标题”，Forml的Caption属性为“模拟考试”。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()Forml．Caption=""EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后，在列表框中选择所需要的项目，单击“导出”按钮，把所选择的项目移到组合框中。如果单击“导人”按钮，则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图50—3所示。注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本题在窗体Forml中有一个文本框，名称为Textl；另有一个命令按钮，名称为Commandl，标题为“判断”。要求该应用程序具有数据过滤功能，即检查用户在文本框中输入的数值是否在能被3整除。如果是，则退出程序；否则在文本框巾显示“不能被3整除”，同时使焦点重新回到文本框中。程序运行时的窗体界面如图50—4所示。注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：(1)列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按“Ctrl+Enter”组合键换行再输人下一项)，也可在程序运行时通过代码“列表框名．AddItem“巧目”加入”；MultiSelect用于设置是否可在列表项中做多个选择，值为0(缺省设置)表示不允许做多项选择，值为1表示允许做简单多项选择，值为2表示允许按住“Shift+Ctrl”键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)，值为True表示被选中，值为False表示未被选中；List(Index)属性用于设置或返回指定索弓1号的列表项的内容；ListCount属性用来返回列表框中当前的列表项条数；RemoveItem方法用于删除指定索引号的列表项。根据题意，将一个列表框控件、一个组合框ComboBox控件和两个命令按钮添加到窗体中，列表框的名称为Listl、Sorted属性为True，ComboBox的名称为Comb01，命令按钮的名称分别为Commandl和Command2，Caption属性分别为“号出”和“导入”。双击Commandl进入代码窗口，补充后的代码如下：PrivateSubCommandl_Click()IfListl．Listlndex>-1Then，’如果Listl有选中项Comb01．AddItemListl．List(Listl．ListIndex)’将Listl中的选中项添加到Combol中Listl．RemoveItem(Listl．Listlndex)’将选中项从Listl中删除EndIfEndSubPrivateSubCommand2_Click()IfComb01．ListIndex>-1Then，’如果Combol有选中项则执行Listl．AddhemCombo1．List(Comb01．Listlndex)’将Comb01的选中项添加到List中Comb01．RemoveItemComb01．ListIndex’将选中项从Combol中删除EndIfEndSub单击按钮运行程序，并按要求保存。(2)本题主要考查考生对SetFocus方法和LostFocus事件的掌握。当按键盘上“Tab”键或单击其他对象时，当前对象将失去焦点并触发LostFocus事件；SetFocus方法用于将焦点移到擗定的对象上。题目要求文本框应具有数据过滤功能，即当在文本框中输入数据时，会自动完成对输入数据的检查，故要用SetFocus方法使文本框获取焦点。根据题意，将一个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“判断”，文本框的名称为Textl、Text属性为空。双击Commandl，进入代码窗口，编写如下代码：PrivateSubCommandl_Click()DimaAsIntegera=Val(Textl．Text)’读取Textl中读取的数IfaMod3=0ThenUnloadMe’当能被3整除时，关闭窗口ElseTextl．Text="不能被3整除"’当不能被3整除时，在Textl中显示Textl．SetFocusEndIfEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共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机试模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在Forml的窗体上建立一个主菜单，标题为“命令”，名称为Com，该菜单有3个子菜单，其标题分别为“输出”、“删除”和“关闭”，其名称分别为Prin、Del和Close。编写适当的事件过程，程序运行后，如果单击“命令”菜单中的“输出”命令，则在窗体上显示“HelloWorld!”；如果单击“删除”命令，则删除窗体上显示的内容，“关闭”命令为关闭对话框。程序的运行情况如图37—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。(2)在Form1的窗体上画一个标签，其名称为Labell；再画一个列表框，其名称为Listl，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目序号数和项目文本在标签中显示出来。程序中不准使用任何变量，运行情况如图37—2所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sj2．vbp，窗体文件名为sj2．frm。标准答案：(1)VisualBasic中，菜单也具有属性和事件。菜单由“菜单编辑器”来创建。在窗体上打印信息通过Print方法来实现。清除在窗体上的打印信息要通过Cls方法来实现，Cls方法清除运行时Form或PictureBox所生成的图形和文本。其语法为：object．Cls。object表示一个对象表达式。如果省略object，则默认为当前的Form窗体。根据题意，在窗体空白处单击右键，选择“菜单编辑器”，进人“菜单编辑器”对话框，添加以下菜单项：设置完成后，在代码窗口编写如下代码：PrivateSubClose_Click()’关闭命令UnloadMeEndSubPrivateSubDel_Click()’删除命令Me．ClsEndSubPrivateSubPrin_Click()’输出命令Print"HelloWorld!"EndSub单击按钮运行程序，并按要求保存。(2)双击控件触发其DblClick事件。列表框中的表项可以通过“属性”窗口的List属性设置，也可以通过AddItem方法在程序中添加。本题是通过属性窗口来设置的。根据题意，将一个列表框控件和一个标签添加到窗体中，列表框的名称为Listl，在List属性中添加“足球”“篮球”“排球”和“乒乓球”，每输人完一项按“Ctrl+Enter”组合键换行，进行新的输入，当输入完成后，按回车键，标签的名称为Labell、Caption属性为空。双击Listl进入代码编写窗口，将选中项的序号和内容连在一起放人Labell中显示出来，注意题目要求程序中不得使任何变量，应该编写如下代码：PrivateSubListl_DblClick()Labell．Caption=Str(Listl．Listlndex+1)+Listl．List(Listl．ListIndex)EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)考生文件夹下有一个工程文件sj3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Comb01的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符(即“’”)，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。(2)在考生目录下有一个工程文件sj4．vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Textl、Text2的两个文本框，用于接收输入的M和N(要求M标准答案：(1)本题主要考查组合框的List属性，文本框的Text属性，MsgBox()函数以及If判断语句。根据题意，编写如下代码：PrivateSubCommandl_Click()Comb01．AddItemTextl．TextTextl．Text=""EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)IfKeyAscii>57OrKeyAscii<48ThenMsgBox"请输入数字!"KeyAscii=0EndIfEndSub单击按钮运行程序，并按要求保存。(2)本题主要考查标签的Caption属性，Val()函数和For循环语句。根据题意，编写如下代码：PrivateSubCommandl_Click()DimmAsIntegerDimnAsIntegerDimSAsLongDimiAsIntegerDimtAsIntegerm=Val(Textl．Text)n=Val(Text2．Text)s=0Fori=mTont=f(i)s=s+tNextilblResult．Caption=sEndSubPrivateFunctionf(ByRefxAsInteger)AsLongDimtAsLongt=1Fori=1Toxt=t*iNextif=tEndFunction单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“计算保存”，如图3—6所示。要求程序运行后，如果单击“读人数据”按钮．则读人in．txt文件中的100个整数，放人一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算数组中大于或等于400并且小于800的所有数之和，并将结果在文本框Text1中显示出来，同时把结果存入考生文件夹的result．txt文件中(在prog．bas中的putdata过程可以把结果存人result．txt文件)。注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入result．txt文件中，否则没有成绩。标准答案：文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。本题涉及到文件的操作，读入顺序文件以顺序的方式打开，用”Input#”语句读取数据。另外需要注意的是，对文件操作结束后，一定要关闭文件。①建立界面并设置控件属性。程序中用到的控件及其属性如下表所示：②打开工程资源管理器，在其空白处右键添加模块prog．bas(此文件已在考生文件夹里)，模块代码如下：OptionExplicitSubputdata(ByValaAsLong)DimsFileAsStringsFile="＼resuh．txt"OpenApp．Path&sFileForOutputAs#1Print#1，a；Close#1EndSub③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：Dimi(1To100)AsIntegerPrivateSubCmdlClick()DimjAsIntegerj=0OpenApp．Path&"＼in．txt"ForInputAs#1Fori=1To100Input#1，i(j)NextjClose#1Fori=iTo100Textl．Text=Textl．Text&i(j)&Space(5)NextjEndSubPrivateSubCmd2Click()DimsumASLongDimjAsIntegersum=0Textl．Text=""Forj=1To100Ifi(j)>=400Andi(j)<800Thensum=sum+i(j)EndIfNextjTextl．Text=Textl．Text&sum&Space(5)putdatasumEndSub标准模块代码OptionExplicitSubputdata(ByValaAsLong)DimsFileAsStringsFile="＼result．txt"OpenApp．Path&sFileForOutputAs#lPrint#1，a；Close#1EndSub知识点解析：暂无解析VB机试模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、在Form1窗体上绘制一个名称为Textl的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和“隐藏”，名称分别为Dis和Hid，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在文本框中显示“计算机考试”；如果单击“隐藏”命令，则隐藏文本框。程序的运行情况如图47—1和图47—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。(2)在名为Forml的窗体上绘制一个标签，名为Labl，标题为“请输入一个摄氏温度”；绘制两个文本框，名称分别为Textl和Text2，内容设为空；再绘制一个名为Cmdl的命令按钮，其标题为“华氏温度等于”。编写适当的程序，使得单击“华氏温度等于”按钮时，将Textl中输人的摄氏温度(c)转换成为华氏温度(f)，转换公式为：f=c*9／5+32，并显示在Text2中。程序运行结果如图47—3所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)本题主要考查菜单的使用。菜单在“菜单编辑器”中创建；在程序运行时控件是否可见由该控件的Visible属性决定，如果将该属性设置为True时，则对象可见；如果设置为False，则隐藏该控件。①建立界面并设置控件属性。程序中用到的控件及其属性见下表：②编写程序代码。参考代码如下：PrivateSubDisClick()Textl．Text="计算机考试"EndSubPrivateSubHidClick()Textl．Visible=FalseEndSub③调试并运行程序。④按题目要求存盘。(2)①新建一个名为Forml的窗体。②单击工具箱中的Label控件图标，在窗体上拖拉出一个标签，在其属性窗口设置名称为Labl、Caption属性为“请输入一个摄氏温度”。③单击工具箱中的CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl、Caption为“华氏温度等于”。④单击工具箱中的T"extBox控件图标，在窗体上拖拉出两个文本框，在属性窗口将文本框的名称分别设置为Textl和Text2、Text属性设置为空。⑤打开代码窗口输入如下代码：PrivateSubCmdl_Click()DimcAsSingle．fAsSinglec=Val(Textl．Text)f=c*9／5+32text2．Text=CStr(f)EndSub⑥按要求保存文件即完成本题。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有工程文件sj3．vbp与窗体文件sj3．frm，该程序和窗体是不完整的。请在窗体上设置一个标签，名称为Labell，标题为“计算1／2-1／3+1／4-1／5+1／6的值”；另设一个文本框与一个命令按钮。命令按钮的名称为Commandl、标题为“计算”；文本框的名称为Textl，用于显示结果，并初始化为空。然后编写相应的代码，要求运行程序时，单击“计算”按钮，程序可以计算出1／2-1／3+1／4-1／5+1／6的值，并将结果显示在文本框中，如图26—3所示。注意：考生完成程序编写后，将工程文件与窗体文件按原文件名保存到考生文件夹下，不得更改程序的其他部分，否则可能无成绩。(2)新建一个工程文件，在名称为Forml的窗体上建立两个名称分别为Commandl和Command2、标题分别为“平均分”和“清空”的命令按钮；一个名为Textl的文本框。要求程序运行后，单击“平均分”按钮，可通过输入对话框输入7个整数，去掉最大的和最小的然后求平均分，将结：果在文本框中显示出来。如果单击“清空”按钮，则将文本框清空。在程序中不得使用任何其他变量。程序运行时的窗体界面如图26—4所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj4．frm，工程文件名为sj4．vbp。标准答案：(1)根据题意，将一个Label控件，一个Text控件和一个Command控件添加到窗体上，Label的Caption属性为“计算1／2-1／3+1／4-1／5+1／6的值”，Text的名称分别为Textl，Text属性为空，Command的名称为Commandl，Caption属性为“计算”。双击Commandl命令按钮，编写如下代码：PrivateSubCommandl_Click()DimtotalASDoubleDimnAsIntegerDimaAsIntegertotal=0a=-1Fori=1To5a=a*(-1)total=total+a／(i+1)NextiTextl．Text=totalOpen"App．Path&＼out3．txt"ForOutputAs#1Pnt#1，Textl．TextClose1EndSub单击按钮运行程序，并按要求保存。(2)根据题意，新建“标准EXE”工程，在窗体上添加一个Text控件和两个Command控件，Text的名称为Textl、Text属性为空，Command的名称分别为Commandl和Command2，Caption属性分别为“平均分”和“清空”。双击Commandl命令按钮，编写如下代码：Dima(7)AsIntegerPrivateSubCommandlClick()DimiAsIntegerFori=1To7a(i)=Val(InputBox("请输入第"+CStr(i)+"个得分"))NextiFori=1To7’降序排列temp=a(i)Forj=1ToiIfa(j)按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在窗体上绘制两个命令按钮，名称分别为Commandl和Command2，标题分别为“输人”和“调换”，两个标签，名称为Labell和Label2、Caption属性为“调换前：”和“调换后：”，两个名称分别为Text1和Text2的文本框控件。请编写适当的事件过程，从键盘上输人10个整数，并放人一个一维数组中，然后将其前5个元素与后5个元素对换，即第一个元素与第10个元素互换，第2个元素与第9个元素互换第5个元素与第6个元素互换。使得在运行时单击“调换”按钮，则分别在Textl和Text2中输出数组原来的各元素的值和对换后各元素的值，如图23—5所示。注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：要对数据进行对调，也就是数据交换，一般要借助中间变量，如本题的tmp。本题首先通过InputBox函数输入10个数，然后通过For循环，每次循环调换一组数。补充后的代码如下：Dima(10)AsIntegerPrivateSubCommandlClick()DimiAsIntegerDimstrAsStringstr=""Fori=1To10a(i)=Val(InputBox("请输入数字"))’通过对话框输入10个数，并放人数字中str=str+CStr(a(i))+""’将数组放入字符串中保存NextiTextl．Text=str’在Textl中显示结果EndSubPrivateSubCommand2Click()DimtmpAsIntegerDimiAsIntegerDimstrAsStringstr=""For1=1To5tmp=a(i)’进行对调，先将a(i)的数据放人tmp中a(i)=a(10-i+1)’将a(10-i)的数据放人a(i)中a(10-i+1)=tmp’将tmp的数据放人a(10-i)中NextiFori=1To10str=str+CStr(a(i))+""NextiText2．Text=str’将结果在Text2中显示出来EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个主菜单，标题为“操作”，名称为op，该菜单有两个子菜单，其标题分别为“显示”和“清除”，其名称分别为Dis和Clear，编写适当的事件过程。程序运行后，如果单击“操作”菜单中的“显示”命令，则在窗体上显示“等级考试”；如果单击“清除”命令，则清除窗体上显示的内容。程序的运行情况如图1-196所示。注意；存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画一个标签，其名称为Labl；再画一个列表框，其名称为L1，通过属性窗口向列表框中添加若干项目，每个项目的具体内容不限。编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序运行情况如图1-197所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2-112中的设置建立菜单项。步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：PriVateSubClea_Click()ClsEndSubPriVateSubDis_Click()Print"等级考试"EndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中加入一个列表框，在属性设置窗口中将其Name属性设置为Ll，在其List属性中任意添加四个项目。注意：每输入完一项后按键换行再输入下一项。在窗体上再画出一个标签，名称为Labl。步骤2：打开代码编辑窗口，编写列表框的DblClick事件过程：参考代码：PriVateSubL1_DblClick()Labl．Caption=L1．ListCountEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题本题需用菜单设计器建立菜单，并编写“显示”和“清除”菜单项的单击事件过程。第2小题列表框控件(ListBox)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用Addltem方法加入，列表框中的项目总数由列表框的ListCount属性可以得到。双击列表框中的某个项目，将触发其DblClick事件。要实现双击列表框中的某一项，就把列表框中的项目总数显示在标签中，只需在DblCliek事件过程中编写添加项目的语句即可。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，其窗体上有一个名称为Labell的控件数组，含三个标签，标题分别是“开始时间”、“结束时间”和“通话费用”；有一个名称为Textl的控件数组，含三个初始值为空的文本框；此外还有两个名称分别为Cmdl和Cmd2的命令按钮，标题分别是“通话开始”和“通话结束”。其中通过属性窗口对“通话结束”命令按钮的初始状态设置为禁用，如图1-73所示。该程序的功能是计算公用电话计时收费。计时收费标准为：通话时间在3分钟以内时，收费0．5元；3分钟以上时，每超过1分钟加收0．15元，不足1分钟按1分钟计算。程序执行的操作如下：①如果单击“通话开始”按钮，则在“开始时间”右侧的文本框中显示开始时间，且“通话结束”命令按钮变为可用状态，“通话开始”命令按钮不可用；②如果单击“通话结束”按钮，则“结束时间”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在“通话费用”右侧的文本框中，“通话开始”命令按钮变为可用状态，“通话结束”命令按钮不可用。在窗体文件中已经给出了全部控件(如图l-73所示)和程序，但程序不完整，要求去掉程序中的注释符，把?改为正确的内容，以实现上述功能。注意；不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4．vbp，文件in4．txt中有5组数据，每组10个，依次代表语文、英语、数学、物理、化学这5门课程10个人的成绩。程序运行时，单击“读入数据”按钮，可从文件m4．mr中读入数据放到数组a中。单击“计算”按钮，则计算5门课程的平均分(平均分取整)，并依次放入Textl文本框数组中。单击“显示图形”按钮，则显示平均分的直方图，如图1-74所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。标准答案：第1小题【操作步骤】步骤l：打开考生文件下的本题工程文件sjt3．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：Textl(0)．text=Str(Time())s=s+(m-3)*0．15Cmdl．Enabled=TrueCmd2．Enabled=False步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤l：打开考生文件下的本题工程文件sjt4．vbp。在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：OpenApp．Path&"＼in4．txt"ForInputAs#1s(i)=s(i)+a(i，j)8(i)=CInt(s(i)／10)Shapel(k-1)．Top=m-Shapel(k-1)．-HeightShape1．(k-1)．Visible=True步骤2：按要求将文件保存至考生文件夹中。知识点解析：第1小题Enabled属性用于设置控件或菜单项在程序运行时是否有效，值为True时表示有效，值为False时表示无效(显示为灰色)。题目要求在单击“通话开始”按钮时，在“开始时间”右侧的文本框中显示开始时间，故CmdlClick事件过程中的?处应改为：Textl(0)．text。在单击“通话结束”按钮时，先计算通话时长，再计算通话费用。若通话时长在3分钟以上，则通话费用为：s+(m-3)*0．15。设置Cmdl的．Enabled属性值为True，将使“通话开始”命令按钮变为可用，设置Cmd2的Enabled属性值为Fasle，将使“通话结束”命令按钮不可用。第2小题“读入数据”按钮的单击事件过程中，Open语句用于打开数据文件以读入数据，故?应改为：Input。“计算”按钮的单击事件过程中，原程序用嵌套For循环来计算5门课程的平均分，其中内循环体中变量s(i)用于统计：某课程的总分，表达式为：s(i)=s(i)+a(i，j)，外循环体中变量s(i)的最终值应为某课程的平均分。“显示图形”按钮单击事件过程的For循环中，根据每门课程的平均分，先计算出对应直方图的高度，然后计算该直方图的Top属性值(应为水平直线的Y1(或Y2)属性值减去直方图的高度)，最后显示该直方图(通过设置其Visible实现)。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sit5．vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为Textl的文本框；画一个名称为cl、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为Opl、Op2，标题分别为“求500到600之间能被7整除的数之和”、“求500到600之间能被3整除的数之和”(如图1-225所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sit5．vbp，如表2-132所列在窗体Forml中画出控件，分别设置它们的相关属性。步骤2：打开代码编辑窗口，编写“计算”按钮的单击事件过程。参考代码：PriVateSubC1_Click()IfOpl．ValueThenTextl．Text=fun(7)EndIfIfOp2．ValueThenTextl．Text=fun(3)EndIfEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：本题原程序中已包含一个能计算“500～600之间能被整数a整除的数之和”的自定义函数，其中a为函数的形参，还需编写“计算”按钮的单击事件过程。在该事件过程中根据单选按钮的选择情况，来确定除数的值：如果opl被选中，则除数应为7，通过执行语句Textl．Text=fun(7)可调用自定义函数求出500～600之间能被7整除的数之和，并显示在文本框中；如果Op2被选中，则除数应为3，通过执行语句Textl．Text=fun(3)可调用自定义函数求出500～600之间能被3整除的数之和，并显示在文本框中。VB机试模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上画一个名称为Textl的文本框，其高、宽分别为600、1800。请在属性框中设置适当的属性满足以下要求：Text1的字体为“隶书”，字号为“三号”；窗体的标题为“字体大小”，不显示最大化按钮和最小化按钮，如图49—1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。(2)在Forml的窗体上画一个文本框，其名称为Textl；再画两个命令按钮，其名称分别为Commandl和Command2、标题分别为“显示”和“清空”，编写适当的事件过程。程序运行后，如果单击“显示”按钮，则在文本框中显示“模拟考试”，并使“清空”按钮可用。此时如果单击“清空”按钮，则清空文本框，同时该按钮变为不可用。程序中不得使用任何变量。程序运行时的窗体界面如图49—2和图49—3所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Textl、Caption属性为“模拟考试”，Fonl属性为“隶书”、“三号”，Forml的MaxButton和MinButton属性为“False”，Caption属性为“字体大小”。单击按钮运行程序，并按要求保存。(2)根据题意，新建“标准EXE”工程，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为Textl、Text属性为“模拟考试”，命令按钮的名称分别为Commandl和Command2、Caption属性分别为“显示”和“清空”。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()Textl．Text="模拟考试"’在Textl中显示"模拟考试"Command2．Enabled=True’将“清空”按钮变为可用EndSubPrivateSubCommand2_Click()Textl．Text=""’单击“清空”，则清空Textl中的文本Command2．Enabled=False’将“清空”按钮变为不可用EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在名称为Forml的窗体中画一个名称为Textl的文本框，其标题为“0”；再添加一个名称为Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程．使得在运行时，每隔1秒钟文本框中的数字加1，当达到10时，在窗口上打印“10”，然后重新从O开始计数，如图43—3所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sj3．vbp，窗体文件名为sj3．frm。(2)在考生文件夹下有工程文件sj4．vbp，窗体文件sj4．frm，该程序是不完整的。在窗体上已经画出两个图像框，名称分别为Imagel和Image2；一个水平滚动条，名称为HScrolll。要求考生不改动Imagel和Image2的Wi