文档介绍：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+1To5If___②___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"*";'打印符号*____③__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",重在参与!"EndIfEndSub6、凡在商场消费满500元以上(含500元),享受9折优惠;消费满1000元以上(含1000元),享受8折优惠;消费在500元以下不优惠。输入消费金额,计算出实收金额。注:请不要更改原程序结构,删除①、②、③及下划线,并在对应位置填写正确的代码。mand1_click()DimmAsSingle'消费金额m=___①___Ifm>==____②___ElseIf__③=m*=mEndIfEndIfEndSub7、在Text1中输入每月用电量,单击按钮"应收电费"后,在Text2中输出电费。收费标准:;超过260度,不超过4