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