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

浙江省计算机二级vb上机试题题库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不是素数” Endif Endsub 2、 求两个任意自然数的最大公约数。 Private sub form_click() Dim m as integer,n as integer,I as integer,r as integer m=text1 n=text2 R=m mod n Do while r0 M=n N=r R=m mod n Loop Text2=str(n) End sub 3、 随机生成10个两位正整数，将其中的奇数和偶数分别显示在list1和list2中 。 Private sub form_click() Dim a(1 to 10) as integer,I as integer For i=1 to 10 A(i)=int(rnd*90+10) Next i For i=1 to 10 If a(i) mod 2=1 then List1.additem str(a(i)) Else List2.additem str(a(i)) Endif Next i End sub 4、判断一个数是否是回文数。 Private sub form_click() Dim I as integer,s as string S=text1 For i=1 to len(s)\2 If mid(s,I,1)mid(s,len(s)-i+1,1) then exit for Next i If ilen(s)\2 then Print s ”是回文数” Else Print s ”不是回文数” Endif End sub 5求两个自然数的最小公倍数。 Private sub form_click() Dim m as integer ,x as integer,y as integer,flg as Boolean X=text1:y=text2 Flg=false Do until flg m=m+x If m mod y=0 then Flg=true Ensif Loop Text2=str( m) End sub 注：还可用先求最大公约数，再求最小公倍数的方法。 6 从键盘接收一个字符，判断其是否是大写字母、小写字母、数字或其他字符。 Private sub form_click() Dim x as string x = 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 select End sub 7判断一个三位正整数是否是水仙花数。 Private sub form_click() Dim a as integer,b as integer,c as integer,x as integer X=val(text1) A=x\100 B=(x-a*100)\10 C=x-a*100-b*10 If x=a^3+b^3+c^3 then Text2=str(x)+”是水仙花数” Else Text2=str(x)+”不是水仙花数” Endif End sub 8任意生成10个两位正整数，将这10个数的和显示在text1中，平均值显示在text2中。 Private sub form_click() Dim I as integer,x as integer ,s