浙江省计算机二级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