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

VB101、打开文件“考生文件夹\178\工程1.vbp”，完善Command1_Click事件及fac函数并保存。实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。PublicFunctionfac(aAsInteger)AsIntegerIfa=1Thenfac=①Elsefac=a*②(a-1)EndIfEndFunctionPrivateSubCommand1_Click()DimsAsIntegers=fac(3)+fac(③)+fac(7)Print"s=";sEndSub①1②fac③52、打开文件“考生文件夹\614\工程1.vbp”，完善Command1_Click事件代码并保存。实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100)的自然数，并保存于数组a中，然后在窗体上显示这10个数以及这10个数中的最大值。(注：你的运算结果有可能跟样图中数值不一致)PrivateSubCommand1_Click()Dima(9)AsIntegerDimmaxAsIntegerDimiAsIntegerMe.ClsPrintRandomizeFori=0To①a(i)=Int(Rnd*100)Printa(i)Nextimax=a(0)Fori=1To9Ifmax<a(i)Thenmax=②EndIfNextiPrint"这10个自然数中的最大值=";③EndSub①9②a(i)③max3、打开文件“考生文件夹\181\工程1.vbp”，完善Command1_Click事件并保存。实现功能：从键盘输入10个学生的测试成绩，在窗体上输出最高分和最低分。PrivateSubCommand1_Click()Dimcj(10)AsSingleDimiAsIntegerDimmaxAsSingleDimminAsSingleFori=1To10cj(i)=Val(InputBox("请输入10个学生的成绩","成绩输入"))Nextimax=cj(1)min=cj(1)Fori=2To10Ifcj(i)>maxThenmax=①EndIfIf②Thenmin=③EndIfNextiPrintmax,minEndSub①cj(i)②cj(i)<min③cj(i)4、打开文件“考生文件夹\43\工程1.vbp”，完善Command1_Click事件及fib函数并保存。实现功能：用递归法求斐波那契数列1，1，2，3，5，8，…第10项的值，将结果输出到窗体上。PublicFunctionfib(nAsInteger)AsIntegerIf(n=1)Or(n=2)Thenfib=①Elsefib=fib(n-1)+fib(n-2)②EndFunctionPrivateSubCommand1_Click()DimsAsIntegers=fib(③)Print"s=";sEndSub①1②endif③105、打开文件“考生文件夹\175\工程1.vbp”，完善Command1_Click事件及s函数代码并保存。实现功能：用递归法求1+2+3+…+100的值，结果输出在窗体上。PublicFunctions(nAsInteger)AsIntegerIfn=1Thens=①Elses=②+s(n-1)EndIfEndFunctionPrivateSubCommand1_Click()DimsumAsIntegersum=s(③)Print"sum=";sumEndSub①1②n③1006、打开“考生文件夹\776”中的文件“蜗牛爬竹.vbp”，完善Command1_Click事件代码并保存。实现功能：青竹高17米，蜗牛从青竹底端慢慢爬向顶端，晴天每天爬1.4米，雨天每天爬1.8米，若蜗牛爬到顶端用了11天，计算晴天、雨天各多少天？（晴天对应文本框text1PrivateSubCommand1_Click()DimxAsSingleDimyAsInteger