计算机二级vb程序操作题!

《计算机二级vb程序操作题!》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、中钮皐并了，有文0co屢个辔组大己两轉数最中a口存雯分击杲元体，单结齧后当番的序，娄岀程序，C给蚕和不在运写番。。编嚙中常的别t2.V。素分ext5中元程Tsjb组过K件a>皴nxt文组的fiTe義标用在。工维下调示整个一同，显完一个相时聖有两中钮分序己入组按霄文次原一按行下结但录的，目据壬訝解生数轟凳.i・・能。考岀不盘在读时击将全要1符释注。的能中功程序性的控令和命分各昭，他后§的通序试程调改序修程Dima(10)AsIntegerDimb(10)AsIntegerDimc(10)AsIntegerPrivateSubCommandl_Click()OpenApp.Path&ndataA

2、.txtMForInputAs#1OpenApp.Path&"dataB.txt”ForInputAs#2Fori=0To9Input#1,a(i)Input#2,b(i)NextClose#!,#2EndSubPrivateSubfind(x()AsInteger,tAs?)PrivateSubfind(x()AsInteger,tAsTextBox)，二二二二二二二二二二二二二二二二二二以下为考生编写的程序======================DimmaxAsIntegerL=LBound(x)max=x(L)Fori=LBound(x)ToUBound(x)Ifmax

3、henmax=x(i)Nextit=max===============二考生编写的程序结束二============EndSubPrivateSubCommand2_Click()==================以下为考生编写的程序=======================Fori=0To9c(i)=a(i)+b(i)Nexti==================考生编写的程序结束=========================OpenApp.Path&”out51.txt"ForOutputAs#1Fori=0To9Print#1,c(i)NextClose#1EndSubPr

4、ivateSubCommand3_Click()Callfind(a,Textl)Callfind(c,Text2)OpenApp.Path&"out52.txt"ForOutputAs#1Print#1,Textl.Text,Text2.TextClose#1EndSubPrivateSubForm_Load()EndSub”均为K:K0126000118在窗体上画1个文本框，名称为Textl（可显示多行钮，名称分别为Coimnandl,Coiranand2和Coiranand3,统计”和“存盘；如图所示。程序的其功能是：奢生目录下苗in5.txt文件中的砖肴英文字将放入，.击“统计”

5、按钮，找岀#藝计英文字母i,j,k,1,m,n（不区含大小写）各自岀现的次数；单击“存盘”按钮，将字母i到n出现次数的统许结果依次建旨生目录下的顺序文front5.tx沖。灯養畫时必须存放在考生文件夹下，工程文件名为sjt5.vbp,窗体文件名为sjt5.friDo击“读数"按钮，则把Textl（可多行显示）；单out5.txt中。〔1）在考生文件夹下有一个工程文件sjt3.vbp,其功能是：1）单击“读数据”按钮，则把考生文件夹下m3•血文件中的100个正整数读入数组枝中；2）单击“统计”按钮，则找岀这100个正整数中的所有完全平方数（一个整数若是另一个整数的平方，那么它就是完全平方数。如：

6、36=6勺所以36就是一个完全平方数），并将这些完全平方数的最大值与个数分别显不在文本框TextLText2中。在给岀的窗体文件中己经有了全部控件〔如图所示），但程序不完整，请将程序中的注释符去掉，把？改为正确的內容，实现上述功能。注意：写生不得修改窗体文件己存在的控件和程序，最后将程序按原文件名存盘。2）单击“统计"按钮，则找出这100个正整数中的所有気全平方数（一个整数若是另一个整数的平方，那么它就是完全平方数。如：36=62,所以孑6就是一个完全平方数），并将这些完全平方数的最大值与个数分别显不在文本框Textl>Text2中。在给出的窗体文件中己经有了全部控件（如图所示），但程序不完整

7、，请将程序中的注释符去掉，把？改为正确的内容，实现上述功能。注意：'篝生不得修改窗体文件己存在的控件和程序，最后将程序按原文件名存盘。Dima(l00)AsIntegerPrivateFunctionis_square(xAsInteger)AsBoolean判断完全平方数flag=FalseForm=1ToSqr(x)'If?=mA2Thenflag=TrueExitForEndIfNextm1