自编程序设计题参考答案

省二级VB考试复习资料61.用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。+sinxx10y=0x=102x3+6x10程序写在命令按钮Command1的Click事件中。参考答案：PrivateSubCommand1_Click()DimxAsSingleDimyAsSinglex=Val(InputBox(pleaseinputanumber))SelectCasexCaseIs10y=Sqr(x)+Sin(x)CaseIs=10y=0CaseIs10y=2*x^3+6EndSelectPrintyEndSub2.编写一个程序，根据上网时间计算上网费用，上机时间用输入对话框输入。公式如下：同时，为了鼓励多上网，每月最多不超过600元。参考答案：PrivateSubCommand1_Click()DimtimesAsSingle,moneyAsSingletimes=Val(InputBox(pleaseinputanumber))SelectCasetimesCaseIs10money=50CaseIs60money=6*timesCaseIs=60money=4*timesEndSelectIfmoney600Thenmoney=600Printtimes,money小时元每小时小时元每小时小时元基数费用计算规则60460~1061050省二级VB考试复习资料7EndSub3.计算s=1+x/2+x2/3+x3/4+…+xn-1/n；已知n=20，x值从键盘输入。参考答案：PrivateSubCommand1_Click()DimnAsInteger,xAsSingle,sAsSingle,iAsIntegerx=Val(InputBox(pleaseinputx))n=Val(InputBox(pleaseinputn))s=0Fori=1Tons=s+x^(i-1)/iNextiPrintsEndSub4.用以下公式计算Sin(x)的值，当最后一项的绝对值小10-7时停止计算。X由键盘输入。程序写在窗体的click事件中。参考答案：PrivateSubCommand1_Click()DimxAsSingle,sAsSingle,itemAsSingle,nAsIntegerx=Val(InputBox(pleaseinputx))s=0n=2item=xWhileAbs(item)0.0000001s=s+itemitem=-item*x*x/n/(n+1)n=n+2WendPrintsEndSub5.编写程序，单击窗体时在窗体上打印出如下所示的图形（要求使用多重循环实现）。****************)!12()1(......!7!5!3)(121753nxxxxxxSinnn省二级VB考试复习资料8*************************参考答案：PrivateSubForm_click()DimiAsInteger,jAsIntegerFori=1To5PrintSpace(5-i);Forj=1To2*i-1Print*;NextjPrintNextiFori=1To4PrintSpace(i);Forj=1To9-2*iPrint*;NextjPrintNextiEndSub6.编写一个程序，找出100到200之间所有的质数，并按五个数一行显示在窗体上，程序写在窗体的click事件中。参考答案：PrivateSubForm_click()DimnAsInteger,kAsInteger,cAsIntegerForn=101To199Step2Fork=2ToInt(Sqr(n))IfnModk=0ThenExitForNextkIfkInt(Sqr(n))ThenPrintn;c=c+1IfcMod5=0ThenPrintEndIfNextnEndSub7.计算下列表达值并在窗体上输出。要求：用输入对话框输入m和n(m≥n≥0)；省二级VB考试复习资料9用Functionfact(xAsInteger)函数求x!的值m!n!(m-n)!参考答案：PrivateSubCommand1_Click()DimnAsInteger,mAsInteger,sAsSingleDom=Val(InputBox(pleaseinputm))n=Val(InputBox(pleaseinputn))LoopUntiln0Andmns=nfact(m)/(nfact(n)*nfact(n-m))PrintsEndSubPrivateFunctionnfact(xAsInteger)AsLongDimtempAsLong,iAsIntegertemp=1Fori=1Toxtemp=temp*iNextinfact=tempEndFunction8.编写一个自定义函数，用于把一个十进制整数转换为二进制，要求以字符串形式返回。参考答案：FunctionDTOB(nAsInteger)AsStringDimsAsString,cAsStrings=Whilen0c=Trim(Str(nMod2))s=c+sn=n\2WendDTOB=sEndFunction9.编写一个自定义函数，用于把一个字符串形式的八进制数转换为十进制数，要求以数字形式返回。参考答案：FunctionOTOD(sAsString)AsIntegerDimnAsInteger,cAsInteger,iAsInteger,slenAsIntegerslen=Len(s)省二级VB考试复习资料10Fori=1Toslenc=Val(Mid(s,i,1))n=n+c*8^(slen-i)NextiOTOD=nEndFunction10.编写一个自定义函数，用于计算single类型一维数组的平均值。参考答案：FunctionavgArray(a()AsSingle,nAsInteger)AsSingleDimiAsInteger,sAsSingles=0Fori=1Tons=s+a(i)NextiavgArray=s/nEndFunction11.编写一个自定义函数，用于判断一个数n是否为质数，如果为质数则函数返回true,否则返回false参考答案：Functionprime(nAsInteger)AsBooleanDimkAsIntegerFork=2ToInt(Sqr(n))IfnModk=0ThenExitForNextkIfkInt(Sqr(n))Thenprime=TrueElseprime=FalseEndIfEndFunction12.产生100个∈[3，300]的随机整数，先求它们的平均值，再将这些数中大于平均值的数按从小到大的顺序打印出来。参考答案：PrivateSubForm_click()Dima(1To100)AsInteger,b(1To100)AsIntegerDimtAsInteger,bLenAsInteger,iAsInteger,jAsIntegerDimsumAsLong,avgAsSinglesum=0Fori=1To100a(i)=Int(Rnd*298)+3省二级VB考试复习资料11sum=sum+a(i)Nextiavg=sum/100bLen=1Fori=1To100Ifa(i)avgThenb(bLen)=a(i)bLen=bLen+1EndIfNextiFori=1TobLen-2Forj=i+1TobLen-1Ifb(i)b(j)Thent=b(i)b(i)=b(j)b(j)=tEndIfNextjNextiFori=1TobLen-1Printb(i)NextiEndSub13.随机产生10个互不相等的二位正整数，并将这10个数按从小到大的顺序输出，程序写在窗体的click事件中。参考答案：PrivateSubForm_click()Dima(1To10)AsIntegerDimiAsInteger,jAsInteger,tempAsIntegera(1)=Int(Rnd*90)+10Fori=2To10temp=Int(Rnd*90)+10Forj=1Toi-1Ifa(j)=tempThenExitForNextjIfji-1Thena(i)=tempElsei=i-1EndIf省二级VB考试复习资料12NextiFori=1To10Printa(i);NextiFori=1To9Forj=i+1To10Ifa(i)a(j)Thentemp=a(i)a(i)=a(j)a(j)=tempEndIfNextjNextiPrintFori=1To10Printa(i);NextiEndSub14.编写一个自定义过程，实现一个n阶矩阵的转置。转置前的矩阵转置后的矩阵12341111123422221234333312344444参考答案：Subtranspose(a()AsInteger,nAsInteger)DimiAsIntegerDimjAsInteger,tAsIntegerFori=2TonForj=1Toi-1t=a(i,j)a(i,j)=a(j,i)a(j,i)=tNextiNextiEndSub15.编写一个程序，实现如下功能，让用户通过inputbox输入一个大于等于6的偶数n，并在窗体上显示将n分解为两个质数之和的所有情况。例如:10=3+7和10=5+5等，程序写在窗体的click事件中。省二级VB考试复习资料13参考答案：PrivateSubForm_click()DimnAsLong,n1AsLong,n2AsLongDimkAsIntegerDon=Val(InputBox(pleaseinputanumber))LoopUntiln6AndnMod2=0Forn1=2Ton/2Fork=1ToInt(Sqr(n1))Ifn1Modk=2ThenExitForNextkIfkInt(Sqr(n1))Thenn2=n-n1Fork=2ToInt(Sqr(n2))Ifn2Modk=0ThenExitForNextkIfkInt(Sqr(n2))ThenPrintn;=;n1;+;n2EndIfEndIfNextn1EndSub16.用户界面如图所示，用于将学生学过的单词在列表框中显示出来，现要求完成：(1)单击“增加单词”按钮，将文本框Text1.Text中的单词添加到列表框中并显示列表框中的单词数；(2)单击“删除单词”按钮，删除列表框中被选中的项并显示列表框中的单词数；(3)单击“全部清除”按钮，删除列表框的全部选择项并显示列表框中的单词数；(4)单击“退出”按钮，结束程序部分程序代码如下:PrivateSubForm_Load()Label1.Caption=请输入单词Label2.Caption=单词数Command1.Caption=增加单词Command2.Caption=删除单词Command3.Caption=全部清除Command4.Caption=退出List1.AddItemapple省二级VB考试复习资料14List1.AddItemchineseList1.AddItemchildList1.AddItemdoubleList1.AddItemparkList1.AddItemtopEndsub17.现有3个成绩文件Cj1.txt、Cj2.txt、Cj3.txt，记录有学生的姓名和百分制成绩，格式如左下图，请设计一个程序将这3个成绩文件中成绩小于60分的学生挑出来，按同样格式一起存入文件Bjg.txt中。程序写在命令按钮Command1的Click事件中。参考答案：PrivateSubCommand1_Click()DimsnameAsString,scoreAsIntegerOpenbjg.txtForOutputAs#1Opencj1.txtF