最新计算机二级VB考试题及答案最新计算机二级VB考试题及答案考生们在备考计算机考试科目时，除了复习教材以外，还要结合试题加深对知识点的理解和巩固，接下来应届毕业生小编为大家精心准备了最新计算机二级VB考试题及答案，希望能够给大家带来帮助!1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。PrivateSubForm_Click()Dimm1,n1,m,n,rAsIntegern1=InputBox("输入自然数n","输入数")m1=InputBox("输入自然数m","输入数")n=n1m=m1Ifmt=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.xC.x=MaxD.以上都不正确9.以下是求1～100之间5或7的倍数的和，如下程序段：Sum=0Fori=1To100IfiMod5=0OriMod7=0Then【】EndIfNextiPrintSum其中【】处书写正确的是(B)(单)A.Sum=iB.Sum=