|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2005春江蘇省等級考試二級VB語言上機3 |
江蘇省高等學(xué)校非計算機專業(yè)學(xué)生 計算機基礎(chǔ)知識和應(yīng)用能力等級考試上機試卷（2005春） 二級Visual Basic語言 （試卷代號 VB03） （本試卷完成時間 70分鐘） 【考試須知】 1. 改錯題的界面不作要求，主要用來調(diào)試程序，若題目中有參考界面，則僅作參考； 2. 考試結(jié)束后，文件必須存放在指定位置，否則適當扣分；考試盤中若無指定文件，則不予評分； 3. 程序代碼書寫應(yīng)呈鋸齒形。 一、改錯題（14分） 【題目】下面程序功能是：求出（K+1）個連續(xù)數(shù)的平方數(shù)，其和等于其后的K個連續(xù)數(shù)的平方數(shù)之和。 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. 改錯時，不得增加或刪除語句，但可適當調(diào)整語句位置； 3. 將窗體文件和工程文件分別命名為F1和P1，并保存到軟盤A的根目錄下。 二、編程題（26分） 【題目】在A盤根目錄下建立純英文的文本文件Data.txt。要求編程用字符串S1替換文件中所有字符子串S，字符串S不區(qū)分字母大 小寫，S1與S長度不一定相同。 文件Data.Txt的內(nèi)容如下，其中VB、Vb，vB,vb都要求用Visual Basic替換。 This a VB book We study vb Vb is very useful Hello VB 運行程序，替換后的結(jié)果見界面圖。 【編程要求】 1. 按“開始”按鈕，則開始運行程序，將結(jié)果按圖示格式顯示在文本框中；按“清除”按鈕，則將文本框清空；按“結(jié)束”按鈕結(jié) 束程序運行； 2. 要求編寫一個實現(xiàn)字符串替換的通用過程； 3. 不允許使用Instr函數(shù)。 【要求】 1. 程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； 2. 將窗體文件和工程文件分別命名為F2和P2，并保存到軟盤A的目錄下。
|
