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