算法与程序设计VB试题与答案10.docx

算法与程序设计VB试题与答案10

第一篇：算法与程序设计VB试题与答案10VB101、打开文件“考生文件夹178工程1.vbp”，完善Command1_Click事件及fac函数并保存。实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。PublicFunctionfac(aAsInteger)AsIntegerIfa=1Thenfac=①Elsefac=a*②(a1)+fib(n1)EndIfEndFunctionPrivateSubCommand1_Click()DimsumAsIntegersum=s(③)Print“sum=”;sumEndSub①1②n③1006、打开“考生文件夹776”中的文件“蜗牛爬竹.vbp”，完善Command1_Click事件代码并保存。实现功能：青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？（晴天对应文本框text1，雨天对应文本框text2）PrivateSubCommand1_Click()DimxAsSingleDimyAsIntegery=(171.4)①=11-yText1.Text=Str(②)+“天”Text2.Text=Str(③)+“天”EndSub①x②x③y第二篇：算法与程序设计VB试题与答案08VB081、打开“考生文件夹781”中的文件“test4.vbp”，完善Command1_Click事件代码并保存。实现功能：回文字符串是指一个字符串从左往右读与从右往左读是一样的，如“ABCBA”，“123321”等等。输入一个字符串，若是回文字符串，则输出“Yes”，否则输出“No”。使用文本框Text1输入字符串，使用文本框Text2输出结果。PrivateSubCommand1_Click()DimsAsStringDimokAsStringDimiAsIntegers=Text1.Textok=“Yes”Fori=1To①IfMid(s,i,1)②Thenok=“No”Nexti③EndSub①len(s)2②Mid(s,len(s)+1-i,1)③text2.text=ok2、打开文件“考生文件夹606工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值。PrivateSubCommand1_Click()DimsAsIntegerDimiAsIntegers=①Fori=1To②s=③NextiText1.Text=Str(④)EndSub①0②100③s+i④s3、打开“考生文件夹779test2.vbp”，完善Command1_Click事件代码并保存。实现功能：输入一个正整数，计算并输出它的各位数字之和。如输入123，则输出6。使用文本框Text1输入正整数，使用文本框Text2输出计算结果。PrivateSubCommand1_Click()DimxAsIntegerDimsAsIntegerx=Val(Text1.Text)①Dos=s+②x=x10LoopUntilx=0③EndSub①s=0②xmod10③text2.text=str(s)4、打开文件“考生文件夹607工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数及其平均值。(注：学生运算结果有可能跟样图中数值不一致)PrivateSubCommand1_Click()Dima(9)AsIntegerDimsAsSingleDimiAsIntegerMe.Clss=0RandomizeFori=0To①a(i)=Int(Rnd*100)Printa(i)NextiFori=0To9s=②③Print“这10个自然数的平均值=”;s/10EndSub①9②s+a(i)③nexti5、打开文件“考生文件夹609工程1.vbp”，完善Form_Click事件代码并保存。实现功能：单击窗体时在窗体上打印下面所示的图案。**********PrivateSubForm_Click()DimiAsIntegerDimjAsIntegerFori=①To1Step-1Forj=1Toi②NextjPrint③EndSub①4②print“*”;③nexti6、打开文件“考生文件夹610工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：当单击“显示”按钮后，在窗体上显示下面的图形：@@@@@@@@@@@@@@@@@@@@@PrivateSu