第 1 页 共 8 页浙江省计算机二级 vb 上机试题题库二、编程题：1 判断一个数是否是素数。Private sub form_click()Dim x as integer,I as integerX=text1For i=2 to sqr(x) If x mod i=0 then exit forNext iIf isqr(x) thenText2=”x 是素数”ElseText2=”x 不是素数”EndifEndsub2、 求两个任意自然数的最大公约数。Private sub form_click()Dim m as integer,n as integer,I as integer,r as integerm=text1n=text2R=m mod nDo while rmid(s,len(s)-i+1,1) then exit forNext iIf ilen(s)2 thenPrint s & ”是回文数”ElsePrint s & ”不是回文数”EndifEnd sub5 求两个自然数的最小公倍数。Private sub form_click()Dim m as integer ,x as integer,y as integer,flg as BooleanX=text1:y=text2Flg=falseDo until flgm=m+xIf m mod y=0 thenFlg=trueEnsifLoopText2=str( m)End sub注：还可用先求最大公约数，再求最小公倍数的方法。6 从键盘接收一个字符，判断其是否是大写字母、小写字母、数字或其他字符。Private sub form_click()Dim x as stringx = Text1Select Case xCase A To ZText2 = x 是大写字母Case a To zText2 = x 是小写字母Case 0 To 9Text2 = x 是数字Case Else第 3 页 共 8 页Text2 = x 是其他字符End selectEnd sub7 判断一个三位正整数是否是水仙花数。Private sub form_click()Dim a as integer,b as integer,c as integer,x as integerX=val(text1)A=x100B=(x-a*100)10C=x-a*100-b*10If x=a3+b3+c3 then Text2=str(x)+”是水仙花数”ElseText2=str(x)+”不是水仙花数”EndifEnd sub8 任意生成 10 个两位正整数，将这 10 个数的和显示在 text1 中，平均值显示在 text2 中。Private sub form_click()Dim I as integer,x as integer ,s as integerS=0For i=1 to 10X=int(rnd*90+10)S=s+xNext iText1=str(s)Text2=str(s/10)End sub9 求出斐波那契数列的前 18 项，并按顺序将他们显示在窗体上。斐波那契数列的递推公式如下：Private sub form_click()Dim fb(1 to 18) as integer,I as integerFb(1)=1:fb(2)=1For i=3 to 18Fb(i)=fb(i-1)+fb(i-2)Next iFor i=1 to 18Print fb(i);Next iEnd sub10 求 100 以内的偶数和，将结果显示在窗体上。Private sub form_click()第 4 页 共 8 页Dim I as integer,s as integerS=0For i=2 to 100 step 2S=s+iNext iPrint sEnd sub11 任意生成 10 个两位正整数，使用选择法对其进行升序排序。Private sub form_click()Dim a(10) as integer,I as integer,j as integerFor i=1 to 10A(i)=int(rnd*90+10)Next iFor i=1 to 9For j=i+1 to 10If a(i)a(j) thenT=a(i):a(i)=a(j):a(j)=tEndifNext jNext iFor i=1 to 10Print a(i);Next iEnd sub12 求 6！，将阶乘结果显示在窗体上。Private sub form_click()Dim I as integer,t as longT=1For i=1 to 6T=t*iNext iPrint tEnd sub13 求 100 以内的奇数和，并将结果显示在窗体上。Private sub form_click()Dim s as integer,I as integerS=0For i=1 to 100 step 2S=s+iNext iPrint s第 5 页 共 8 页End sub14 任意生成 10 个两位正整数，使用冒泡法对其进行排序。Private Sub form_click()Dim a(1 to 10) As Integer, I as integer , J as integer, t As IntegerFor I = 1 To 10a(I) = Int(Rnd * 90 + 10)Next IFor I = 1 To 9For J = 1 To 10-iIf a(J) a(J + 1) Thent = a(J): a(J) = a(J + 1): a(J + 1) = tEnd IfNext JNext IFor I = 1 To 10Print a(I);Next IEnd Sub15 从键盘接收一个数字，判断其是否小于 0，等于 0 或大于 0。Private sub form_click()Dim x as integerX=inputbox(“输入一个数字”)If xsqr(i) thenText1=text1 & str(i) 显示在列表框用 list1.additem I , 显示在图片框用 picture1.print iEndif第 6 页 共 8 页Next iEnd sub17 判断一个三位的正整数是否是升序数。Private sub form_click()Dim x as integer ,a as integer ,b as integer ,c as integerX=inputbox(“输入一个三位的正整数”)A=x100B=(x-a*100)10C=x-a*100-b*10If a0 and x2 and xsqr(i) then Picture1.print iEndifNext iEnd sub21 随机生成 10 两位正整数，将这 10 个数中的最小值求出来，并显示在窗体上。Private sub form_click()Dim I as integer ,min as integer ,x as integerMin=1000For i=1 to 10X=int(rnd*90+10)If minx then min=xNext iPrint minEnd sub22 在 text1 中输入任意一字符串，将其逆序显示在 text2 中。例如：在 text1 中输入字符串”abcde”,将其逆序后，结果为”edcba”。Private sub form_click()Dim I as integer,x as stringX=text1For i=1 to len(x)第 8 页 共 8 页Text2=mid(x,I,1) & text2Next iEnd sub23 随机生成 10 个三位正整数，统计其中奇数和偶数的个数，将统计结果显示在窗体上。Private sub form_click()Dim I as integer ,j as integer ,k as integer ,x as integerJ=0:k=0For i=1 to 10X=int(rnd*900+100)If x mod 2=1 thenJ=j+1ElseK=k+1EndifNext iPrint j,kEnd sub24 求 1+2+3+100 的和，结果显示在窗体上。Private sub form_click()Dim s as v integer ,I as integerFor i=1 to 100S=s+iNext iPrint sEnd sub25 将任意四位正整数的每一位上数字取出来。要求：利用 text1 接收一个四位数，每位数字分别显示在text2、text3、text4 和 text5 中。Private sub form_click()Dim x as integer ,a as integer ,b as integer ,c as integer ,d as integerX=val(text1)A=x1000B=(x-a*1000)100C=(x-a*1000-b*100)10D=x-a*1000-b*100-c*10 可用 d=x mod 10 代替Text2=str(a)Text3=str(b)Text4=str(c)Text5=str(d)End sub