浙江省计算机二级vb上机试题题库.doc

浙江省计算机二级vb上机试题题库二、编程题：1 判断一个数是否是素数。Private sub form_click() Dim x as integer,I as integer X=text1 For i=2 to sqr(x) If x mod i=0 then exit for Next i If isqr(x) then Text2=”x是素数” Else Text2=”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 r0M=nN=rR=m mod nLoopText2=str(n)End sub3、 随机生成10个两位正整数，将其中的奇数和偶数分别显示在list1和list2中 。Private sub form_click()Dim a(1 to 10) as integer,I as integerFor i=1 to 10A(i)=int(rnd*90+10)Next iFor i=1 to 10If a(i) mod 2=1 thenList1.additem str(a(i)ElseList2.additem str(a(i)EndifNext iEnd sub4、判断一个数是否是回文数。Private sub form_click()Dim I as integer,s as stringS=text1For i=1 to len(s)2If mid(s,I,1)mid(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 = Text1 Select Case x Case A To Z Text2 = x是大写字母 Case a To z Text2 = x是小写字母 Case 0 To 9 Text2 = x是数字 Case Else 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()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 sEnd sub14任意生成10个两位正整数，使用冒泡法对其进行排序。Private Sub form_click() Dim a(1 to 10) As Integer, I as integer , J as integer, t As Integer For I = 1 To 10 a(I) = Int(Rnd * 90 + 10) Next I For I = 1 To 9 For J = 1 To 10-i If a(J) a(J + 1) Then t = a(J): a(J) = a(J + 1): a(J + 1) = t End If Next J Next I For I = 1 To 10 Print 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 iEndifNext 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 ab and bc thenPrint “x是升序数”ElsePrint “x不是升序数”EndifEnd sub18编写程序，求下面函数的值，将结果显示在窗体上。函数如下： Private sub form_click()Dim x as integer ,y as singleX=val(text1)If x0 and x2 and x=5 thenY=x2ElseY=25-xEndifPrint yEnd sub19 将任意输入的三个数按照从大到小的顺序输出。Private sub form_click()Dim I as integer ,j as integer ,t as singleDim x(1 to 3) as singleA=text1:b=text2:c=text3X(1)=a:x(2)=b:x(3)=cFor i=1 to 2For j=i+1 to 3If x(i)sqr(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)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_cli