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語言上機3

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

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

            二級Visual Basic語言 (試卷代號 VB03)

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

            【考試須知】

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

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

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

            一、改錯題(14分)

            【題目】下面程序功能是:求出(K+1)個連續數的平方數,其和等于其后的K個連續數的平方數之和。

            Option Explicit

            Private Sub Command1_Click()

                Dim I As Integer,K As Integer

                Dim Flg As Boolean,S As String

                Do

                    K=K+1

                    Flg=False

                    For I=3 To 100

                        S=I&"^2"

                        Call Sub1(I,K,S,Flg)

                        If Flg Then

                            Text1=Text1&S&vbCrLf

                        End If

                    Next I

                Loop While K<6

            End Sub

             

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

                Dim J As Integer,Sum1 As Integer,Sum2 As Integer,A As Integer

                   Sum1=N^2                     //此處插入圖片

                   For J=1 To K

                       N=N+1

                       Sum1=Sum1+N^2

                       S=S & "+" & N & "^2"

                   Next J

                   N=N+1

                   S=S&"="&N&"^2"

                   Sum2=N^2

                   For A=1To K-1

                       N=N+1

                       Sum2=Sum2+N^2

                       S=S & "+" & N & "^2"

                Next A

                If Sum1=Sum2 Then

                    F=True

                End If

            End Sub

            【要求】

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

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

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

            二、編程題(26分)

            【題目】在A盤根目錄下建立純英文的文本文件Data.txt。要求編程用字符串S1替換文件中所有字符子串S,字符串S不區分字母大

            小寫,S1與S長度不一定相同。

            文件Data.Txt的內容如下,其中VB、Vb,vB,vb都要求用Visual Basic替換。

            This a VB book

            We study vb

            Vb is very useful

            Hello VB

            運行程序,替換后的結果見界面圖。

            【編程要求】

            1. 按“開始”按鈕,則開始運行程序,將結果按圖示格式顯示在文本框中;按“清除”按鈕,則將文本框清空;按“結束”按鈕結

            束程序運行;

            2. 要求編寫一個實現字符串替換的通用過程;

            3. 不允許使用Instr函數。

            【要求】

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

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

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