江蘇省高等學校非計算機專業學生

    計算機基礎知識和應用能力等級考試上機試卷2009春

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

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

【考試須知】

1．改錯題的界面不作要求，主要用來調試程序，若題目中有參考界面，則僅作參考；

2．考試結束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不

  予評分：

3．程序代碼書寫應呈鋸齒形。

一、改錯題(14分)

【題目】本程序的功能是：把10～20范圍內的數分別表示成若干個質因子連乘的形式。

Option Explicit  

Option base 1

Private Sub Command1_Click()

    Dim j As Integer,pf() As Integer,i As Integer

    Dim st As String

    For i=10 To 20

     Call prime_f(I,pf)

      St=CStr(i)&”=”

    Forj=1 To UBound(pf)

      st=st&Str(pf(j)))&”*”

    Next j

    st=st & Str(pf(j))

    List1.AddItem st

    Next i

End Sub

Private Sub prime_f(n As Integer,a()As Integer)

  Dim i As Integer,k As Integer

  i=2

  Do

    If n Mod  i=0  Then

        k=k+1

        ReDim Preserve a(k)

       a(k)=i

       n=n\i

    Else

       i=i+1

    End  If

  Loop  Until n<=0

End Sub

【要求】

1．新建工程，輸入上述代碼，改正程序中的錯誤；

2．改錯時，不得增加或刪除語句，但可適當調整語句位置：

3．將窗體文件和工程文件分別命名為Fl和P1，并保存到T盤的根目錄下。

二、編程題(26分)

【題目】編寫程序找出介于M,K(M>100，K<10000)之間的勾股弦數。設N是介于M、

K之間的正整數，它的第一位、第二位數字依次為a、b，最后一位(或兩位)是c，若a^2+

b^2=C^2，則這樣的數N稱為勾股弦數。

【編程要求】

1·程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界

  面元素大小適中．且均可見：

2．運行程序，首先在文本框M和K中輸入查找范圍，然后按”運行”按鈕，在列表框中以

  指定格式輸出查找結果，若指定區間無勾股弦數，則輸出“無勾股弦數!，’信息：按“清

  理”按鈕，將文本框和列表框清空，焦點置于文本框M上；按“結束”按鈕，結束程序

  運行：

3．程序中應定義一個通用過程，用于將一個整數按給定規則分解成三個數，并驗證其是否

  為勾股弦數。

【算法提示】注意，三角形的邊長不得為0。

【要求】

將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。