高中信息技术学业水平测试 VB操作题

《高中信息技术学业水平测试 VB操作题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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、输入

2、学生成绩，显示相应等级（selectcase结构）19、学生成绩转换（selectcase结构）20、求100以内能够被19整除的个数1、完善程序代码实现当单击"输入并排序"按钮后，从键盘输入5个数，保存在数组中，并显示在窗体上，然后把这5'个数按照从小到大的顺序排列并显示在窗体上。PrivateSubCommand1_Click()DimxAsLongDimnAsInteger,iAsInteger,sAsLongDima(1To5)AsSingleFori=1To5a(i)=Val(InputBox("请在输入第"+Str(i)+"/5个数"))Printa(i);

3、NextiPrintFori=1To___①__Min=a(i):m=iForx=i+1To512If___②___ThenMin=a(x):m=xNextxk=a(i):____③___:a(m)=kNextiPrint"从小到大排序后的数据为："Fori=1To5Printa(i);NextiEndSub2、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。PrivateSubCommand1_Click()Dima,b,c,q,sAsSingle

4、a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)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、删除①②③及下划线，填上正确的代码，画出如下所示的图形，请不要更改原程序结构。****************PrivateSubCommand1_Click()Dimi,j,kAsIntegerFori=4To

5、1Step___①___Forj=1To___②___Step1Print"*";'打印符号*12____③__Print'换行Fork=i-3To1Print"";'打印空格NextkNextiEndSub4、判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除，或者能被400整除则该年份是闰年。PrivateSubCommand1_Click()DimiAsLongi=___①____IfiMod4=0And___②____ThenLabel2.Caption="该年是闰年！"ElseLabel2.Caption="该年不是闰年！"___③____

6、EndSub5、（1）删除①②及下划线，填空完成程序。（2）完善程序代码实现:手动输入0到10以内的一个整数，如果这个数字正好等于随机产生的整数（0到10之内），'那么输出"恭喜您猜中了！"，否则输出"谢谢，重在参与！"。PrivateSubCommand1_Click()Dimi,jAsIntegerRandomizei=___①___j=Val(InputBox("请您输入一个0-10之间的整数:"))Print"您选中的数字为："&jPrint"随机产生的数为："&iIf____②___ThenPrint"恭喜您猜中了！"ElsePrint"谢谢，重在参与！"En

7、dIfEndSub126、凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。输入消费金额，计算出实收金额。注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。PrivateSubcommand1_click()DimmAsSingle'消费金额m=___①___Ifm>=1000ThenText2.Text=____②___ElseIf__③___ThenText2.Text=m*0.9ElseText2.Text=mEndIfE