江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
2009年春江蘇計算機等考vb上機試題

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

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

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

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

【考試須知】

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

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

  予評分:

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

一、改錯題(14)

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

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.將窗體文件和工程文件分別命名為FlP1,并保存到T盤的根目錄下。

二、編程題(26)

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

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

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

【編程要求】

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

  面元素大小適中.且均可見:

2.運行程序,首先在文本框MK中輸入查找范圍,然后按運行按鈕,在列表框中以

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

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

  運行:

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

  為勾股弦數。

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

【要求】

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

彩票30选5开奖结果