1. 
改错题(14分)

    【题目】

    本程序的功能是:找出100～999之间的回文数,且其对应的8进制数也是回文数的整数。所谓回文数,是指正读与倒读都相同的数。

1    Option Explicit

2    Private Sub Command1_Click()

3      Dim i As Integer,m As Integer

4      For i=100 To 999

5        m=d2Q(i)

6        If m And Reverse(i)Then

7          List1.AddItem CStr(i)

8          List2.AddItem CStr(m)

9        End If

10     Next i

11   End Sub

12   Private Function d2Q(n As Integer)As String

13     Dim P As Integer

14     Do

15       P=n Mod 8

16       d2Q=CStr(p) & d2Q

17       n=n\8

18     Loop Until n=0

19   End Function

20   Private Function Reverse(n As Integer)As Boolean

21     Dim i As Integer,s As String

22     s=CStr(n)

23     For i=1 To Len(s)/2

24       If Mid(S,i,1)<>Mid(S,Len(s)-i+1,1) Then Exit For

25     Next i

26     Reverse=True

27   End Function

  【要求】

    1．新建工程,按参考界面形式创建窗体,再从T盘根目录下的err．txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。

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

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

2. 
编程题(26分)

    【题目】

    编写程序,求出巴都万数列(Padovan Sequence)的第n1项到第n2项中的素数数据项。巴都万数列的计算公式如下:

P =       

【编程要求】

    1．程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见。

    2．运行程序,在两个文本框中分别输入起始项与终止项的序号后按"查找"按钮,则在多行文本框中,按每行10个元素输出数列项数据,并在列表框中输出其中的素数数据项及其序号;按"清除"按钮,将三个文本框与列表框清空,焦点置于第一个文本框上;按"结束"按扭,结束程序运行。

    3．程序中应定义一个判断素数的通用过程。

    【要求】

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