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

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

二級Visual Basic語言 （試卷代號 VB02）

（本試卷完成時間 70分鐘）

【考試須知】

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

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

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

一、改錯題（14分）

【題目】本程序的功能是對字符串加密。密鑰為一數字串，每個數字表示將首字符右移的位置，例如，若明文字符串為help me，密

鑰中第一個數字4表示將首字符h移到位置4，得到新字符串elph me，再取密鑰的下一個數字符串進行上述操作，直到最后一個密鑰

數字處理完就得到密文。若移位超出原文長度，則自動回轉（按原文長度取模）。

Option Explicit

Private Sub Command1_Click()

    Dim I As String,s2 As String,i As Integer,key As Integer

    s1=Text1                                  //

    s2=Text2

    For i=1 To Len(s2)

        key=Val(Mid(s2,i,1))

        Call encode(s1,key)

    Next i

    Text3=s1

End Sub

Private Sub encode(s As String, K As Integer)

    Dim I As Integer,t As String*1,n As Integer

    t=Mid(s,1,1)

    n=k Mod Len(s)

    if n=0 Then

        k=n

    End If

    For i=2 To k

        Mid(s,i-1,1)=Mid(s,i,1)

    Next i

    Mid(s,i,1)=t

End Sub

【要求】

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

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

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

二、編程題（26分）

【題目】本程序的功能是：首先按給定格式（數據以逗號分隔，-1表示數據結束）將輸入到文本框1中的數據依次存入一個數組，然

后為該組數據建立一個按從大到小次序的索引表并顯示在文本框2中。如下土，文本框2中的第一個數據4表示文本框1中4個數最大；

文本框2中的最后一個數據8表示文本框1中第8個數最小。

【編程要求】

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

2. 在文本框1中輸入測試數據，按“處理”按鈕，則按題目要求得到結果并顯示在文本框2中；按“清除”按鈕，則將2個文本框清

空，將焦點置于文本框1上；按“退出”按鈕，結束程序運行；

3. 程序中應定義一個根據數組元素的大小從大到小取其排列號的通用過程。

【要求】

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