鸭子tv国产极品在线观看_成人69视频在线播放_91精品免费在线观看_亚洲AT永久偷窥无码精品_国产精品自产拍在线观看涩浪潮久

江蘇省高等學校非計算機專業(yè)學生

計算機基礎(chǔ)知識應用能力等級考試上機試卷(2005秋)

二級Visual Basic語言(試卷代號VB05)

(本試卷完成時間  70分鐘)

[考試須知]

1.     改錯題的界面不作要求,主要用來調(diào)試程序,若題目中有參考界面,則僅作參考;

2.     考試結(jié)束后,文件須存放在指定位置,否則適當扣分;考試盤中若無指定文件,則不予評分;

3.      程序代碼書寫應成鋸齒形。

一、改錯題（14分）

[題目]下面程序的功能是:找出所有各位數(shù)字互不相同的四位數(shù),該數(shù)本身為素數(shù),且各位數(shù)字均為素數(shù).本題界面見圖1.

Dim a(4)As Integer

Private Sub Command1-Click()

   Dim n As Integer

   For n = 1000 To 9999

If pirme(n) And pf (n) And np (a) Then

  List1.AddTtem n

End If

Next n

End Sub

Private Function prime(n As Integer) As Boolean

   Dim I As Integer

   For I = 2 To Sqr(n)

       If n Mod I = 0 Then Exit For

   Next I

   Prime = True

End Function

Private Function pf(n As Integer) As Boolean

    Dim I As Integer

    Pf = True

    Do

      I = I +1

      a(i)  =n Mod 10

      If a(i) < 2or Not prime(a(i)) Then pf = False

       n = n\10

   Loop Until n < 0

 End Function

 Private Function np(a() As Integer) As Boolean

    Dim I As Integer, j As Integer

      np = True

    For I = 1 To Ubound(a)-1

        For j = I+1 To Ubound(a)

           If a(i) = a(j) Then np = False

        Next j

    Next I

End Function

[要求]

1.       新建工程,輸入上述代碼,改正程序中的錯誤;

2.       改錯時,不得增加或刪除語句,但可適當調(diào)整語句位置;

3.       將窗體文件和工程文件分別命名為F1和P1,并保存到軟盤A的根目錄下.

二、編程題(26)

[題目]編寫程序找出最小公倍數(shù)是9828的3個連續(xù)的自然數(shù).

[編程要求]

1.       程序參考界面如圖2所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見.;

2.       單擊”運行”按鈕,找出符合條件的3個連續(xù)的自然數(shù),按圖示格式輸出到文本框中;

3.       單擊”清楚”按鈕,則將文本框清空,焦點置于”運行”按鈕;單擊”推出”按鈕,結(jié)束程序運行;

4.       程序中必須包含一個求最小公倍數(shù)的通用過程.

[要求]

將窗體文件和工程文件分別命名為F2和P2,并保存到軟盤A的根目錄下.

圖1                          圖2