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

高中信息技术学业水平测试VB操作题高中信息技术学业水平测试VB操作题高中信息技术学业水平测试VB操作题V:1.0精细整理，仅供参考高中信息技术学业水平测试VB操作题日期：20xx年X月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'个数按照从小到大的顺序排列并显示在窗体上。PrivateSubCommand1_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、完善程序代码实现:输入三角形的三条边长，首先判断给出的三条边能否构成三角形（三角形的两边之和大于第三边），如可以，则计算并输出该三角形的面积；否则输出"不能构成三角形"。PrivateSubCommand1_Click()Dima,b,c,q,sAsSinglea=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=4To1Step___①___Forj=1To___②___Step1Print"*";'打印符号*____③__Print'换行Fork=i-3To1Print"";'打印空格NextkNextiEndSub4、判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除，或者能被400整除则该年份是闰年。PrivateSubCommand1_Click()DimiAsLongi=___①____IfiMod4=0And___②____ThenLabel2.Caption="该年是闰年！"ElseLabel2.Caption="该年不是闰年！"___③____EndSub5、（1）删除①②及下划线，填空完成程序。（2）完善程序代码实现:手动输入0到10以内的一个整数，如果这个数字正好等于随机产生的整数（0到10之内），'那么输出"恭喜您猜中了！"，否则输出"谢谢，重在参与！"。PrivateSubCommand1_Click()Dimi,jAsIntegerRandomizei=___①___j=Val(InputBox("请您输入一个0-10之间的整数:"))Print"您选中的数字为："&jPrint"随机产生的数为："&iIf____②___ThenPrint"恭喜您猜中了！"ElsePrint"谢谢，重在参与！"EndIfEndSub6、凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。输入消费金额，计算出实收金额。注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。PrivateSubcommand1_click()DimmAsSingle'消费金额m=___①___Ifm>=1000ThenText2.Text=____②___ElseIf__③___ThenText2.Text=m*0.9ElseText2.Text=mEndIfEndIfEndSub7、在Text1中输入每月用电量，单击按钮"应收电费"后，在Text2中输出电费。收费标准：家庭每月用电量不超过260度按原价1.3元/度收费；超过260度，不超过400度每度电费用增加0.1元；超过400度后每度电费用增加0.3元。PrivateSubCommand1_Click()DimiAsSinglei=____①___Ifi>=0Andi<=260Thens=____②____Ifi>260Andi<=400Thens=i*(1.3+0.1)Ifi>400Thens=i*(1.3+0.3)____③___=s&"元"EndSub8、完善程序代码实现:任意输入一个1到100以内的整数，并求出它的阶乘。PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimsAsDoubles=___①___i=Val(InputBox("请您输入一个1到100以内的整数"))Forj=1Tois=___②_____③___Printi&"的阶乘等于"&sEndSub9、下面的程序是求100以内所有奇数之和,程序中有三处错误，请更正。PrivateSubCommand1_Click()DimsAsIntegerDimiAsIntegers=0Fori=1To99Step1s=s*iEndIfPrint"s="&sEndSub10、在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！PrivateSubCommand1_Click()DimexamAsIntegerexam=____①___SelectCase____②____CaseIs<60Label1.Caption="该学生的成绩等级为：D"Case60To69Label1.Caption="该学生的成绩等级为：C"Case70To84Label1.Caption="该学生的成绩等级为：B"Case85To100Label1.Caption="该学生的成绩等级为：A"CaseElseLabel1.Caption="输入的数据不合法"____③___EndSub11、'删除程序中的①②③及下划线，填空完成程序，运行程序使能打印下面所示的图案。'@'@@'@@@'@@@@'@@@@@'@@@@@@'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerFori=1To__①___PrintTab(10);Forj=1To___②_____Print____③_____NextjPrintNextiEndSub12、'删除①②③及下划线，利用字符串函数Ucase()和转换函数Asc()，填空完成程序。'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。PrivateSubForm_Click()Dimstr1AsString,str2AsStringDimstr3AsString,iAsIntegerstr1="f"Fori=1To____①______str2=UCase(str1)str1=str2&str1str3=str3&str1str1=Chr(Asc(str1)+____②_____)______③_______Printstr3EndSub13、'删除①②③及下划线，填空完成程序。'程序运行后，单击“初始值”命令按钮对数组a的各元素赋值；'单击“求和”命令按钮，求出数组a的各元素之和，并在Text1中显示出来'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。Dima(4,3)AsIntegerDimi,jAsIntegerPrivateSubCommand1_Click()Fori=0To3Forj=0To2_____①_____=i+jNextjNextiEndSubPrivateSubCommand2_Click()Forj=0To3Fori=0To2s=s+_____②______NextiNextjText1.Text=______③_______EndSub14、'（1）删除①②③④及下划线，填空完成程序。'（2）程序运行后，从键盘上输入“abcd”，单击确定按钮后，在标签Label1中显示出“BCD”'注：请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。PrivateSubForm_Load()DimstrtextAsStringstrtext=____①____("请输入")strtext=____②____(Trim(____③____),3)Label1.Caption=____④____(strtext)EndSub15、'（1）删除①②③及下划线，填空完成程序。'（2）从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。PrivateSubCommand1_Click()DimxAsIntegerDimmax,min,sumAsIntegerx=InputBox("请输入您的数：")Print"您输入的数有："&x;"、";max=x:min=x:sum=xFori=2To10x=InputBox("请输入您的数："):Printx;sum=sum+xIf____①____ThenMax=xIf____②_____ThenMin=xNextiPrint"平均值"&_____③_______Print"最大数"&max,"最小数"&minEndSub16、'（1）删除①②③及下划线，填空完成程序。'（2）输入车程公里数，单击按钮“应收车费”后，在Label1输出车程，在Label2中输出车费。'收费标准：3公里内（包括3公里）起步价12元；'超过3公里，但10公里内(包括10公里)，则3公里内收费12元，超出部分每公里2元；'如果超过10公里，则10公里内收费26元，超出部分每公里3元。其程序实现如下：'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。PrivateSubCommand1_Click()x=Val(Text1.Text)Ifx>0Andx<=3Then_____①_____Ifx>3And_____②_____Theny=12+(x-3)*2Ifx>10Theny=_____③____*3Ifx<=0Theny=0Label1.Caption=x&"公里"Label2.Caption=y&"元"EndSub17、'（1）删除①②③及下划线，填空完成程序。'（2）已知三角形的两边分别为15、18，它们的夹角为41度，圆周率取3.14，求该三角形的面积。'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码PrivateSubCommand1_Click()a=15b=___①___s=0.5*a*b*___②____(41*3.14/180)____③____=sEndSub18、'（1）删除①②③④及下划线，填空完成程序。'（2）在文本框Text1中输入成绩，点击"等级"按钮时，文本框里就显示相应的等级。具体等级划分如下：'90分以上为"优"，80到89分为"好"，70到79分为"良"，60到69分为"及格"，60分以下为"不及格"。'注：请不要更改原程序结构，删除①、②、③、④及下划线，并在对应位置填写正确的代码。PrivateSubCommand1_Click()DimxAsInteger,gradeAsStringx=_____①________________②______Case90To100grade="优"Case80To89grade="好"Case70To79grade="良"Case60To69grade="及格"CaseIs<60_______③_______CaseElseMsgBox"请重新输入"EndSelectPrint"该学生成绩为:"+_____④_____EndSub19、'在Text1中输入学生的成绩，点击“转换”按钮后，转换成相应的等级并显示在Label1中！PrivateSubCommand1_Click()DimexamAsInteger'定义变量exam用来存放成绩'判断输入的成绩是否为数值！IfIsNumeric(Text1.Text)=FalseThenIfMsgBox("您输入的成绩必须为数字！",vbInformation+vbOKOnly)=vbOKThenExitSubEndIfEndIf'判断输入的成绩是否合法e