<source id="v77gz"></source>
    <u id="v77gz"><p id="v77gz"></p></u>

      <samp id="v77gz"></samp>

      <var id="v77gz"><td id="v77gz"><ins id="v77gz"></ins></td></var>

      <video id="v77gz"></video>
      <source id="v77gz"></source>
    1. 江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
      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>100,K<10000)之間的勾股弦數。設N是介于M、

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

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

      【編程要求】

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

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

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

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

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

        運行:

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

        為勾股弦數。

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

      【要求】

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

      中文在线字幕第一页_中文字幕高跟丝袜作品番号_亚洲中文无无码第_日本亚洲欧美国产日韩a??y_在线观看亚洲av无码专区