vb大题上机总结（共5篇）.docx

vb大题上机总结（共5篇）

第一篇：vb大题上机总结真・vb大题・正式版1.0**********************************************************************在考生文件夹下有一个工程文件sj44.vbp（相应的窗体文件名为sj44.frm），其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序运行后，在四个文本框中各输入一个整数（如图1所示），然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来（如图2所示）。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。图1图2本题的考查的是数组的应用，通过调用过程Sort将数组按降序排序，Ubound()函数是用来获得数组的上界，Lbound()函数是获得数组的下界，打开工程文件sjt4.vbp和相应的窗体文件名为sjt3.frm，在代码窗口中补充如下代码：PrivateSubSort(a()AsInteger)DimStartAsInteger,FinishAsIntegerDimiAsInteger,jAsInteger,tAsIntegerStart=LBound(a)Finish=UBound(a)Fori=FinishTo2Step-1Forj=1ToFinishlowerbound+1)*Rnd+lowerbound)这里，upperbound是随机整数范围的上限，而lowerbound则是随机整数范围的下限。修改后的主要代码如下：PrivateSubCommand1_Click()Text1.Text=“":Text2.Text=”“Fori=1To10a(i)=Fix(Rnd*99+1)Forj=1Toi1ExitForEndIf（避免取相同的值）NextjNextiFori=1To10Text1.Text=Text1.Text+Str(a(i))+Space(2)（隔两个空格输出下一个）NextiEndSubPrivateSubCommand2_Click()DimnumAsInteger,iAsIntegernum=InputBox(”请输入待查找的数“)Fori=1To10Ifa(i)=numThen盗版必究，版权所有。------vb作战小队Text2.Text=Str(num)+”是数组中的第“+Str(i)+”个值“ExitForEndIfNextiIfi>10ThenText2.Text=Str(num)+”不存在于数组中“EndIfEndSub按要求保存文件即完成本题。】在名称为Form1的窗体上有三个Label控件和两个名称分别为COMSTART、COMEXIT，标题分别为”开始“、”退出“的命令按钮。编写函数ITEM(A,N)其功能是由数字A组成的不多于N位数的整数，并利用该函数求8+88+888+8888的和，结果写入考生文件夹下的wy36.dat文件中。执行完毕”开始“按钮变成”完成“，且无效（变灰）。【语法[Public|Private|Friend][Static]Functionname[(arglist)][Astype][Statements][name=expression][ExitFunction][statements][name=expression]EndFunction声明Function过程的名称，参数以及构成其主体的代码。】在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件stud1.dat，存放考生的考号、姓名、成绩。1）自定义一个数据类型stu，字符型数据定长为10。2）按”开始“按钮后，能从考生文件夹下的stud1.dat中读出所有数据并写入考生文件夹下的stud.dat文件中；3）执行完毕，”开始“按钮变成”完成“，且无效（变灰）；第6题.在名称为Form1的窗体上画二个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。PrivateSubT1_Change()T2.Text=T1.TextEndSub按要求保存文件即完成本题。真・vb大题・正式版1.0第30题在名称为Form1的窗体上用名称为shape1的形状控件画一个长、宽都为1200的正方形。请设置适当的属性满足以下要求：1）窗体的标题为”正方形“，窗体的最小化按钮不可用；2）正方形的边框为虚线（线型不限）。运行后的