2023年vb题库程序设计

程序设计'【程序设计】1．＇题目:编写函数fun，函数的功能是:计算两个正整数的最大公约数，并显示。如：'两个数为１5、20,结果显示"５"＇规定使用Do...Ｌoop语句来实现。答案：Ｄor=mＭodnＩfr=0ThenExitDoｍ=ｎn=rLｏopｆun＝n２.'题目:判断一个数是否是素数。答案:－----－－--------－-----－DimiAsＩｎtegerPrime=ＴruｅFoｒi=２ToInｔ(Sqr(m))IｆmＭoｄi=０ＴheｎＰrimｅ=Falsｅ:ExitＦorＮexｔi-－---－-－－-------------3,＇题目：（事件)单击窗体。'（响应）求10!的值,并将结果输出到窗体上。将结果存入变量SＵＭ中。答案:-－-----－－---－---------DimiAsIntegeｒｓuｍ＝１Foｒi=1Tｏ1０suｍ=suｍ＊iNeｘtPrintｓum４，＇题目：（事件)单击窗体。（响应）求1＋２+３+……+100的值，并把结果输出在窗体上。结果存入变量ＳUＭ中。答案:-－-----－--－－-－－-－----－DimiAsＩｎtegｅrFori=1Tｏ100sum＝ｓum+iNeｘtPｒintsum-－-－---－---－---－----－-5，'题目:编写函数fun,函数的功能是:求1到m之间的偶数之积。答案:-－-－－－--------------－-DimｙAsDoｕｂｌｅy=1DimiAsIntｅgerFori=1ToｍIfiＭoｄ2=0Tｈｅnｙ＝ｙ*iEndIfNeｘｔｆun=y-－－－-----------------－６，＇题目:编写函数fuｎ,函数的功能是：根据一个百分制成绩maｒｋ（整数),显示相应五级制的评估。条件如下：mａrk大于等于90显示"优秀＂marｋ小于90且大于等于８0显示"良好＂ｍark小于８０且大于等于７0显示＂中档"mark小于70且大于等于60显示＂及格"mａrk小于60显示＂不及格＂规定使用Select语句来实现。答案:SeleｃtCａseｍａrｋCasｅIｓ>=90ｆun＝"优秀"ＣasｅIs>=80ｆuｎ＝"良好"CaseＩs>=70fun=＂中档"CａseIs>=６0ｆun="及格"ＣasｅＥlsefｕn="不及格"EndSeｌecｔ７，'题目：(事件)双击窗体(响应)求１０0以内奇数的和,并将结果输出在窗体上。将结果存入变量SUM中答案:---－---－－-－-------－--－ＤimｉＡsIｎtegerＦori=1To１00IfｉMoｄ2=1Tｈｅnｓuｍ=suｍ+iＥnｄIfNｅxtPriｎｔsum－--－－-－----－----------8,'题目:(事件）单击窗体。'(响应)输１0０-200之间所有素数,并将这些数求和，求和结果存入所给变量ＳUM中。答案:------－---－----－-－--－-－-----－--－----Fｏrｉ=100To200Foｒj=２ＴｏSｑr(i)IfiModj＝0ThenEｘitFｏrＮｅxtIfj>Ｉnt(Sｑｒ(i))ＴhenSｕm=Sum+iEｎｄＩｆNｅxｔＰrinｔＳuｍ-－－--－-------－---－------------------９，'题目：将一个十进制整数ｍ转换成→r(2－16）进制字符串。方法：将m不断除r取余数,直到商为零，以反序得到结果。下面写出一转换函数，参数iｄｅｃ为十进制数，iｂａse为要转换成数的基（如二进制的基是2，八进制的基是8等),函数输出结果是字符串chｒ函数:将aｓcｉi码转换为相应字母。答案:------------－-－－-－－－-－DｉｍｓｔrDｅcR$,iDecR%strDｅｃR＝""ＤoWhileidｅｃ<>0iDecR=idecModibasｅIfｉDecR>=1０ＴhensｔrDecR＝Chr＄(６5+iＤecR-10）&sｔｒDeｃRElsｅstrＤeｃR＝iDecR&sｔrDｅcREｎdIfｉdｅｃ=idec＼iｂａseＬoopＴrDｅc=strＤeｃR---－---－--－－－---－---－-10，'题目:(事件)单击按钮。(响应）随机产生Ｎ个两位正整数（N由输入对话框输入,且N＞0)，求出其中的最大数和最小数，并在标签框Label1上显示最大数与最小数的差。答案：----－-－－－-－---－----－－--－---－---－x=ＩnｐutBox("请输入x")ｎ=１ｔ=xs=ｘDoＵntiｌAｂs（t)<０.０0000０01n=n+1t=t*(-1)/ns=s＋tLｏopLabｅl1.Cａptiｏn＝＂s="&ｓ-－-------－---－－－－-－-－-－--－--－---＇题目:(事件)单击窗体。'（响应)已知ｓ=1＋１／３！＋１/5!+1/7!＋1/9！,请将ｓ结果值输出到窗体上。使用dowｈile．..ｌｏｏp语句完毕程序答案:----------－-－-－-------DiｍiAsIntｅgeri＝1ｐ=1DoＷhｉlｅi＜=9ｐ=ｐ*iIfiMod2=１Ｔhenﻩｓ=ｓ+1/pＥndIf i=i＋1LoopPrintｓsuｍ=s-－--－－-－-－----－----－--'题目:(事件)单击窗体。'（响应)求从100到100０之间所有是3的倍数的数之和,当和大于3000时,停止计算并输出和。请将结果输出到窗体上，并存入所给变量SＵM中。使用foｒ．..nexｔ语句完毕程序答案：---------－-----－－－----DimiAsInｔegeｒsum=０ｆｏｒi=100ｔo1000iｆimod3=0ｔhensum=suｍ+iｉfｓum＞30０0theｎﻩeｘitfｏreｎｄｉfeｎdifi=ｉ+１nextPrintsum－-－-－－--------－-------'题目：（事件)单击窗体。＇(响应)求1-100中为5或7的倍数的和。请将结果输出到窗体上,并存入所给变量SＵM中。使用ｗhiｌe．..wｅnd语句完毕程序答案：--－--－--－－--－-----－---DiｍｉＡsＩntｅgeri＝1Whilei＜＝100IfiMｏｄ５=0OriMod7=0TheｎSｕm=Ｓum＋iEｎdIfi=i+１WeｎｄＰriｎtＳuｍ－---－--－-－----－---－-－-'题目:(事件）单击窗体。'(响应）求出10０以内所有素数的和，并将结果输出到窗体上,并存入所给变量SUM中。答案：---－---－-－-－－-------－－ＤimiＡｓInteｇerDimｊAsIｎｔegerDimkAｓIntegerＤimｂAsBooleanb＝FalｓｅFori=2Tｏ1０0b＝Falｓej=CInt(Ｓqr（ｉ)）Fork=２ＴojＩｆｉＭodk=0Ｔhenb=TrueEndＩfNexｔIｆｂ＝FａｌsｅThｅｎsum=ｓum+iEndＩfＮextPrｉntsｕm-------------------－－-'题目：(事件)单击窗体。'(响应)求1!+2!+3！+……+10！的值,并在窗体上输出。结果存入变量L中。答案：---－-－-------------－-－ＤiｍiAｓＩntｅgｅrDｉmsAsＬonｇＤiｍjAｓIntｅgers=1Fori=１To１0s＝s*ｉl＝l+sＮextPrintＳtr(l)------－-－-------－-－---＇题目:编写函数ｆｕn,函数的功能是:求一个四位数的各位数字的立方和答案：--－－----------－--－-－－-DｉmｄAsInｔeger,kAsIntegeｒ,sAsIntegerＷhiｌｅn＞０d＝nMｏd10s=s＋ｄ＊d*dｎ=ｎ/１0Wendfｕn＝s--------－－--－--－--－－--第４6题(1.0分)题号：4９０'－------－----------－--－--－－--－---－------－---－-----'【程序设计】＇----－--－-----------－----------－－----－－-------－---'题目：(事件)单击窗体。＇(响应）已知suｍ＝1-１/4+１/9-１／16+1／25...-1／10０,＇请将ｓum结果值输出到窗体上。'使用for..．neｘt语句完毕程序＇-－------－--－---－--－--－--－----－---－---------－-----答案:-－-－-------－--－－-－----ＤｉmｉAsInｔｅgerfoｒi=1ｔo10suｍ＝sum+(-1)^(i－1)/(i＊i)ｎexｔＰｒintsum----－－－--－－-----－-----第48题(1.０分）题号:478'－－-－-------－－-－---－------－-－－－-------－----－--－-－－'【程序设计】'－---－－--－--－－--－-－--－-－-－-－------－－-----－-－－-----'题目:编写函数fｕn,其功能是：能计算从1开始到n的＇自然数中偶数的平方的和。'-------－--------－-－---－－---－---------－-------－---答案:－-－----－－---－-－-----－-ＤｉmsumAsIntｅｇer,iAsIntegersuｍ=０Fｏrｉ＝2ＴonSｔep2suｍ＝suｍ+ｉ*ｉNextfun=sum--－-------------－－----第４９题（1.0分）题号：2０8'--------------－-－－--－--－-－－-----－--－－-----－----－－'【程序设计】'---－-－－----－－－----------－-－-------－-----－------－-'题目：请用Selecｔ语句编程计算打折后的金额?'折扣方法如下：'购物30０以下,无优惠(使用MsgBox显示“无优惠”）;＇购物30０以上,95折；'购物５0０以上，9折；'购物１0０0以上,85折；'购物5000以上,8折?'答案：ＳelecｔCasｅnCａｓｅIs＞50００n＝n*0．8CaseIs＞100０n＝ｎ＊0.８５CａｓeIｓ>500n=n*0.9CaseＩs>300ｎ=n*０.95ＣaseＥlseＭsgBｏx"无优惠"EndSeｌecｔ＇题目:将一张面值为10０元的人民币等值换成100张5元、１元和０．5元的零钞，规定每种零钞不少于１张,＇问有哪几种组合？将组合数存入变量OUT中。答案：-－----------－--------－DiｍnAｓIntegerDｉmi％,j％,ｋ％Ｐrinｔ"5?１？0.5？＂Fｏri=1Ｔｏ20Foｒj＝1To100－ik=１0０-i-jIf5#*i＋1#＊j＋0.５＊k=1０0ThenPriｎti,j，kn=n+1EndIfNｅxtｊNｅxtiout＝n------－---－-－--------－＇题目：(事件)单击窗体。＇(响应)我国现有人口为1３亿，设年增长率为1%，计算多少年后增长到20亿。并将结果输出在窗体上。将结果存入变量yｅａｒ中。使用doｗhile...loop语句完毕程序。答案：－-------－－－－-－-－------dimｐaｓｄoubleｄiｍｒaｓsinglediｍnaｓintegerp=r=0.0１dowhileｐ< ｐ=p+ｐ*ｒﻩn=n+1looppｒinｔ"n=",nｙｅar=n--－-－-－-－---－-－-－----－'题目：应用选择法对数组A按升序排列基本思想：1)对有n个数的序列（存放在数组a(n)中)，从中选出最小的数,与第1个数互换位置;2)除第１个数外，其余n－１个数中选最小的数,与第２个数互换位置;３)依次类推,选择了ｎ-1次后，这个数列已按升序排列。答案:--------－-－---－－-－-－-－Diｍi,j,imiｎ,temｐAｓIntegeｒＦori＝1Ｔon-１imin=ｉFoｒｊ=i+1ＴonIｆa(ｉmｉn)>a(j)Theｎimin=jNextjｔemp=a(ｉ）ａ(i)＝ａ（ｉmin)a(ｉmiｎ)=tｅmpNｅxｔi-－-－－－--－---－--－-----－'题目：(事件)单击窗体。'(响应）求一个数,它除３余2，除5余3，除7余2，请将满足上面条件的最小数保存到sｕm变量中。使用fｏr..．next语句完毕程序答案:----－-－-－-----－-－-－--－DｉｍiAsIｎteｇeｒFｏrｉ=２To100０IfｉMoｄ３=2ＡnｄiMod5=3ＡｎdｉMｏd７=2ThenPrintｉExiｔＦoｒEｎdIｆNextisｕｍ=i------－－--－----－－－----'题目:(事件）单击窗体。＇(响应）生成一个一维数组(１０个数组元素依此为:15、23、72、43、9６、２3、３、６5、８8、17)，写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值,最小值，平均值分别存入变量Maｘ,Mｉn,Aｖｅｒ中答案：--－----－－---------－-－－Ｄｉma（9)AｓInteｇeｒＤimｉ,ｓAｓIｎtegera(0)=１5a(1)=2３ａ(2)=7２a(3）=４3ａ（4)＝９6ａ(5)=23a（６)＝3a(７)=６5a（8)=88a(9）=17mａx＝a（0)ｍin＝a(0)s＝0Fori=0To9Ifa（i）>maｘThenｍａx=ａ(i)EｎdIfIfa（i)<ｍinＴhenmin＝a(i)EndIfｓ=s＋ａ(i)Nextaｖer=Int(ｓ/10)Pｒint(CStr(ｍax))Priｎｔ(CSｔr(min))Ｐrint(CＳtr(aｖer))----－---－－－------－----'题目:(事件)双击窗体。＇(响应)求s=１+1×2+1×2×３+…＋1×２×3×…×1０，并将结果存到变量Ｓ中答案：-－－--－-－－-－-－---------Dｉmi,jAｓIｎｔeｇeｒDimkAsLongｋ=1ｓ=0Ｆori=1To１0Forj＝1Toik＝ｋ*jＮexts=s+ｋk=１NeｘtPrint（CSｔr(s))---－－------－--－--－---－'题目：（事件)单击窗体。'(响应）求１00到５00之间奇数的和，将结果输出在窗体上并存入变量SUＭ中。使用ｄo...ｌooｐｕｎtiｌ语句完毕程序答案：----－-－-－---－------－--DiｍｉAｓIｎtegｅri=10０dｏIfiMod2=1Ｔheｎ sum=sum+ｉEｎdＩfi＝i+1looｐuntiｌi>50０Prｉntsum－－-－---－--------------'题目：(事件）单击窗体。＇(响应)已知S=1＋1/４+1／９＋1/1６＋１/2５＋…+1/10０,结果输出在窗体上。答案:----－－---－-－---－－－----DiｍiAsＩntegers=0Fori＝1Ｔo10s=s＋1/(i^i）NｅｘtＰriｎt(s)--－---－----------－－-－-'题目:（事件）单击命令按钮Coｍｍand1。'(响应)计算如下表达式s的值,ｓ=1+(1*2）+(1*2*3）＋……＋(1*2*3*……*６)并将结果输出到文本框Texｔ1中。答案:DiｍjAsＩnｔegeｒDiｍiＡsIｎtegerj=1ｓ=0Fｏri=１Ｔo6j＝j*is=ｓ+jNexｔｉText1.Texｔ=s题目:求两个数m,n的最大公约数p和最小公倍数q答案:-------－--------－--－--nm=n*ｍＩfm<ｎTｈeｎt=ｍ:ｍ=n:n＝tr=mModnDｏWｈile（r＜>0)m=ｎn＝rｒ＝mModｎLoopp=nq=nm/n---------－-－-－-－------'题目：编写函数fun，函数的功能是：计算n门课程的平均值,计算结果作为函数值返回。例如，若有5门课程的成绩是：92，76,69,58,88,则函数的值为７6．6。答案:-----------－－----－－---DiｍiAｓIntegerDimyAｓSinｇlｅFori＝1Ｔonｙ＝y+a（i)Nexｔfun=ｙ/n--－－－---－-----－-－－----'题目:（事件）单击窗体。'（响应)求200~30０之间既能被３整除又能被7整除的数。并求出所有数之和存入变量SUM中答案:---------－------－-－-－-DｉmiAｓIntegerFｏｒi＝2０1To300If((iMod3)=0)Ａnｄ(（iMoｄ7)=0)ThenＰｒint(ＣStr（i))sum=sum＋ｉEndＩfNｅxtPrintｓum-－-－----－--－------－---'题目:(事件）单击窗体＇(响应）用输入框输入一自然数，判断是＂正数"、＂负数＂或"零",并根据输入的数用消息框显示＂正数"、"负数"或"零"。答案:---－--－--－-－－--------－-----－－－----－--n=InputBox("输入一个自然数")Ifn＞０Tｈenｒesｕｌt="正数"ＥlseIfn<0Thenrｅｓult="负数"EｌseIｆｎ=0Thｅnrｅｓult＝＂零＂EｎdIｆMsgBox"输入的数据"&ｎ＆"为："&reｓuｌｔ或者-－---－----－－------－----－-－-－-－－------＇题目:（事件)双击窗体。＇(响应)求出50以内所有奇数的和。将结果存入变量ＳUM中。答案：－---------－---－－---－--ＤimｉAsＩnｔｅgerFoｒｉ＝１To50ＩfiＭod2=1Thensｕm=sｕm+ｉＥndIfNexｔPrｉntsum-----－---------－--－---＇题目：编写函数fun,函数的功能是:判断一个字符是'字母字符、数字字符还是其他字符,并做相应的显示。字母字符显示字符串"字母"数字字符显示字符串"数字"'其他字符显示字符串"其他"规定使用IF语句来实现。答案：IfUCase(n)>="A＂AnｄＵＣａse（n)<="Ｚ"Ｔｈenfun="字母"ＥlseIfｎ＞=＂０＂Andｎ＜="９"Thｅｎfun＝＂数字"Eｌｓefun="其他"ＥndIｆ'题目：（事件)单击窗体。'（响应)求5０以内所有偶数的和,并在窗体上输出出来。将结果存入变量Ｓ中。答案：------－-－－------------DimiAsIntｅgerFori=２To50If(iＭoｄ２)＝0Thens＝s+iEndIｆNｅxtPｒiｎt(ＣSｔｒ(s）)-－－-－----－-－－---------'题目：（事件）单击窗体。'