|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2009年春江蘇計算機等考vb上機試題 |
|
江蘇省高等學校非計算機專業(yè)學生 計算機基礎知識和應用能力等級考試上機試卷2009春 二級Visual Basic語言(試卷代號VB01) ‘ (本試卷完成時間70分鐘) 【考試須知】 1．改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2．考試結(jié)束后，文件必須存放在指定位置，否則適當扣分：考試盤中若無指定文件，則不 予評分： 3．程序代碼書寫應呈鋸齒形。 一、改錯題(14分) 【題目】本程序的功能是：把10～20范圍內(nèi)的數(shù)分別表示成若干個質(zhì)因子連乘的形式。 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．改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置： 3．將窗體文件和工程文件分別命名為Fl和P1，并保存到T盤的根目錄下。 二、編程題(26分) 【題目】編寫程序找出介于M,K(M>100，K<10000)之間的勾股弦數(shù)。設N是介于M、 K之間的正整數(shù)，它的第一位、第二位數(shù)字依次為a、b，最后一位(或兩位)是c，若a^2+ b^2=C^2，則這樣的數(shù)N稱為勾股弦數(shù)。 【編程要求】 1·程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界 面元素大小適中．且均可見： 2．運行程序，首先在文本框M和K中輸入查找范圍，然后按”運行”按鈕，在列表框中以 指定格式輸出查找結(jié)果，若指定區(qū)間無勾股弦數(shù)，則輸出“無勾股弦數(shù)!，’信息：按“清 理”按鈕，將文本框和列表框清空，焦點置于文本框M上；按“結(jié)束”按鈕，結(jié)束程序 運行： 3．程序中應定義一個通用過程，用于將一個整數(shù)按給定規(guī)則分解成三個數(shù)，并驗證其是否 為勾股弦數(shù)。 【算法提示】注意，三角形的邊長不得為0。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到T盤的根目錄下。
|
|