最新计算机二级vb考试题及答案.docVIP

最新计算机二级VB考试题及答案 　　 　　考生们在备考计算机考试科目时，除了复习教材以外，还要结合试题加深对知识点的理解和巩固，接下来应届毕业生为大家精心准备了最新计算机二级VB考试题及答案，希望能够给大家带来帮助! 　　 　　1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。 　　 　　PrivateSubForm_Click() 　　 　　Dimm1,n1,m,n,rAsInteger 　　 　　n1=InputBox(输入自然数n,输入数) 　　 　　m1=InputBox(输入自然数m,输入数) 　　 　　n=n1 　　 　　m=m1 　　 　　Ifm 　　 　　t=m:m=n:n=t 　　 　　EndIf 　　 　　r=mModn 　　 　　DoWhiler【】　0 　　 　　m=n 　　 　　n=r 　　 　　r=mModn 　　 　　Loop 　　 　　Print最大公约数=,n 　　 　　Print最小公倍数=,m1*n1/n 　　 　　EndSub 　　 　　2.下面是求100以内素数的程序。 　　 　　PrivateSubCommand1_Click() 　　 　　DimiAsInteger,mAsInteger,tagAsBoolean 　　 　　Form=2To100 　　 　　tag=True 　　 　　Fori=2Tom-1 　　 　　IfmMod【i】=0Thentag=False 　　 　　Nexti 　　 　　IftagThenPrintm 　　 　　Nextm 　　 　　EndSub 　　 　　3.下面是求100以内素数的程序，下面说法正确的是(A)(单) 　　 　　PrivateSubCommand1_Click() 　　 　　DimiAsInteger,mAsInteger,tagAsBoolean 　　 　　Form=2To100 　　 　　tag=True 　　 　　Fori=2Tom-1 　　 　　IfmModi=0Thentag=False 　　 　　Nexti 　　 　　Iftag=trueThenPrintm 　　 　　Nextm 　　 　　EndSub 　　 　　A.tag为true时，表示m是素数 　　 　　B.tag为false时，表示m是素数 　　 　　C.语句mModi=0，说明m是素数 　　 　　D.以上说法都不正确 　　 　　4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。 　　 　　PrivateSubCommand2_Click() 　　 　　Dimx%,y%,z% 　　 　　Forx=0To33 　　 　　Fory=0To50 　　 　　If3*x+2*y+0.5*(100-x-y)=100Then 　　 　　Picture2.Printx,y,【100-x-y,10-y-x】 　　 　　EndIf 　　 　　Nexty 　　 　　Nextx 　　 　　EndSub 　　 　　5.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。 　　 　　PrivateSubCommand1_Click() 　　 　　Dimx%,y%,z% 　　 　　Forx=0To33 　　 　　Fory=0To50 　　 　　Forz=0To100 　　 　　If3*x+2*y+0.5*z=100And【x+y+z=100】Then 　　 　　Picture1.Printx,y,z 　　 　　EndIf 　　 　　Nextz 　　 　　Nexty 　　 　　Nextx 　　 　　EndSub 　　 　　6.随机产生10个100～200之间的数，求它们的最大值程序如下： 　　 　　PrivateSubCommand1_Click() 　　 　　Max=100 　　 　　Fori=1To10 　　 　　x=Int(Rnd*101+100) 　　 　　Printx; 　　 　　IfxMaxThen【】 　　 　　Nexti 　　 　　Print 　　 　　Print最大值=;Max 　　 　　EndSub 　　 　　在此程序中，其中【】处应该填写的是(C)(单) 　　 　　A.Max=100 　　 　　B.Max=200 　　 　　C.Max=x 　　 　　D.Max=0 　　 　　7.随机产生10个100～200之间的数，求它