搜索
第一套1.有如下VisualBasic程序段：a=12:b=20b=a+b+28a=b+a-5b=a+b该程序段运行后，变量b的值为。2.有如下VisualBasic程序段：a=5b=Len(1011)IfabThenLabel1.Caption=请重新输入ElseLabel1.Caption=欢迎光临EndIf该程序段运行后，在标签Label1上显示的是____________。3.以下VisualBasic程序的功能是：计算表达式1×1+2×2+3×3+4×4+5×5+6×6的值，并在文本框Text_1中输出结果。PrivateSubCommand1_Click()Dima(1To6)AsIntegerDimsAsInteger,iAsIntegers=0Fori=1To6a(i)=i*is=s+a(i)Nexti_____=str(s)EndSub问：（1）为了计算上述表达式的值，上面程序段划线处应填入_________。（2）该程序段运行后，a(5)的值是____________。4.用辗转相除法求最大公约数。已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1，num2，r分别表示被除数m、除数n和余数)①求num1/num2的余数r；②若r=0，则执行第⑤步；③将num2的值放在num1中，将r的值放在num2中；④重新执行第①步；⑤输出最大公约数num2。下列VisualBasic程序用于求三个正整数的最大公约数。程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数a、b和c，单击求最大公约数按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。Functiontemp(num1asInteger,num2asInteger)asIntegerDimrasInteger'此函数用于计算两个正整数的最大公约数r=num1Modnum2DoWhile①num1=num2num2=rr=num1Modnum2Looptemp=num2EndFunctionPrivateSubCommand1_Click()DimaasInteger,basInteger,casInteger,xasInteger,yasIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)x=②y=temp(x,c)Text4.Text=Str(y)EndSub（1）解决此问题的算法是。（选填：解析法或枚举法）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：（2）程序中①划线处应填入___________________。（3）程序中②划线处应填入___________________。第二套1.有如下VisualBasic程序段：m=-5n=-2s=m+Int(n)该程序段运行后，变量s的值为____________。2.有如下VisualBasic程序段：a=10b=8IfabThenLabel1.Caption=morningElseLabel1.Caption=byebyeEndIf该程序段运行后，在标签Label1上显示的是____________。3.有如下VisualBasic程序段：s=0a=5Fori=1To10Step2a=a+is=a*iNexti问：该程序段运行后，（1）变量i的值是___________。（2）变量s的值是___________。4.某超市打折促销，规定如下：①购物未超过500元按原价支付；②购物超过500元但未超过1000元，超过500元部分按9折优惠计价；③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；⑤购物超过3000元，超过3000元部分按6折优惠计价。根据以上规定，假定购物货款为x元，则实付金额y为:程序界面如图所示，在输入购物金额（单位：元）后的文本框orgtext中输入购物金额（单位：元），单击实付金额计算按钮（Command1）后，在实际支付金额（单位：元）为后的文本框cashText中输出实付金额。解决此问题相应的VisualBasic程序如下：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(orgtext.Text)Ifx=500Theny=xElseIf①Theny=500+(x-500)*0.9ElseIfx=1500Theny=500+500*0.9+(x-1000)*0.8ElseIfx=3000Theny=500+500*0.9+500*0.8+(x-1500)*0.7Elsey=500+500*0.9+500*0.8+1500*0.7+(x-3000)*0.6EndIf②EndSub（1）解决此问题的算法是_______________。（选填：解析法或枚举法）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。（2）程序中①划线处应填入_______________。（3）程序中②划线处应填入_______________。第三套1.有如下VisualBasic程序段：m=schn=Mid(tools,2,3)s=m+n该程序段运行后，变量s的值为__________。2.有如下VisualBasic程序段：a=3:b=4:c=5IfabAndbcThenLabel1.Caption=happyElseLabel1.Caption=betterEndIf该程序段运行后，在标签Label1上显示的是____________。3.有如下VisualBasic程序段：DimiAsInteger,sAsIntegers=0i=1:a=5DoWhilei=100s=s+a*ii=i*5Loop问：该程序段运行后，（1）变量i的值是____________。（2）变量s的值为____________。4.要求从某一字符串中删除指定的字符（假设所含的英文字母均为小写字母），并将处理后的字符串重新输出。程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击删除此字符按钮（Command1）后，在文本框Text_3中输出处理后的结果。解决此问题的算法流程图如图所示，相应的VisualBasic程序如下：DimpAsString,kAsStringPrivateSubCommand1_Click()DimsAsInteger,resultAsString,flagAsBooleanresult=p=Text_1.Textk=Text_2.TextFors=1ToLen(p)flag=f(s)IfNotflagThenresult=result+①EndIfNexts②EndSubFunctionf(sAsInteger)AsBooleanIfMid(p,s,1)=kThenf=TrueEndFunction（1）解决此问题的算法是________________。（选填：顺序查找或对分查找）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。（2）程序中①划线处应填入________________。（3）程序中②划线处应填入________________。第四套1.有如下VisualBasic程序段：a=-1:b=2c=3Modbb=b+c该程序段运行后，变量b的值为______。2.有如下VisualBasic程序段：a=13：b=24：c=5IfabOrbcThenLabel1.Caption=mondayElseLabel1.Caption=tigerEndIf该程序段运行后，在标签Label1上显示的是____________。3.有如下VisualBasic程序段：s=10Fori=1To20Step3s=s+iNextiForj=1To3s=s*jNextj问：该程序段运行后，（1）语句“s=s*j”执行的次数为_________。（2）变量s的值为_________。4.某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下VisualBasic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。程序界面如图所示，左边列表框List1中显示原始数据（成绩和相应的姓名），单击排序按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。解决此问题的算法流程图如图所示，排序部分的程序段如下：Dima(1To10)AsSingleDimb(1To10)AsStringPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,yAsStringFori=1To9k=iForj=i+1To10If①Thenk=jNextjIfkiThenx=a(i):a(i)=a(k):②y=b(i):b(i)=b(k):b(k)=yEndIfNextiFori=1To10List2.AddItemStr(a(i))++b(i)NextiEndSubPrivateSubForm_Load()'此过程用于对数组a和数组b进行初始赋值，代码略EndSub（1）解决此问题的算法是_________________。（选填：冒泡排序或选择排序）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：（2）程序中①划线处应填入___________________。（3）程序中②划线处应填入___________________。第五套1.有如下VisualBasic程序段：s=expressiona=25b=a+Len(s)该程序段运行后，变量b的值为____________。2.有如下VisualBasic程序段：a=1：b=2：c=5IfabAndacThenc=a+bElsec=a+5EndIfLabel1.Caption=Str(c)该程序段运行后，在标签Label1上显示的是____________。3.已知某数列前二项分别为：a1=1、a2=2，以后每项都满足:ai=ai-1+ai-2（i2）有如下VisualBasic程序段：Dima(1To20)AsIntegera(1)=1:a(2)=2Fori=3Toa(i)=a(i-2)+a(i-1)Nexti问：（1）数组a存储该数列的前20项，上面程序段划线处应填入_________。（2）该程序段运行后，a(6)的值为____________。4.王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信息：①密码是六位数字，前面两位为31；②最后两位数字相同；③能被16和46整除。程序界面如图所示，单击帮助找回密码按钮（Command1）后，可能的密码显示在列表框List1中。解决此问题的相应程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAslong,bAsInteger,iAsIntegerFori=0To9999①s=310000+iIfsMod46=0Then②b=(sMod100)\10Ifa=bThenList1.AddItemStr(s)EndIfEndIfNextiEndSub（1）解决此问题的算法是________________。（选填：枚举算法或排序算法）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：（2）程序中①划线处应填入__________________。（3）程序中②划线处应填入__________________。第六套1.有如下VisualBasic程序段：a=15b=Val(256)a=a*2+b