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

VB机试模拟试卷19（共9套）（共27题）VB机试模拟试卷第1套一、基本操作题(本题共1题，每题1.0分，共1分。)1、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。(1)在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。标准答案：滚动条的最大值由Max属性设置，最小值由Min属性设置。鼠标卓击滚动条上滚动框以外的区域(不包括两边按钮)滑块移动的增量值由LargeChange属性设置。标签上的标题由Caption属性设置，控件的名称由Name属性设置。解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表19-2。第二步：调试并运行程序。第三步：按题目要求存盘。(2)在VisualBasic中，菜单项通过“菜单编辑器”窗口建立，在窗体上单击右键选择“菜单编辑器”选项可以打开“菜单编辑器”窗口；文本框的内容由Text属性设置，其形式为：文本框名．Text=要显示的内容。解题步骤：第一步：建立界面并设置控件属性。程序中用到的菜单项和控件的属性见表19-3。第二步：编写程序代码。参考代码：OptionExplicitPrivateSubClear_Click()Text2.Text=""EndSubPrivateSubCopy_Click()Text2.Text=Text1.TextEndSub第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。(1)在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm，请装入该文件，在窗体上画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加项目”和“删除项目”，再画一个列表框和一个文本框，名称分别为List1和Text1，如图21-4所示。编写适当的事件过程。程序运行后，如果单击“添加项目”命令按钮，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果单击“删除项目”命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图21-5所示。提供的窗体文件可以实现上述功能，但这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjtt4.vbp，相应的窗体文件名为sjt4.frm，其功能是通过调用过程FindMax求数组的最大值，请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最大值，并在窗体上显示出来，如图21-6所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。标准答案：使用AddItem方法向列表框中添加列表项目，其格式为：列表.AddItem项目字符串[,索引值]AddItem方法把“列表字符串”的文本内容放入“列表框”中。如果省略“索引值”则文本本放在列表框的尾部。“索引值”可以指定插入项在列表框中的位置，表中的项目从0开始计数，“索引值”不能大于表中的项数减1。该方法只能单个的项列表框中添加项目。使用RemoveItem方法从列表框中删除列表项目其格式为：列表.RemoveItem索引值RemoveItem方法从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-3。第二步：编写程序代码。程序提供的代码：PrivateSubCommand1_Click()Text1.Text=InputBox("请输入要添加的项目")’List1.AddItem?EndSubPrivateSubCommand2_Click()Text1.Text=InputBox("请输入要删除的项目")’Fori=0To?’IfList1.List(i)=?Then’List1.RemoveItem?EndIfNextiEndSub参考代码：PrivateSubCommand1_Click()Text1.Text=InputBox("请输入要添加的项目")List1.AddItemText1.TextEndSubPrivateSubCommand2_Click()Text1.Text=InputBox("请输入要删除的项目")Fori=0ToList1.ListCount-1IfList1.List(i)=Text1.TextThenList1.RemoveItemiEndIfNextiEndSub第三步：调试并运行程序。第四步：按题目要求存盘。(2)文本框里的内容(包括数字)默认都是当作字符串来处理的，如果要参与数据运算则需先用Val()函数将其转化为数字(如：Va1(Text1.Text))。这里需要指出的是利用Array对数组各元素赋值，声明数组的类型只能是Variant。数组的上下界可用LBound函数和UBound函数分别获得：程序中变量Max保存最大数，最初把数组的第一个元素赋给Max，然后将其后的元素依次与之比较，如果大于Max的值则与之交换，后面又将Max作为标杆，依次类推，最终MAX中的元素就是最大值。在窗体上打印信息可以通过Print方法来实现，其形式为：[对象.]Print要显示的内容解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-4。第二步：编写程序代码。程序中提供的代码：OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsInteger’Start=?(a)’Finish=?(a)’Max=?(start)Fori=StartToFinish’Ifa(i)?MaxThenMax=?NextiFindMax=MaxEndFunctionPrivateSubCommand1_Click()Dimarr1Dimarr2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4’arr2(i)=CInt(?)Nexti’M=FindMax(?)Print"最大值是：";MEndSub参考代码：OptionBase1PrivateFunctionFindMax(a()AsInteger)DimStartAsIntegerDimFinishAsInteger,iAsIntegerStart=LBound(a)Finish=UBound(a)Max=a(Start)Fori=StartToFinishIfa(i)＞MaxThenMax=a(i)NextiFindMax=MaxEndFunctionPrivateSubCommand1Click()Dimarr1Dimart2(4)AsIntegerarr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))Fori=1To4arr2(i)=CInt(arr1(i))NextiM=FindMax(arr2)Print"最大值是：";MEndSub第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、注意：下面出现的“考生文件夹”均为c：\wexam\25160001。在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1；两个命令按钮，名称分别为C1和C2，标题分别为“计算”、“存盘”，设计界面如图20-5所示。并有一个函数过程isprime，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请将程序中问号的地方用相应的代码补充完整，使得在运行时，单击“计算”按钮，则找出小于18000的最大的素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5.txt文件中，否则无成绩。标准答案：在窗体上建立好控件后，先设置控件的属性，再编写事件过程。素数的判断准则就是看是否该数除了1和其本身外别无其他约数(即从2到n-1之间没有可以将其整除的数)即可，变量flag是用于保留判断数是否是素数的结果的，值有True和False两个(从程序中可以看出)所以应将其定义为布尔型(Boolean)，并且在函数中判断完之后，将flag的值赋给函数过程isprime的名字。文本框用Text属性来显示计算机结果，其形式为：文本框名.Text=要显示的内容将数据写入文件可用命令Write#或Print#，本程序中用的是后者，其形式为：Pint#文件号，[输出列表]。解题步骤：第一步：建立界面并设置控件属性。程序中用到的控件及其属性值见表20-5。第二步：编写程序代码。程序中提供的代码：PrivateFunctionisprime(aAsInteger)AsBoolean’DimflagAs?flag=Trueb%=2DoWhileb%＜=Int(a/2)AndflagIfInt(a/b%)=a/b%Thenflag=FalseElseb%=b%+1EndIf’?isprime=flagEndFunctionPrivateSubC1Click()DimiAsIntegeri=18000Doi=i-1LoopUntilisprime(i)’Text1.?=iEndSubPrivateSubC2Click()Open"out5.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSub参考代码：PrivateFunctionisprime(aAsInteger)AsBooleanDimflagAsBooleanflag=Trueb%=2DoWhileb%＜=Int(a/2)AndflagIfInt(a/b%)=a/b%Thenflag=FalseElseb%=b%+1EndIfLoopisprime=flagEndFunctionPrivateSubC1_Click()DimiAsIntegeri=18000Doi=i-1LoopUntilisprime(i)Text1.Text=iEndSubPrivateSubC2_Click()Open"out5.txt"ForOutputAs#1Print#1,Text1.TextClose#1EndSub第三步：调试并运行程序。第四步：按题目要求存盘。知识点解析：暂无解析VB机试模拟试卷第2套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上绘制一个标签和两个单选按钮。标签的名称为Labell，初始时内容为空。单选按钮的名称分别为Optionl、Option2，标题分别为“Iternl”和“Item2”。编写适当的事件过程，使得程序运行时Optionl按钮被选中，标签中显示“选中Iternl”，如图24—1所示。如果单击Option2按钮，标签中显示的内容为“选中Item2"。程序中不得使用任何变量。注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．Vbp。(2)在名称为FOrml的窗体上，绘制一个形状控件和一个命令按钮。形状控件为圆形，名称为Shapel。命令按钮为Commandl，标题为“变正方形”。编写适当的事件过程，使得程序运行时，单击命令按钮，圆形将隐藏起来，显示正方形。程序中不得使用任何变量。程序运行时的窗体界面如图24—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)根据题意，新建“标准EXE”工程，将一个标签和两个单选按钮控件添加到窗体中，标签的名称为Labell、Caption属性为空，单选按钮的名称分别为Optionl和Option2、Caption属性分别为“Iteml”和“Item2”。双击窗体进入代码窗口，编写如下代码：PrivateSubForm_Load()’初始化Labell．Caption="选中"+Optionl．CaptionEndSubPrivateSubOptionl_Click()’选中ItemlLabell．Caption="选中"+Optionl．CaptionEndSubPrivateSubOption2_Click()’选中Item2Labell．Caption=”选中”+Option2．CaptionEndSub单击按钮运行程序，并按要求保存。(2)根据题意，新建“标准EXE”工程，将一个命令按钮和一个Shape控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“变正方形”，Shape的名称为Shapel、Shape属性为3。双击Commandl进入代码窗口，编写如下代码：PrivateSubCommandl_Click()Shapel．Shape=1’单击变正方形，Shapel变为正方形EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有两个名称分别为Labell和Label2的标签，两个名称分别为Textl和Text2的文本框控件和两个名称分别为Commandl和Command2的命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的偶数的累加和。本题要求刚启动工程时，“计算”和“清空”按钮均为灰色，可以在Textl文本框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时“计算”变为可用；当计算完成后．“计算”变为不可用；当输人为非数值时，累加结果为0。单击“计算”可以在Text2中显示累加和，且该框内的文字不可修改；同时“计算”变灰。“清空”变为可用。单击“清空”，输入框和显示框均被清空，同时“计算”和“清空”变为不可用。如图56—3所示。注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。(2)在考生文件夹中有文件sj4．vbp及其窗体文件sj4．frm，窗体已经设计好，要求考生用If语句编写程序，使得程序运行。窗体上有两个复选框，名称分别为Checkl和Check2。标题分别为“ItelTll”和“Itern2”；两个单选按钮，名称分别为Optionl和Option2。标题分别为“选择”和“其他”；一个名称为Labell、Caption属性为空的标签；一个名称为Commandl、标题为“显示”的命令按钮，一个名称为Textl的文本框，Text属性为空。要求程序运行后，对选中Optionl时checkl和Check2可用，Textl也可用，当选中Option2的时候，Textl可用，Checkl和claeck2不可用，然后单击显示按钮．可在窗体上显示相应的信息，如选中Optionl，则显示选中复选框的信息，选择Option2则显示Textl中的信息。程序运行时的界面如图56—4所示。注意：不得使用任何变量。存盘时不得改变文件夹和文件名。标准答案：(1)根据题意，将一个Label控件、两个Text控件和两个Command控件添加到窗体上，Label的Caption属性为“求1到用户输入数之间的所有偶数之和，并将结果显示出来。”，Text的名称分别为Textl和Text2、Text属性分别为空和Text2，Text2的Enable属性为False，Command的名称分别为Commandl和Command2、Caption属性分别为“计算”和“清空”。双击Commandl命令按钮，编写如下代码：PrivateSubCommandl_Click()DimaAsIntegerDimtotalAsLongDimiAsIntegera=Val(Textl．Text)’将Textl中的数据读入，放到a中total=0Fori=1Toa’利用For循环逐个判断IfiMod2=0Then’当判断是偶数时total=total+i’则相加EndIfNextiText2．Text=total’将结果写入Text2中Commandl．Enabled=False’Commandl不可用EndSubPrivateSubCommand2一Click()Textl．Text=""’Textl清空Text2．Text=""’Text2清空Commandl．Enabled=False’Commandl不可用Command2．Enabled=False’Command2不可用EndSubPriyateSubText1_Change()Commandl．Enabled=True’Commandl可用Command2．Enabled=True’Command2可用EndSub单击按钮运行程序，并按要求保存。(2)按要求设计好窗体后，双击Commandl命令按钮打开代码窗口，补充完整后的代码如下：PrivateSubCommandl_Click()DimstrAsStringstr=""IfOptionl．Value=TrueThen’如果选择的是OptionlIfCheckl．Value=1Then’则判断选中的复选按钮str=str+Checkl．Caption’如果选中Checkl，则显示ItemlEndIfIfCheck2．Value=1Then’如果选中Check2str=str+Check2．Caption’则显示Item2EndIfC1sPrintstr’在窗体上打印出来Else，’如果选择的是Option2ClsPrintTextl．Text’则显示Textl的内容EndIfEndSubPrivateSubOptionl_Click()’单击OptionlTextl．Enabled=False’Textl不可用Checkl．Enabled=True’Checkl可用Check2．Enabled=True’Check2可用EndSubPrivateSubOption2_Click()Textl．Enabled=TrueCheckl．Enabled=FalseCheck2．Enabled=FalseEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名为Listl的列表框，列表框中有若干列表项，如图40—6所示，通过属性窗口设置列表框的MultiSelect属性值为1，一个名为Textl的文本框，还有两个命令按钮，名称分别是Commandl和Command2，标题分别是“全选”和“存盘”。要求在程序运行时，单击commandl按钮则将Listl中的全部列表项选中，然后单击Command2按钮，将Listl中的全部列表项写入Textl中，并写入文本文件out．txt中，并将out．txt保存在考生文件夹下。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：本题主要考查列表框的使用。列表框用于在很多项目中作出选择的操作。列表框的ListCount属性表示表项的数量，列表项的排列从0开始，最后一项的序号为ListCount-1。使用列表项的Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为True或False，为True时表示选择了该项，为False表示未选择。根据题意，将两个命令按钮、一个列表框控件和一个文本框控件添加到窗体中，命令按钮的名称分别为Commandl和Cornmand2、Caption属性分别为“全选”和“存盘”，列表框的名称为Listl，文本框的名称为Textl。补充后的具体代码如下：PrivateSubCommandlClick()DimiAsIntegerDimstrAsStringstr=""Fori=0ToListl．ListCount-1Listl．Selected(i)=True’将所有的列表项都选中str=str+Listl．List(i)’将选中的文本写入一个变量里面，最后一起输出NextiTextl．Text=strEndSubPrivateSubCommand2Click()OpenApp．Path&"＼Out．txt"ForOutputAs#1’打开文件DimiAsIntegerFori=0T0Listl．ListCount-1Print#1，Listl．List(i)’将每一项都写入到文件中NextiClose#1EndSubPrivateSubFormLoad()Listl．AddItem"足球"’向列表中添加选项Listl．AddItem"篮球"Listl．Addltem"排球"EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第3套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画两个文本框，其名称分别为Tcxtl和Text2，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性满足以下要求：①Text2可以显示多行文本，且有垂直和水平两个滚动条；②运行时在Textl中输入的字符都显示为“*”。运行后的窗体如图1-166所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画一个图像框，名称为tmagcl，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件picl．bmp装入图像框；再画两个命令按钮，名称分别为Cl、C2，标题分别为“放大”、“缩小”，如图1-167所示。要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则把图像框的高度、宽度均增加100；单击“缩小”按钮，则把图像框的高度、宽度均减少100。要求程序中不得使用任何变量。②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤l：新建一个“标准EXE”工程，在窗体Forml中画两个文本框，并分别设置它们的相关属性，其属性及值如表2-94所示。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-95在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。参考代码：PriVateSubC1_Click()Imagel．Width=Imagel．Width+100Imagel．Height=Imagel．Hei．ght+100EndSubPriVateSubC2_Click()Imagel．Width=Imagel．Width一100Imagel．Height=Imagel．Hei．ght-100EndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题文本框控件的MultiLine属性设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；ScrollBars属性设置文本框是否有水平或垂直滚动条，它的值为；0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置O以外的值时MultiLine属性值必须为True。本题只需按要求画出控件并设置其相应属性即可。第2小题①为图像框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPictm()图片加载函数加载，其语法为：图片框．Picture=Loadicture("图像文件路径")，App．Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch(自动伸缩)属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为True时表示自动调整。程序运行时要改变图像框的大小，可通过修改其Width和。Height属性值来实现。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在名称为Forml的窗体上画一个名称为Labell、标题为“添加项目：”的标签；画一个名称为Textl的文本框，没有初始内容；画一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于三个，内容任意)；再画两个命令按钮，名称分别为Commandl、Command2，标题分别为“添加”、“统计”。在运行时，向Textl中输入字符，单击“添加”按钮后，则Textl中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图1-144所示。请编写两个命令按钮的Click事件过程。注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjl3．vbp，窗体文件名为sjt3．frm。(2)在考生文件夹下有一个工程文件sjt4,vbp，其窗体如图1-145所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图1-145所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。标准答案：第l小题【操作步骤】步骤l：新建一个“标准EXE”工程，如表2-81在窗体中画出控件并设置其相关属性。步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。参考代码；PriVateSubCommandl_Click()Comb01．AddItemTextl．TextEndSubPriVateSubCommand2_Click()PrintComb01．ListCountEndSub步骤3：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤l：打开考生文件中的本题工程文件sjt4．vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。参考代码：n=Val(Opl(k)．Caption)Fork=1Tomc=Mid$(Textl．Text，k，1)a=a+c步骤2：按要求将文件保存至考生文件夹中。知识点解析：第l小题①组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。可通过修改组合框的Style属性值来改变其显示类型，值为0-DropdownCombo时，表示下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入；值为1-SimpleCombo时，表示简单组合框，包括一个文本框和一个不带下拉的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部分；值为2-DropdownList时，表示下拉式列表，这种样式仅允许从下拉式列表中选择。②组合框的列表项既可以在设计阶段通过其List属性设置加入(注意：每输入完一项后按键换行再输入下一项)，也可在程序运行时通过Addltem方法加入，其语法为：组合框名．Addltem项目字符串[，索引值】。其中，“索引值”可以指定插入项在列表框中的位置，表中的项目从0开始计数。如果省略“索引值”，则文本被放在列表框的尾部。③ListCount属性用来返回组合框中当前的列表项总数。本题需按要求设计程序界面，并编写“添加”和“统计”命令按钮的Click事件过程。第2小题Strings(个数，字符)函数用于返回含指定个数字符的字符串。程序设计思路：在“加密”按钮的单击事件过程中，首先利用For循环语句逐一判断单选按钮组中各个元素是否选中，若选中则用变量n记录下该单选按钮所代表的数值；接着再次利用For循环语句和Mid函数逐一为文本框中的每一个字符“加密”，若“加密”后得到的字符在ASCII表中值大于“z”，则重新取比其小26的字符；最后将“加密”后的字符串显示在文本框Text2中。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找出a、c数组中元素的最大值，并将所找到的结果分别显示在Textl、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5．vbp。打开代码编辑窗口。在指定位置编写代码。参考代码：PrivateSubfind(x()AsInteger，tAs’======以下为考生编写的程序=========Max=x(1)Fori=2ToUBound(x)IfX(i)>MaxThenMax=x(i)EndIfNextt．Text=Max=======考生编写的程序结束=========EndSubPrivateSubCommand2Click()=========以下为考生编写的程序========Fori=1ToUBound(a)C(i)=a(i)+b(i)Next======考生编写的程序结束===========OpenApp．Path&"＼out51．txt"ForOutputAs#1Fori=0To9Print#1，C(i)NextClose#1EndSub步骤2：按要求将文件保存至考生文件夹中。步骤3：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。知识点解析：本题中自定义过程fmd的功能是找出数组参数x()中的最大值，并且将其放入文本框参数t中。其基本思路为：首先利用Ubound函数获得数组的长度，然后假设数组的第一个数为最大值，再由数组的第二个数直到最后一个数进行循环，在循环中对数组元素和最大值进行比较，二者中较大的数存入最大值变量，循环结束后将最大值显示在t中。在“合并数组”按钮的单击事件中，利用For循环依次将a、b数组中同下标的元素相加并且放入数组c中。VB机试模拟试卷第4套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在名称为Forml的窗体上画一个框架、一个文本框、一个命令按钮。框架的名称为Framel，标题为“框架”。文本框在Frame1框架中，名称为Text1、标题为“模拟试题”。命令按钮的名称为Commandl、标题为“屏蔽”。编写适当的事件过程，当程序运行时，如果单击Commandl命令按钮，框架就会被屏蔽(即不可用)。程序中不得使用任何变量。程序运行时的窗体界面如图21—1所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。(2)在名称为Forml的窗体中，画一个组合框。组合框的名称为Combol，初始内容为空，有“Iteml”、“Item2”和“Item3”3个可供选择项。编写适当的事件过程，使得程序运行时，选择组合框中的某一项，就会弹出一个对话框，内容为“选择了(该项)”。程序中不得使用任何变量。程序运行时的窗体界面如图21—2所示。注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。标准答案：(1)本题考查控件的画法和框架控件的使用。框架控件(Frame)是一个容器控件，常用于将界面上的控件分组，框架内的控件将随框架一起移动或隐藏。框架的Caption属性设置其显示的标题，Enabled属性设置框架及其内部控件是否响应用户操作，值为False时将被屏蔽。需注意的是向框架中加入控件时一定要在框架区域内画，而不能通过双击加入。根据题意，新建“标准EXE”工程，将一个框架控件和一个命令按钮添加到窗体中，框架的Caption属性为“框架”，命令按钮的名称为Commandl、Caption属性为“屏蔽”，再在Frame中放入一个文本框控件，名称为Textl、Text属性为“模拟试题”。双击Commandl进入代码向窗口，编写如下代码：PrivateSubCommandl_Click()Framel．Enabled=False’将框架设为不可用EndSub单击按钮运行程序，并按要求保存。(2)本题考查对组合框控件和消息框函数的掌握及简单的事件编程。组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目i组合框的列表项可以在设计阶段通过其List属性加入，加入时注意每输入完一项后按“Ctrl+Enter”组合键换行再输入下一项；组合框的Text属性用于设置或返回其文本框部分显示的文本。MsgBox()函数用于显示提示信息，并可返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[，buttons][，title])。其中，prompt参数为消息框的提示信息，buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容。根据题意，新建“标准EXE”工程，将一个ComboBox控件添加到窗体中，其名称为Combol、Style为2，在List属性中添加以下3项“Iteml”、“Item2”和“Item3”。双击Combol进人代码窗口，编写如下代码：PrivateSubCombol_Click()MsgBox("选择了"+Combo1．List(Combo1．ListIndex))’弹出对话框EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sj3．vbp，窗体上有一个单选按钮数组，名称为Optionl，含4个单选按钮，它们的Index属性分别为O、1、2和3，标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”，再画一个名称为Textl的文本框。窗体文件中已经给出了Optionl的Click事件过程，但不完整，要求去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使得在运行时单击“Iteml”或“Item2”单选按钮时，在Textl中显示“选择Iteml”或“选择Item2”，单击“Item3”或“Itern4”单选按钮时，在Textl中显示“Item3被选择”和“Itern4被选择”。程序运行界面如图35—3所示。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sj4．vbp，Form1窗体中有一个文本框，名称为Textl，两个框架，名称分别为Framel和Frame2、标题分别为“科目”和“难易”；在Framel中有两个单选按钮Optionl和Option2，标题分别为“数学”和“语文”；在Frame2中有两个单选按钮Option3和Option4，标题分别为“困难”和“简单”；一个命令按钮，名称为Commandl，标题为“输出”。程序运行界面如图35—4所示。请编写适当的事件过程，使得在运行时，在Framel和Frame2中各选一个单选按钮，然后单击“输出”按钮，输出“我觉得数学困难”、“我觉得数学容易”、“我觉得语文困难”和“我觉得语文容易”之一。标准答案：(1)程序中需要检测单选按钮的状态，这可以通过Value属性来实现。如果单选按钮被选中，则其Value值为1；否则Value值为0。当建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗VI的Index属性，可以知道该控件的索引号是多少。标签和单选按钮的标题均由各自的Caption属性设置。根据题意，将一组Option放到对话框中，包含4个单选按钮，Index分别为0、1、2和3，Caption分别为“Iteml”“Item2”“Item3”和“Item4”，一个文本框控件，名称为Textl，Text属性为空。补充后的具体代码如下：PrivateSubOptionl_Click(IndexAsInteger)IfIndex=1OrIndex=0ThenTextl．Text="选择"+Optionl．Item(Index)．CaptionEIseTextl．Text=Optionl．Item(Index)．Caption+"被选择"EndIfEndSub单击按钮运行程序，并按要求保存。(2)程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现。根据题意，将2个框架控件、4个单选按钮控件、1个文本框控件和1个命令按钮添加到窗体中，框架的Caption属性分别为“科目”和“难易”，单选按钮的名称分别为Optionl、Option2、Option3和Option4，Caption分别为“数学”、“语文”、“困难”和“容易”，其中Optionl和Option3的Value为True，命令按钮的名称为Commandl、Caption属性为“输出”。补充后的具体代码如下：PrivateSubCommandl_Click()DimstrAsStringstr="我觉得"IfOptionl．Value=TrueThenstr=str+Optionl．Caption’选中数学Elsestr=str+Option2．Caption’选中语文EndIfIfOption3．Value=TrueThenstr=str+Option3．Caption’选中困难Elsestr=str@Option4．Caption’选中简单EndIfTextl．Text=strEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sj5．vbp，窗体上有两个文本框，名称分别为Textl和Text2，分别用来表示两个计数器；还有两个计时器Timerl和Timer2。Timerl用于变换Textl的计数；Timer2用于控制Text2的计数。运行时，单击“开始”按钮后，Textl每当到5的倍数则停止，Text2开始计数，当Text2计数到6的倍数则Textl开始计数，交替进行。程序运行时的窗体界面如图49—5所示。注意：在窗体中已经给出了全部控件和程序，但程序不完整，要求阅读程序并去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原文件名存盘。标准答案：本题主要考查考生分析和阅读程序的能力。计时器在设计时是可见的，但运行时不可见，它是否启用取决于其Enabled属性值，值为True时启用，为False时不启用。启用后间隔多长时间触发一次其Timer事件是由其Interval属性值决定的，IntervaI属性的单位为毫秒，缺省值为0，此时计时器也不启用。判断一个数是否可以被另一个数整除，要用Mod运算符，如果计算结果为0，则表示可以整除，否则不能整除。补充后的代码如下：PrivateSubCommandl_Click()Timerl．Interval=1000’按开始键启动Textl计数EndSubPrivateSubTimerlTliner()Textl．Text=Textl．Text+1’每个一个间隔Textl加1IfTextl．TextMod5=0Then’当Textl的数是5的倍数Timerl．Interval=0’停止Textl计数Timer2．Interval=1000’启动Text2计数EndIfEndSubPrivateSubTimer2_Timer()Text2．Text=Text2．Text+1’每个一个间隔Text2加1IfText2．TextMod6=0Then’当Text2的数是6的倍数Timer2．Interval=0’停止Text2计数Timerl．Interval=1000馆动Textl计数EndIfEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析VB机试模拟试卷第5套一、基本操作题(本题共1题，每题1.0分，共1分。)1、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框，其高为2500、宽为2000。请通过属性窗口设置适当属性，装入考生目录下的图片文件piclJpg，并使图片适应图像框的大小(如图1-59所示)。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjtl．frm。(2)在名称为Forml的窗体上画一个名称为Labell、标题为“口令”的标签；画一个名称为Textl的文本框；再画三个命令按钮，名称分别为Commandl、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。程序运行时，在Textl中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图1-60(b)所示；单击“显示口令”按钮，则显示输入的字符，如图1-60(a)所示，单击“重新输入”按钮，则清除Textl中的内容，并把光标定位到Textl中。要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。标准答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-29在窗体中画出控件并设置其相关属性。步骤2：按要求将文件保存至考生文件夹中。第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2-30在窗体中画出控件并设置其相关属性。步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。参考代码：PriVateSubCommand1_Click()Textl．PasswordChar=""EndSubPrlVateSUDCommand2_C1lick()Textl．PasswordChar="*"EndSubPriVateSubCommand3_Click()Textl=""Textl．SetFocusEndSub步骤3：按要求将文件保存至考生文件夹中。知识点解析：第1小题①为图像框控件指定图片有两种方法：一是在设计阶段通过：Picture属性设置；二是在程序运行时通过LoadPictureq()图片加载函数加载，其语法为：图片框．Picture=LoadPictureC图像文件路径”)，App．Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch(自动伸缩)属性用来设定图片是否需要自动调整大小，以适应图像框的大小，值为True时表示自动调整。本题只需要在窗体上画出控件并相应设置其属性即可。第2小题PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，使用SetFocus方法可使文本获得焦点。二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹下有一个工程文件sjt3．vbp，请在窗体上画两个框架，其名称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两个单选按钮，名称分别为opt和Op2，标题分别为“汽车”和“轮船”。在F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“青岛”和“大连”。画一个文本框，其名称为Textl。编写适当事件过程。程序运行后，选择不同单选按钮并单击文本框后在文本框内显示结果见表1-7。程序的运行情况如图1-198所示。存盘时，工程文件名为sjt3．vbp，窗体文件名为sjt3．frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮的方式。(2)在考生文件夹下有一个工程文件sjt4．vbp，请在窗体上画两个文本框，其名称分别为Textl、Text2，文本框内容分别设置为“计算机”、“等级考试”。然后画一个标签，其名称为Labl，高度为375，宽度为2000。再画两个单选按钮，名称分别为Opl和Op2，标题分别为“交换”和“连接”，编写适当的事件程序。程序运行后，如果选中“交换”单选按钮并单击窗体，则Textl文本框中的内容与Text2文本框中的内容进行交换。并在标签中显示“交换成功”(如图1-199所示)；如果选中“连接”单选按钮并单击窗体，则把Textl和Text2的内容按Textl在前、Text2在后的顺序连接起来并在标签中显示。存盘时，工程文件名为sjll4．vbp，窗体h文件名为Bjt4．frm。注意；不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。标准答案：第l小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt3．vbp。步骤2：在窗体Forml中加入两个框架和一个文本框，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，其属性及值如表2-113所示。步骤3：打开代码编辑窗口输入如下代码：参考代码：PriVateSubTextl_Click()IfOplAndOp3ThenTextl．Text="坐汽车去青岛"ElseIfOplAndOp4ThenTextl．Text="坐汽车去大连"ElseIfOp2AndOp3ThenTextl．Text="轮船去青岛"ElseIfOp2AndOp4ThenTextl．Text="坐轮船去大连"EndIfEndSub步骤4：按要求将文件保存至考生文件夹中。步骤5：按键运行程序，选择一种交通工具和一个到达目标，并单击文本框，最后单击窗体右上角的关闭按钮退出程序。第2小题【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt4．vbp。步骤2：在窗体Forml中加入两个文本框、一个标签和两个单选按钮，分别设置它们的相关属性，其属性及值如表2-114所示。步骤3：打开代码编辑窗口输入如下代码：参考代码：PrivateSubForm_Click()IfOplThenLabl．Caption=Textl．TextTextl．Text=Text2．TextText2．Text=Labl．CaptionLabl．Caption="交换成功"E1seIfOp2ThenLabl．Caption=Textl．Text&Text2．TextEndIfEndSub步骤4：按要求将文件保存至考生文件夹中。步骤5：按键运行程序，选择一个单选按钮，并单击窗体，最后单击窗体右上角的关闭按钮退出程序。知识点解析：第l小题根据题目要求，在文本框的单击事件过程中，先用If语句判断框架F1中的Opl是否选中(即以Opl．Value=True为条件表达式)，如果条件为真，那么再继续判断框架F2中的Op3是否选中(即以Op3．Value=True为条件表达式)，当Op3被选中时，文本框中显示“坐汽车去青岛”，否则显示“坐汽车去大连”；同理在外层If语句条件为假(即Op2被选中)时，也作类似处理。这样一共就有四种可能：Op1和Op3被选中、Opl和Op4被选中、Op2和Op3被选中、Op2和Op4被选中，对于可能出现的不同选择对照题目中表的规定，在标签中显示不同内容。以上判断和显示操作均在文本框的Click事件中完成。第2小题根据题目要求，设计本题程序的思路：在窗体的Click事件过程中分别以Opl和Op2是否选中作为If语句的条件，当Opl被选中时，将两个文本框中的内容通过一个中间变量进行交换；当Op2被选中时，将两个文本框中的内容连接进来。三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生文件夹下有一个工程文件sjt5．vbp，其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请画两个标签，其名称分别是Labell和Label2，标题分别为“最长单词的长度为”和“以该长度最后一次出现的单词是”；再画两个名称分别为Textl和Text2，初始值为空的文本框，如图1-75所示。程序功能如下：①如果单击“读数据”按钮，则将考生文件夹下in5．dm文件的内容读到变量s中(此过程已给出)；②如果单击“统计”按钮，则自动统计in5．dat文件(该文件中仅含有字母和空格，而空格是用来分隔不同单词的)中最长单词的长度，以及in5．dat中最后一个以该长度出现的单词，并将该单词的长度显示在Textl文本框内，将该单词显示在Text2文本框内。“读数据”命令按钮的Click事件过程已经给出，请为“统计”命令按钮编写适当的事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须通过单击窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。标准答案：【操作步骤】步骤1：打开考生文件夹下的本题工程文件sjt5．vbp，如表2-38所列在窗体上画出控件并设置它们的相关属性。步骤2：打开代码编辑窗口，在指定位置编写“统计”按钮的单击事件过程。参考代码：PriVateSubCommand2_Click()’需考生编写n=Len(s)：t=""DimMax_lenAsIntegerFori=1Tonc=Mid(s，i，1)Ifc<>""Thent=t+CElseIfLen(t)>Max_lenThenMax_len=Len(t)Max_word=tEndIft=""EndIfNextiIfLen(t)>Max_lenThenMax_len=Len(t)Max_word=tEndIfTextl．Text=Max_lenText2．Text=Max_wordEndSub步骤3：按要求将文件保存至考生文件夹中。步骤4：按键运行程序，先单击“读数据”按钮，再单击“统计”按钮，最后单击窗体右上角的关闭按钮结束程序。知识点解析：以空格为单词的分隔标志，在For循环中用Mid函数逐一取出变量8中的每个字符，并检查其是否为空格，若不是空格则将该字母作为当前单词的一部分，否则将当前单词的长度与记录单词最长值的变量(如Max_len)比较，将两者中的较大值存入该变量中，同时保存这个单词到变量Maxword中。循环结束后，将Max_len的值显示在Textl中．Max_word值显示在Text2中。注意：为防止数据文件的最后一个字符不是空格而导致最后一个单词不在统计之列的情况，在开始找单词前在变量s的最后连上一个空格。VB机试模拟试卷第6套一、基本操作题(本题共1题，每题1.0分，共1分。)1、(1)在Forml的窗体上绘制一个图片框，其名称为Picturel。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300，600)位置处开始显示“VisualBasic’’。程序运行情况如图36—1所示。注意：程序中不得使用任何变量。文件必须存放在考生文件夹中，工程文件名为sjl．vbp，窗体文件名为sjl．frm。(2)在Forml的窗体上绘制一个文本框，名称为Textl；绘制一个命令按钮，名称为Commandl，标题为“显示”，TabIndex属性设为0。请为Commandl设置适当的属性，使得当焦点在Commandl时，按Esc键就调用Commandl的Click事件，该事件过程的作用是在文本框中显示“VisualBasic程序设计”，程序运行结果如图36—2所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为sj2．vbp，窗体文件名为sj2．frm。标准答案：(1)本题主要考查图片框控件的画法和属性设置，以及简单的窗体事件的编写。根据题意，新建“标准EXE”工程，在窗体上添加一个名称为Picturel的图片框，设计完成后，进入代码窗口编写如下代码：PrivateSubForm_Click()Picturel．CurrentX=300’图片框X方向坐标Picturel．CurrentY=600’图片框Y方向坐标Picturel．Print"VisualBasic"’在图片框显示VisualBasicEndSub单击按钮运行程序，并按要求保存。(2)命令按钮的Cancel属性返回或设置一个值，用来指示窗体中命令按钮是否为取消按钮，它有两种取值：True和False。值为True时，命令按钮不是窗体的取消按钮，按Esc键与单击该命令按钮的作用相同；值为False时，命令按钮是窗体的取消按钮。根据题意，新建“标准EXE”工程，在窗体上添加一个文本框，其名称为“Textl”，一个命令按钮，其名称为Commandl、Caption属性为“显示”、Cancel属性为“True”，TabIndex属性为0。设置完成后双击Commandl命令按钮，编写如下代码：PrivateSubCommandl_Click()Textl．Text="VisualBasic程序设计"EndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析二、简单应用题(本题共1题，每题1.0分，共1分。)2、(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的，在窗体上有两个名称分别为Textl和Text2的文本框，一个名称为Commandl，标题为“登录”的命令按钮。其中Textl文本框用来输入用户名，Text2文本框用来输入口令，要求在Text2文本框中输人的内容都必须以“*”显示(请考生通过属性窗口设置)，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图18—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)。但不能修改其他部分。存盘时不得-改变文件名和文件夹。(2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4．frm，该程序是不完整的。在窗体上有3个名称分别为Checkl、claeck2和check3的复选框，标题依次为“c++”、“Basic”和“JAVA”；有一个名称为Labell，标题为“编程语言”的标签，还有一个名称为Commandl，标题为“显示”的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“C++”和“JAVA”复选框，单击显示按钮后，将在窗体上显示“我会的编程语言是C++JAVA”，如图18—4所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。标准答案：(1)根据题意，将两个文本框控件和命令按钮添加到窗体中，两个文本框的名称为Textl和Text2，Text2的PasswordChar属性为“*”，命令按钮的名称为Commandl，Caption属性为“登录”。双击Commandl进入代码编辑窗口，编写如下代码：PrivateSubCommandl_Click()IfTextl．Text="ABC"AndText2．Text="ABC"Then’判断是否都为ABCMsgBox("正确")’是则弹出“正确”对话框ElseMsgBox("错误")’否则弹出“错误”对话框EndIfEndSub单击按钮运行程序，并按要求保存。(2)根据题意，将3个复选按钮控件、一个标签和一个命令按钮添加到窗体中，标签的Caption属性为“编程语言”，命令按钮的名称为Commandl，Caption属性为“显示”，3个复选按钮控件的名称分别为Checkl、Check2和Check3，Caption属性分别为“C++”、“Basic”和“JAVA”。双击命令按钮进入代码编写窗口，编写如下代码：PrivateSubCommandl_Click()DimstrAsStringstr="我会的编程语言是"IfCheckl．Value=1Then’Checkl被选中str=str+Checkl．CaptionEndIfIfCheck2．Value=1Then’Check2被选中str=str+Check2．CaptionEndIfIfCheck3．Value=1Then’Check3被选中str=str+Check3．CaptionEndIfPrintstrEndSub单击按钮运行程序，并按要求保存。知识点解析：暂无解析三、综合应用题(本题共1题，每题1.0分，共1分。)3、在考生目录下有一个工程文件sj5．vbp，其窗体上有两个标签L1和L2，标题分别为“口令”和“允许次数”；一个命令按钮C1，标题为“确定”；两个文本框，名称分别为Text1和Text2。其中Text1用来输人口令(输入时，文本框内容显示“*”)，初始内容为空；Text2的初始内容为3。并给出了Cl的事件过程，但不完整，要求去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使得程序运行时，在Text1中输人口令后，单击“确定”，如果输入的是“123456”则在Text1中显示“口令正确”；如果输入其他内容，单击“确定”后，弹出错误提示对话框(如图68—6所示)，并且Text2中的数字减1。最多可输入3次口令，若3次都输入错误，则禁止再次输入。注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。标准答案：本题主要考查文本框的Text、PasswordChar和Enabled属性，&连接符以及MsgBox()函数。根据题意将文本框控件Text1的PasswordChar属性设置为“*”。双击进入代码窗口，编写如下代码：PrivateSubC1_Click()IfText1．Text="123456"ThenText1.Text="口令正确"Text1．PasswordChar=""ElseText2．Text=Text2．Text-1IfText2．Text>0ThenMsgBox"第"&(3-Text2．Text)&"次13令错误，请重新输入"Else