|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省等級(jí)考試二級(jí)Vb語言上機(jī)02 |
江蘇省高等學(xué)校非計(jì)算機(jī)專業(yè)學(xué)生 計(jì)算機(jī)基礎(chǔ)知識(shí)和應(yīng)用能力等級(jí)考試上機(jī)試卷（2005春） 二級(jí)Visual Basic語言 （試卷代號(hào) VB02） （本試卷完成時(shí)間 70分鐘） 【考試須知】 1. 改錯(cuò)題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當(dāng)扣分；考試盤中若無指定文件，則不予評(píng)分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯(cuò)題（14分） 【題目】本程序的功能是對字符串加密。密鑰為一數(shù)字串，每個(gè)數(shù)字表示將首字符右移的位置，例如，若明文字符串為help me，密 鑰中第一個(gè)數(shù)字4表示將首字符h移到位置4，得到新字符串elph me，再取密鑰的下一個(gè)數(shù)字符串進(jìn)行上述操作，直到最后一個(gè)密鑰 數(shù)字處理完就得到密文。若移位超出原文長度，則自動(dòng)回轉(zhuǎn)（按原文長度取模）。 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. 新建工程，輸入上述代碼，改正程序中的錯(cuò)誤； 2. 改錯(cuò)時(shí)，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二、編程題（26分） 【題目】本程序的功能是：首先按給定格式（數(shù)據(jù)以逗號(hào)分隔，-1表示數(shù)據(jù)結(jié)束）將輸入到文本框1中的數(shù)據(jù)依次存入一個(gè)數(shù)組，然 后為該組數(shù)據(jù)建立一個(gè)按從大到小次序的索引表并顯示在文本框2中。如下土，文本框2中的第一個(gè)數(shù)據(jù)4表示文本框1中4個(gè)數(shù)最大； 文本框2中的最后一個(gè)數(shù)據(jù)8表示文本框1中第8個(gè)數(shù)最小。 【編程要求】 1. 程序參考界面如圖所示，編程時(shí)不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 在文本框1中輸入測試數(shù)據(jù)，按“處理”按鈕，則按題目要求得到結(jié)果并顯示在文本框2中；按“清除”按鈕，則將2個(gè)文本框清 空，將焦點(diǎn)置于文本框1上；按“退出”按鈕，結(jié)束程序運(yùn)行； 3. 程序中應(yīng)定義一個(gè)根據(jù)數(shù)組元素的大小從大到小取其排列號(hào)的通用過程。 【要求】 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的目錄下。
|
