江苏省高校计算机等级考试命题研究院 江苏省高校计算机等级考试辅导
2005春江苏省等级考试二级VB语言上机3

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

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