vb期末考试上机题编程答案期末复习资料

《vb期末考试上机题编程答案期末复习资料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VB期末考试上机题编程答案1•新建一个工程，编写一个找出所冇四位幸运数显示在列表框中.并将幸运数的个数显示在文本框中。所谓幸运数足指凡前两位数字之利等于后两位数字之弃口的四位数。将原窗体文件耳口工程文件分别另存为为f.frmp.vbp,保存在D盘的VBTest文件夹中。如不按要求保存.造成文件无法上传.后果自负！具体要求：1、程序馥考界而如所示，编程时不诲増力口或减少界而对象或改变对象的种类.窗体及界而元素大小适中，且均可见；2、单击"查找〃按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“済除”按钮.贝!J将列表框利文本框淸空；4、单击“退

2、出”按钮.结束程序运行；5、程序中应包含一个过程，用于判断—个数是否是幸运数。解：PrivateSubCommandl_Click()DimiAsInteger,aAsIntegerFori=1000To9999Ifk(i)ThenListl.Additemi:a=a+1NextiTextl.Text=aEndSubPrivateSubCommand2_Click()Listl.ClearTextl.Text="EndSubPrivateSubCommand3_Click()EndEndSubPrivateFunctionk(nAsInteger)AsIntegerDi

3、miAsInteger,aAsInteger,siAsInteger,s2AsIntegerDimsAsStrings=CStr(n)Fori=1ToLen(s)/2si=si+Mid(s,i,1)s2=s2+Mid(s,Len(s)+1-i,1)NextiIfsi=s2Thenk=TrueEndFunction2.新理一个工程，编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数，计慕后将所计莫得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为f.frm利p.vbp,保存在D盘VBTest文件夹中。如不按要求保存，造成文件无法上传，后果自负！具

4、体要求：1、程序馥考界而如所示，编程时不诲増力口或减少界而对象或改变对象的种类.窗体及界而元素大小适中，且均可见；2、单击"求粗〃按钮，则在文本框中显示计算御到的因子粗；3、单击“済除”按钮.贝!J将文本框淸空.焦点设理在第一个文本框；4、单击“退出”按钮.结束程序运行；5、在程序中应包含一个用于计算自然数因子和的函数过程YinZi(n)o解；PrivateSubCommandl_Click()DimnAsIntegern=Vai(Textl.Text)Callyinzi(n)Text2.Text=yinzi(n)EndSubPrivateFunctionyinzi(n

5、AsInteger)AsIntegerDimiAsIntegerFori=1Ton/2IfnModi=0Thenyinzi=yinzi+iNextiEndFunctionPrivateSubCommand2_Click()Textl.Text=Text2.Text="Textl.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub2.新理一个工程，编写一个程序，判断随机生成的10个三位正扯数是否足降序数。所谓降序数是扌旨百位数大于十位数且十位数大于个位数的数。将原窗体文件和工程文件分别另存为为f.frmp.vbp,保存在D盘

6、VBTest文件夹中。如不按要求保存，造成文件无法上传，后栗自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击〃执行〃按钮.随机生成10个三位正茏数.显示在左边的列表框中.将判昕结果参照样图的格式显示在右边的列表框中；3、单击“清除”按钮，则将两个列表框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个名为jx的函数过程.用于判断•一个正览数足否为降序数。解；PrivateFunctionjx(nAsInteger)AsBooleanDimiAsIntegerDimaAsInte

7、ger,bAsIntegerFori=2ToLen(Str(n))a=Vai(Mid(n,i-1,1))b=Vai(Mid(n,i,1))Ifa<=bThenExitForNextiIfi>Len(Str(n))-1Thenjx=TrueEndFunctionPrivateSubcommanditelick()Dima(lTo10)AsIntegerDimiAsIntegerFori=1To10a(i)=1000+Int(Rnd*9000)Listl.Additema(i)Ifjx(a(i))ThenList2.Additema(i)Ne