2011秋江苏省计算机二级VB上机真题.docx

文档介绍：2011秋江苏省计算机二级VB上机真题1
2011秋江苏省计算机二级VB上机真题1
2011秋二级Visual Basic上机试卷
(本试卷完成时间为70分钟)
考试须知:
1．改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考。
2．考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分。
3．程序代码书写应呈锯齿形。
一、改错题(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 CStr(i)
8 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．改错时,不得增加或删除语句,但可适当调整语句位置。