发布时间 : 星期五 文章2000年（秋）考试试卷更新完毕开始阅读893278e27c1cfad6195fa7ea
Print \生成\个不同的数\For i = 1 To Idx Print Data(i)
If i Mod 10 = 0 Then Print Next i End Sub
Private Sub compare(arry() As Integer, k As Integer, logic As Boolean) Dim ub As Integer, i As Integer ___19____ For i = 1 To ub If arry(i) = k Then ___20___ End If Next i
logic = True End Sub
下列程序的功能是验证回文数猜想。任取一自然数，将其到过来，并将这两个数相加，然后把这两个数倒过来，与原来的和数相加······ 重复这个过程有限次，必将得到一个回文数。所谓回文数指左右数字完全对称的自然数，例如，121，12321，898，111均是回文数。根据猜想，假如取一自然数68→68+86=154→154+451=605→605+506=1111。 Option Explicit
Private Sub Form_Click()
Dim s As Long, d As Long, sum As Long Dim flg As Boolean
s = InputBox(\输入一个正整数\Do
d = fun(s) sum = s + d
Print sum; \Call comp(sum, flg) s=__21___ Loop Until flg
Print sum; \是回文数\End Sub
Private Function fun(n As Long) Dim char As String, j As Long Dim i As Integer, slen As Integer char = LTrim(Str(n)) ___22__ j = 1
For i = 1 To slen
fun = fun + Val(Mid(char, i, 1)) * j ___23___
Next i
End Function
Private Sub comp(n As Long, f As Boolean) Dim ch As String, s As Integer, i As Integer s = Len(LTrim(n)) f = False
ch = LTrim(Str(n)) For i = 1 To__24___
If Mid(ch, i, 1) <> Mid(ch, s + 1 - i, 1) Then Exit Sub Next i ___25___ End Sub
第三部分 Visual Basic 改 错 编 程
一、 错题（17分） 【题目】
本程序的功能是用来统计二维数组A（1 to 4,1 to 4）中所有元素中0~9十个数字出现的次数，存入数组Times中并显示在窗体上。
Option Explicit
Private Sub Form_Click()
Dim A(1 To 4, 1 To 4) As Integer, I As Integer, J As Integer
Dim times(9) As Integer Randomize For I = 1 To 4 For J = 1 To 4
A(I, J) = Int(Rnd(1) * 100) + 1 Print Format(A(I, J), \ Next J Print
Next I
Call Stat(A, times)
For I = 1 To 10
Print I; \ Next I
End Sub
Private Sub Stat(A() As Integer, T() As Integer)
Dim I As Integer, J As Integer, Cub As Integer, K As Integer Dim Rub As Integer, Char As String
Cub = UBound(A, 1): Rub = UBound(A, 2) For I = 1 To Cub For J = 1 To Cub
Char = LTrim(Str(A(I, J)))
For K = 1 To 10
T(Mid(Char, K, 1)) = T(Mid(Char, K, 1)) + 1 Next K Next J Next I
End Sub
【要求】
1． 新建工程，输入上述代码，改正程序中的错误； 2． 改错时，不得增加或删除语句； 3． 将改正的结果写在答题纸上。 二、编程题（23分） 【题目】
编写一个收购小麦与带扣农业税的程序。 【编程要求】 1． 程序参考界面如图所示（其中Label1对象用于显示“小麦的收购价是：1.10元
/公斤，，农业税额：55元/亩”等提示信息）。编程时不得增加或减少界面对象或改变对象的类型，但界面元素的大小、位置可随意设置。
2． 实现功能：
（1） 单击“计算”按钮，则根据输入的小麦数量，以及所拥有的土地亩数，
求出应交税款和应得粮款（应得粮款=小麦总金额-应交税款），并显示在相应的文本框中；
（2） 单击：“除除”按钮，清除四个文本框中的内容； （3） 单击“结束”按钮，结束程序运行。 【要求】
将改正的结果写在答题纸上。 【注意】
考试结束，考试卷上发现有抄袭现象，则不予评分。