2011春江苏省二级VB上机1真题及答案.doc

2011春江苏省二级VB上机1真题及答案
江苏省二级Visual Basic上机试卷1
(本试卷完成时间为70分钟)
考试说明:
,主要用来调试程序,若题目中有参考界面,则仅作参考。
,文件必须存放在指定位置,否则适当扣分；考试盘中若无指定文件,则不予评分。
。
一、改错题(14分)
【题目】
本程序的功能是:找出100～999之间的十进制数为升序数,且其对应的八进制数也是升序数的整数。所谓升序数,是指该数的十位数字值大于个位数字值,百位数字值大于十位数字值。


Option Explicit
Private Sub CmdFind_Click()
Dim n As Integer,s8 As String
For n=100 To 999
s8=d2Q(n)

If sx(n) And sx(Val(s8)) Then
n & "D==>" & s8 & "Q"
End If
Next n
End Sub
Private Function d2Q(n As Integer) As String
Dim p As Integer
Do
p=n Mod 8
d2Q=d2Q & CStr(P)
n=n\8
Loop Until n=0
End Function
Private Function sx(ByVal n As Integer)As Boolean
Dim num() As Integer,k As Integer,t As Integer
Dim i As Integer
t=Len(CStr(n))
ReDim num(t)
For k=1 To t
num(k)=Val(Mid(CStr(n),k,1))
next k
For i=1 To UBound(num)-1
If num(i)>=num(i+1) Then Exit For
Next i
sx=True
End Function
【要求】
,输入上述代码,改正程序中的错误。
,不得增加或删除语句,但可适当调整语句的位置。
,并保存到T盘根目录下。
二、编程题(26分)
【题目】
编写程序,对实验数据进行分组均化处理。处理的方法是:先将实验数据从小到大排序,然后按排序后的顺序每3个数作为一组,再用每组3个数的平均值作为这3个数的表现值