1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            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盤的根目錄下。

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩