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

    计算机基础知识和应用能力等级考试上机试卷2009春

    二级Visual Basic语言(试卷代号VB01)  ‘

    (本试卷完成时间70分钟)

【考试须知】

1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；

2．考试结束后，文件必须存放在指定位置，否则适当扣分：考试盘中若无指定文件，则不

  予评分：

3．程序代码书写应呈锯齿形。

一、改错题(14分)

【题目】本程序的功能是：把10～20范围内的数分别表示成若干个质因子连乘的形式。

Option Explicit  

Option base 1

Private Sub Command1_Click()

    Dim j As Integer,pf() As Integer,i As Integer

    Dim st As String

    For i=10 To 20

     Call prime_f(I,pf)

      St=CStr(i)&”=”

    Forj=1 To UBound(pf)

      st=st&Str(pf(j)))&”*”

    Next j

    st=st & Str(pf(j))

    List1.AddItem st

    Next i

End Sub

Private Sub prime_f(n As Integer,a()As Integer)

  Dim i As Integer,k As Integer

  i=2

  Do

    If n Mod  i=0  Then

        k=k+1

        ReDim Preserve a(k)

       a(k)=i

       n=n\i

    Else

       i=i+1

    End  If

  Loop  Until n<=0

End Sub

【要求】

1．新建工程，输入上述代码，改正程序中的错误；

2．改错时，不得增加或删除语句，但可适当调整语句位置：

3．将窗体文件和工程文件分别命名为Fl和P1，并保存到T盘的根目录下。

二、编程题(26分)

【题目】编写程序找出介于M,K(M>100，K<10000)之间的勾股弦数。设N是介于M、

K之间的正整数，它的第一位、第二位数字依次为a、b，最后一位(或两位)是c，若a^2+

b^2=C^2，则这样的数N称为勾股弦数。

【编程要求】

1·程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界

  面元素大小适中．且均可见：

2．运行程序，首先在文本框M和K中输入查找范围，然后按”运行”按钮，在列表框中以

  指定格式输出查找结果，若指定区间无勾股弦数，则输出“无勾股弦数!，’信息：按“清

  理”按钮，将文本框和列表框清空，焦点置于文本框M上；按“结束”按钮，结束程序

  运行：

3．程序中应定义一个通用过程，用于将一个整数按给定规则分解成三个数，并验证其是否

  为勾股弦数。

【算法提示】注意，三角形的边长不得为0。

【要求】

将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。