文档介绍:Vb算法 程序题汇总目录1、输入5个数并排序(选择排序)2、判读输入的三条边能否构成三角形3、图形打印(倒三角)4、判断是否为闰年5、产生随机数6、输入消费金额,计算出实收金额7、输入用电量,计算出输出电费8、求出100以内某数的阶乘9、程序改错,求100以内奇数之和10、输入学生成绩,显示相应等级(selectcase结构)11、图形打印(三角形)12、用字符串函数Ucase()和转换函数Asc()填空13、对数组赋值并求和14、利用函数,把abcd变成BCD15、输入10个数,求最大值最小值和平均值16、输入公里数,计算车费17、已知两边和夹角,求三角形面积18、输入学生成绩,显示相应等级(selectcase结构)19、学生成绩转换(selectcase结构)20、求100以内能够被 19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后,从键盘输入5个数,保存在数组中,并显示在窗体上,然后把这5'个数按照从小到大的顺序排列并显示在窗体上。mand1_Click()DimxAsLongDimnAsInteger,iAsInteger,sAsLongDima(1To5)AsSingleFori=1To5a(i)=Val(InputBox("请在输入第"+Str(i)+"/5 个数"))Printa(i);NextiPrintFori=1To___①__Min=a(i):m=iForx=i+1To51If___②___ThenMin=a(x):m=xNextxk=a(i):____③___:a(m)=kNextiPrint"从小到大排序后的数据为: "Fori=1To5Printa(i);NextiEndSub2、完善程序代码实现 :输入三角形的三条边长,首先判断给出的三条边能否构成三角形(三角形的两边之和大于第三边),如可以,则计算并输出该三角形的面积;否则输出"不能构成三角形"。mand1_Click()Dima,b,c,q,sAsSinglea=Val()b=Val()c=Val()q=(a+b+c)/2If(a+b)<=cOr(a+c)<=b___①___(b+c)<=aThenPrint"不能构成三角形 "Elses=___②___(q*(q-a)*(q-b)*(q-c))Print"三角形的面积是 "&s____③____EndSub3、删除①②③及下划线,填上正确的代码,画出如下所示的图形,请不要更改原程序结构。****************mand1_Click()Dimi,j,kAsIntegerFori=4To1Step___①___Forj=1To___②___Step1Print"*"; '打印符号*2____③__Print'换行Fork=i-3To1Print"";'打印空格NextkNextiEndSub4、判断某年是否为闰年的方法是如果该年份的数值能被 4整除但不能被 100整除,或者能被400整除则该年份是闰年。mand1_Click()DimiAsLongi=___①____IfiMod4=0And___②="该年是闰年! "="该年不是闰年! "___③____EndSub5、(1)删除①②及下划线,填空完成程序。 (2)完善程序代码实现 :手动输入 0到10以内的一个整数,如果这个数字正好等于随机产生的整数( 0到10之内),'那么输出"恭喜您猜中了!",否则输出"谢谢,重在参与! "。mand1_Click()Dimi,jAsIntegerRandomizei=___①___j=Val(InputBox("请您输入一个0-10之间的整数:"))Print"您选中的数字为:"&jPrint"随机产生的数为:"&iIf____②___ThenPrint"恭喜您猜中了! "ElsePrint"谢谢,重在参与! "EndIfEndSub36、凡在商场消费满500元以上(含500元),享受9折优惠;消费满1000元以上(含1000元),享受8折优惠;消费在500元以下不优惠。输入消费金额,计算出实收金额。注:请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。mand1_click()DimmAsSingle '消费金额m=___①___Ifm>==____②___ElseIf__③=m*=mEndIfEndIfEndSub7、Text1中输入每月用电量,单击按钮"应收电费"后,在Text2中输出电费。收费标准:家庭每月用电