计算机二级VB考试题及答案.docx

计算机二级VB考试题及答案计算机二级VB考试题精选及答案不论从事何种工作，如果要想做出高效、实效，务必先从自身的工作计划开始。有了计划，才不致于使自己思想迷茫、头脑空洞，不知从哪里着手开展工作。下面是小编搜索整理的计算机二级VB考试题精选及答案，供大家参考学习！计算机二级VB考试题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。PrivateSubForm_Click()Dimm1,n1,m,n,rAsIntegern1=InputBox("输入自然数n","输入数")m1=InputBox("输入自然数m","输入数")n=n1m=m1Ifm<np=""then<="">t=m:m=n:n=tEndIfr=mModnDoWhiler【<>】0m=nn=rr=mModnLoopPrint"最大公约数=",nPrint"最小公倍数=",m1*n1/nEndSub2.下面是求100以内素数的程序。PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,tagAsBooleanForm=2To100tag=TrueFori=2Tom-1IfmMod【i】=0Thentag=FalseNextiIftagThenPrintmNextmEndSub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)PrivateSubCommand1_Click()DimiAsInteger,mAsInteger,tagAsBooleanForm=2To100tag=TrueFori=2Tom-1IfmModi=0Thentag=FalseNextiIftag=trueThenPrintmNextmEndSubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句mModi=0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。PrivateSubCommand2_Click()Dimx%,y%,z%Forx=0To33Fory=0To50If3*x+2*y+0.5*(100-x-y)=100ThenPicture2.Printx,y,【100-x-y,10-y-x】EndIfNextyNextxEndSub5.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡，以下程序列出了所有可能的购鸡方案。PrivateSubCommand1_Click()Dimx%,y%,z%Forx=0To33Fory=0To50Forz=0To100If3*x+2*y+0.5*z=100And【x+y+z=100】ThenPicture1.Printx,y,zEndIfNextzNextyNextxEndSub6.随机产生10个100～200之间的数，求它们的最大值程序如下：PrivateSubCommand1_Click()Max=100Fori=1To10x=Int(Rnd*101+100)Printx;Ifx>MaxThen【】NextiPrintPrint"最大值=";MaxEndSub在此程序中，其中【】处应该填写的是(C)(单)A.Max=100B.Max=200C.Max=xD.Max=07.随机产生10个100～200之间的数，求它们的最大值程序如下：PrivateSubCommand1_Click()Max=100Fori=1To10x=int【RND*101+100或100+RND*101或RND()*101+100或100+RND()*101】Printx;Ifx>MaxThenMax=xNextiPrintPrint"最大值=";MaxEndSub8.随机产生10个100～200之间的数，求它们的最大值程序如下：PrivateSubCommand1_Click()Max=100ForI=1To10x=Int(Rnd*101+100)Printx;If【】ThenMax=xNextIPrintPrint"最大值=";MaxEndSub在【】处应该填写的是：(A)(单)A.x>MaxB.x<max<p="">C.x=MaxD.以上都不正确9.以下是求1～100之间5或7的`倍数的