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分)

            【題目】下面程序功能是:找出100以內滿足N+1個連續自然數之和等于其后N個連續自然數之和的序列(例如:4+5+6=7+8就是滿足

            要求的序列)。

            Option Explicit

            Private Sub Command1_Click()

                Dim I As Integer,S As String,Flg As Boolean

                For I=2 To 10

                Call Sub1(I,S,Flg)

                    Flg=False

                    If Flg Then

                       Text1=Text1&S&vbCrLf

                    End If

                 Next I

            End Sub

             

            Private Sub Sub1(K As Integer,S As String,F As Boolean)

                Dim I As Integer,Sum1 As Integer,Sum2 As Integer

                Dim N As Integer, Start As Integer

                Do While Sum1<>Sum2 And N<100

                    Start=Start+1

                    N=Start

                    S=N:Sum1=N

                    For I=1 To K-1

                        N=N+1

                        Sum1=Sum1+N

                        S=S&"+"&N

                    Next I

                    S=S&"="&N

                    N=N+1

                    Sum2=N

                    For I=1 To K-2

                        N=N+1

                        Sum2=Sum2+N

                        S=S&"+"&N

                    Next I

                    N=N+1

                    If Sum1=Sum2 Then

                        F=True

                    End If

                Loop

            End Sub

             

            【要求】

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

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

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

            二、編程題(26分)

            【題目】本程序的功能是:按設定的數據位數N(N=2、3、3、4、5、6),隨機生成20個互不相等正整數,按5個一行的形式輸出到

            文本框中,并從中找出所有降序數輸出到列表框。所謂降序數是指所有高位數字都大于其低位數字的數。例如973就是一個降序數。

            【編程要求】

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

            2. 在文本框1中輸入N值,按“執行”按鈕,則開始計算并在文本框2中顯示生成的隨機數,在列表框中輸出其中的降序數;按“清

            ”按鈕,則將2個文本框及列表框清空,焦點置于文本框1上;按“退出”按鈕,結束程序運行;

            3. 程序中應定義一個用于判斷一個N位數是否是降數的通用過程。

            【要求】

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

              

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