06年秋省等考卷(3)

06年秋季江苏省计算机二级VB等级考试试卷

Private Sub Command1_Click() Dim I As Integer, n As Integer For I = 5 To 15 Step 2 n = fun1(I, 1) Print n Next I Print I End Sub

Private Function fun1(ByVal a As Integer, b As Integer) b = a + b fun1 = a + b End Function

4．执行下面程序，在文本框Text1中输入数据15768后单击Command1按钮，窗体上显示的第一行是 (9) 、第二行是 (10) 、第三行是 (11) 。

Option Explicit

Private Function pf(x As Integer) As Integer If x < 100 Then pf = x Mod 10

Else

pf = pf(x \\ 100) * 10 + x Mod 10 Print pf End If End Function

Private Sub Command1_Click() Dim x As Integer x = Text1 Print pf(x) End Sub

5．执行下面程序，在文本框Text1中输入as235gh458yj后单击Command1按钮，在列表框List1中显示的第一行是 (12) 、第二行是 (13) ；列表框List2中显示的第一行是 (14) 、第二行是 (15) 。

Option Explicit

Private Sub Command1_Click()

Dim st As String, s As String, k As String

Dim p As String, num() As Integer, i As Integer, n As Integer s = Text1

For i = 1 To Len(s) st = Mid(s, i, 1)

If st >= \

第6页 共10页

06年秋季江苏省计算机二级VB等级考试试卷

p = p & st

Else

If p <> \ p = \ End If

Next i

If p <> \ ReDim num(List1.ListCount) For i = 1 To UBound(num) p = List1.List(i - 1)

num(i) = Val(Left(p, Len(p) - 1)) n = Val(Right(p, 1))

List2.AddItem change(num(i), n) Next i End Sub

Private Function change(x As Integer, y As Integer) Dim p As Integer, k As Integer Do

p = x Mod 10

change = change + p * y ^ k x = x \\ 10 k = k + 1 Loop Until x <= 0 End Function

6．下面是一个利用递推公式求函数求f(x)值的程序。设f(x) = a1 + a2 + ? an + ?(|x|<1)。其中 a1 = x / 2，an = an-1·(-1)(2n-1) / 2n，n=2，3，? 。计算到第n项的绝对值小于等于0.001(|an |≤0.001)为止。程序界面参见右图。

Option Explicit

Private Sub Command1_Click()

Dim x As Single, sum As Single, n As Integer Dim a0 As Single, an As Single x = Text1 n = 1 a0 = x / 2 (16) Do

n = n + 1

an = (17) If Abs(an) < 0.001 Then Exit Do sum = sum + an (18) Loop

Text2 = sum

第7页 共10页

06年秋季江苏省计算机二级VB等级考试试卷

End Sub

7．下面是一个加密/解密程序。加密的算法是：将原文中每个字符的ASCII代码加上该字符在原文中的位置数(设字符在原文中是第n个字符，则其位置数是被10除的余数，当余数为0时，其位置数为10。例如原文字符串为“meet me as sunset”，第一个字符“m”，其位置数为1，而“”为第12个字符，其位置数是被10除的余数2、其余依次类推)作为密文字符的代码，再将密码逆序排列(例如ABCD，逆序排列为DCBA)即为密文。解密算法是加密算法的逆运算。程序界面参见下图。

Option Explicit

Private Sub Command1_Click()

Dim enc As String, dec As String, i As Integer Dim s As String * 1, n As Integer dec = Text1

For i = 1 To Len(dec) s = Mid(dec, i, 1) (19)

If n = 0 Then n = 10 enc = Chr(Asc(s) + n) & enc Next i Text2 = enc End Sub

Private Sub Command2_Click()

Dim enc As String, dec As String, i As Integer Dim n As Integer, s As String * 1, p As Integer enc = Text2 (20) For i = 1 To n

s = Mid(enc, i, 1) p = n Mod 10

If p = 0 Then p = 10 dec = (21) n = n - 1 Next i Text1 = dec End Sub

8．下面程序模拟裁判评分，设有8名裁判，打分范围为7.0到10.0(小数点后取1位)，去掉一个最高分和一个最低分后，所得部分的平均争就是选手最后得分(四舍五入，保留1位小数)。程序界面参见下图。

Option Explicit

Private Sub Command1_Click()

Dim score(8) As Single, i As Integer, maxv As Single Dim minv As Single, av As Single, sum As Single

第8页 共10页

06年秋季江苏省计算机二级VB等级考试试卷

For i = 1 To 8

score(i) = (Int(Rnd * 31) + 70) / 10 Text1 = Text1 & Str(score(i)) & \ (22) Next i

Call maxmin(score, maxv, minv) av = (sum - maxv - minv) / 6 Text2 = (23) End Sub

Private Sub maxmin( (24) ) Dim i As Integer maxv = a(1): minv = a(1) (25) If a(i) > maxv Then maxv = a(i) ElseIf a(i) < minv Then minv = a(i) End If Next i End Sub

9． 下面程序的功能是，从D盘根目录下的data1.txt文件中读取一组从小到大已排序的英文词汇，并显示到列表框List1中；再把文本框Text1中输入的英文词汇按序插入到已排序的英文词汇级适当位置，并显示到列表框List2中。利用二分法确定待插入的英文词汇的插入位置。data.txt的内容如下图所示，程序界面参见下图。

Option Explicit

Private Sub Command1_Click()

Dim s() As String, temp As String, k As Integer Dim i As Integer

Open \试题\\data1.txt\ Do (26) k = k + 1

ReDim Preserve s(k) (27) )

List1.AddItem s(k) Loop

Close #11 temp = Text1 Call sort(temp, s) For i = 1 To UBound(s) List2.AddItem s(i) Next i End Sub

第9页 共10页

06年秋季江苏省计算机二级VB等级考试试卷

Private Sub sort(temp As String, st() As String) Dim low As Integer, high As Integer, mid As Integer Dim i As Integer

low = 1: high = UBound(st)

ReDim Preserve st(UBound(st) + 1) If temp < st(1) Then

For i = UBound(st) - 1 To 1 Step -1 (28) Next i st(1) = temp Exit Sub …… 此处隐藏：765字，全部文档内容请下载后查看。喜欢就下载吧 ……