浙江省计算机二级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 i>sqr(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 r<>0
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 i>len(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中。
Priv
