1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            2005秋江蘇省計算機等級考試二級VB語言上機試卷(1)

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

            計算機基礎知識和應用能力等級考試上機試卷(2005秋)

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

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

            【考試須知】

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

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

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

            一、改錯題(14分)

            【題目】本程序的功能是:找出2~10000之間可以表示成2²-1形式的素數.本題程序界面見圖1.

            Option Explicit

            Private Sub Command1_Click()

            Dim Exp As Integer, Idx As Integer

            For Idx = 2    10000

                If Mersenne(Idx, Exp)Then

                    If Prime(Idx)Then

                       List1.AddItem Idx &″=″&2&″^″&Exp&″-1″

                    End If

                    Exp = 0

                End If

            Next Idx

            End Sub

            Private Function Mersenne(N As Integer,Exp As Integer)As Boolean

               Dim  M  As Integer,Ex  As Long

               M=N

               Ex=1

               Do While M>Ex

                    Exp=Exp+1

                    Ex=Ex*2

               Loop

               If  M=Ex Then

                   Mersenne=true

               End If

            End function

            Private Function Prime(N As Integer) As Boolean

               Dim K As Integer

               Prime=True

               For K =2 To Sqr(N)

                  If N  Mod  K =0 Then Exit Function

               Next K

            End Function

             

            【要求】

            1.       新建工程,輸入上述代碼,改正程序中的錯誤;

            2.       改錯時,不得增加或刪除語句,但可適當調整語句位置;

            3.       將窗體文件和工程文件分別命名為F1和P1,并保存到軟盤A的根目錄下.

            二、編程題(26分)

            【題目】將1~9這9個數字順序排列圍成一圈,從中任意一個數字開始,依次將其分成三段,每段數字連在一起算一個數,得到一個2位數、一個3位數和一個4位數,將這三個數相加,使其和數能被77整除.編寫一個能找出這三個數的程序.

            【編程要求】

            1.       程序參考界面如圖2所示,編程時不得增加或減少界面對象或改變對象的種類,窗體及界面元素大小適中,且均可見;

            2.       單擊運行按鈕,找出符合條件的三個數,并將它們顯示在文本框中;

            3.       單擊清理”按鈕,則將文本框清空,并將焦點設置在“運行”按鈕上;單擊“結束”按鈕,結束程序運行;

            4.       程序中必須包含一個將數字分段,得到一個2位數、一個3位數和一個4位數的通用過程.

            要求

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

               

            圖1                                  圖2

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