浙江省計算機二級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

總結

以上是生活随笔為你收集整理的浙江省计算机vb二级考试题库,浙江省计算机二级vb上机试题题库..doc的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。