vb的操作题(有答案)

1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中查找最大值（或查找最小值）单选按钮，再单击查找按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。请去掉程序中的注释符，把程序中的？改为正确的内容。注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。PrivateSubCommand1_Click()x=a(1)y=a(1)Fori=2To10IfOption1.Value=TrueThenIfa(i)xThenx=a(i)EndIfElseIfa(i)yTheny=a(i)EndIfNextIfOption1.Value=TrueThenLabel2.Caption=xElseLabel2.Caption=yEndIfEndSub2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为图形控件。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。List控件的Click事件过程为：PrivateSubList1_Click()Shape1.FillStyle=List1.TextEndSub3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为隐藏、显示（如图所示）。请编写适当的事件过程，使得在运行时，如果单击隐藏按钮，则文本框消失，而如果单击显示按钮，则文本框显示出来。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。隐藏：text1.visible=false显示：text1.visible=true4.在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个*，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。答案：将Text1的文本框的PasswordChar属性为*。PrivateSubText1_Change()Text2.Text=Text1.TextEndSub5.（1）在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为复制。要求程序运行后，在列表框中自动建立四个列表项，分别为Item1、Item2、Item3、Item4如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本框中（如图所示）。PrivateSubCommand1_Click()DimiAsIntegerFori=0To3Text1.Text=List1NextiEndSub6在考生文件夹下有一个工程文件sj31.vbp，相应的窗体文件为sj31.frm，此外还有一个名为datain.txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，并输出矩阵左上-右下对角线上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。解题方法：打开sjt5.vbp中的Form1窗体，打开代码窗口，修改后的代码如下：OptionBase1PrivateSubForm_Click()ConstN=5ConstM=5DimMat(M,N)Dimi,jOpenApp.Path&\&datain.txtForInputAs#1Fori=1ToNForj=1ToMInput#1,Mat(i,j)NextjNextiClose#1PrintPrint初始矩阵为：PrintFori=1ToNForj=1ToMPrintTab(5*j);Mat(i,j);NextjPrintNextiPrintPrint左上-右下对角线上的数为：Fori=1ToNForj=1ToMIfi=jThenPrintTab(5*j);Mat(i,j);NextjNextiEndSub7.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“姓名”和“年龄”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”）。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击命令按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sj39.vbp，窗体文件名为sj39.frm。PrivateSubCommand1_Click()PrintText1.text+”,现年”+text2.text+“岁”EndSub8.在名称为Form1的窗体上画一个图片框（名称为Picture1）、一个水平滚动条（名称为HScroll1）和一个命令按钮（名称为Command1，标题为“设置属性”），通过属性窗口在图片框中装入一个图形（文件名为p02.jpg，位于考生文件夹下），图片框的高度与图形的高度相同，图片框的宽度任意（如图1所示）。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：Min100Max1500LargeChange100SmallChange10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。运行后的窗体如图2所示。要求程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sj40.vbp，窗体文件名为sj40.frm。图1图2PrivateSubCommand1_Click()HScroll1.Max=1500HScroll1.Min=100HScroll1.SmallChange=10HScroll1.LargeChange=100EndSubPrivateSubHScroll1_Change()Picture1.width=HScroll1.valueEndSub9.在考生文件夹下有工程文件wy54.vbp及窗体文件wy54.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。2）按开始按钮后，能从考生文件夹下的stud1.dat中读出所有数据并写入考生文件夹下的stud.dat文件中；3）执行完毕，开始按钮变成完成，且无效（变灰）；PrivateTypestunumAsLong'namAsString*10scoreAsSingle'EndtypePrivateSubCommand1_Click()DimrecAsstuDimiAsIntegermyfile1=App.Path&\&student.datmyfile2=App.Path&\&student1.datOpenmyfile1ForInputAs#1Openmyfile2ForInputAs#2Fori=1To8Input#1,rec.num,rec.nam,rec.scoreWrite#2,rec.num,rec.nam,rec.scoreNextICloseCommand1.Caption=完成Command1.Enabled=FalseEndSub10.在Form1的窗体上画一个标签，其名称为Lab1；再画一个列表框，其名为L1，通过属性窗口向列表框中添加若干个项目，每个项目的具体内容不限，编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序的运行情况如图所示。不准使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt14.vbp，窗体文件名为sjt14.frm。PrivateSubL1_DblClick()Lab1.Caption=L1.ListCountEndSub11.在考生文件夹下有工程文件wy55.vbp及窗体文件wy55.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件worker.dat，存放工人的编号、姓名、性别和体重。1）按开始按钮后，能从考生文件夹下的worker.dat中读出数据并把体重大于平均体重的工人的所有数据写入考生文件夹下的worker1.dat文件中；2）执行完毕，开始按钮变成完成，且无效。PrivateSubCOMEXIT_Click()EndEndSubPrivateSubCOMSTART_Click()DimiAsIntegerDimtotalAsIntegerDimaverAsSingleDimnum(10),namstring(10),sexstring(10),wages(10)'MyFile1=App.Path&\&“worker.dat”'MyFile2=App.Path&\&“worker1.dat”OpenMyFile1ForInputAs#1OpenMyFile2ForOutputAs#2Fori=1To10'Input#1,num(i),namstring(i),sexstring(i),wages(i)total=total+wages(i)Nexti'aver=total/10Fori=1To10'Ifaverwages(i)ThenWrite#2,num(i),namstring(i),sexstring(i),wages(i)Nexti'COMSTART.Caption=“完成”'COMSTART.Enabled=faultEndSubPrivateSubLabel2_Click()EndSub12．在考生文件夹中有文件wy22.vbp及其窗体文件wy22.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Ch1和Ch2，标题分别为爱心社和学通社。要求