第页共NUMPAGES8页浙江省计算机二级vb上机试题题库二、编程题：1判断一个数是否是素数。Privatesubform_click()Dimxasinteger,IasintegerX=text1Fori=2tosqr(x)‘Ifxmodi=0thenexitforNextiIfi>sqr(x)thenText2=”x是素数”ElseText2=”x不是素数”EndifEndsub2、求两个任意自然数的最大公约数。Privatesubform_click()Dimmasinteger,nasinteger,Iasinteger,rasintegerm=text1n=text2R=mmodnDowhiler<>0M=nN=rR=mmodnLoopText2=str(n)Endsub3、随机生成10个两位正整数，将其中的奇数和偶数分别显示在list1和list2中。Privatesubform_click()Dima(1to10)asinteger,IasintegerFori=1to10A(i)=int(rnd*90+10)NextiFori=1to10Ifa(i)mod2=1thenList1.additemstr(a(i))ElseList2.additemstr(a(i))EndifNextiEndsub4、判断一个数是否是回文数。Privatesubform_click()DimIasinteger,sasstringS=text1Fori=1tolen(s)\2Ifmid(s,I,1)<>mid(s,len(s)-i+1,1)thenexitforNextiIfi>len(s)\2thenPrints&”是回文数”ElsePrints&”不是回文数”EndifEndsub5求两个自然数的最小公倍数。Privatesubform_click()Dimmasinteger,xasinteger,yasinteger,flgasBooleanX=text1:y=text2Flg=falseDountilflgm=m+xIfmmody=0thenFlg=trueEnsifLoopText2=str(m)Endsub注：还可用先求最大公约数，再求最小公倍数的方法。6从键盘接收一个字符，判断其是否是大写字母、小写字母、数字或其他字符。Privatesubform_click()Dimxasstringx=Text1SelectCasexCase"A"To"Z"Text2="x是大写字母"Case"a"To"z"Text2="x是小写字母"Case"0"To"9"Text2="x是数字"CaseElseText2="x是其他字符"EndselectEndsub7判断一个三位正整数是否是水仙花数。Privatesubform_click()Dimaasinteger,basinteger,casinteger,xasintegerX=val(text1)A=x\100B=(x-a*100)\10C=x-a*100-b*10Ifx=a^3+b^3+c^3thenText2=str(x)+”是水仙花数”ElseText2=str(x)+”不是水仙花数”EndifEndsub8任意生成10个两位正整数，将这10个数的和显示在text1中，平均值显示在text2中。Privatesubform_click()DimIasinteger,xasinteger,sasintegerS=0Fori=1to10X=int(rnd*90+10)S=s+xNextiText1=str(s)Text2=str(s/10)Endsub9求出斐波那契数列的前18项，并按顺序将他们显示在窗体上。斐波那契数列的递推公式如下：Privatesubform_click()Dimfb(1to18)asinteger,IasintegerFb(1)=1:fb(2)=1Fori=3to18Fb(i)=fb(i-1)+fb(i-2)NextiFori=1to18Printfb(i);NextiEndsub10求100以内的偶数和，将结果显示在窗体上。Privatesubform_click()DimIasinteger,