江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（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的目录下。