典型考题解析（1).pptVIP

常用算法 累加、累乘、穷举法、递推法、求最大值/最小值、求最大公约数/最小公倍数。 图形打印（金字塔形、杨辉三角形等） 素数判定、求fib数列前n项的和 数组求最值、冒泡法和选择法排序、数组元素的增加和删除 函数过程和子过程 基本控件属性 顺序文件操作 典型考点 下载由正整数组成的数据文件{wj002.txt}到自己的机器中，编写程序，统计出该数据文件中，在第51个-第1000个数据之间，末位数字是4的数据的个数。把结果写入试卷中指定位置。 Option Explicit Private Sub Command1_Click() Dim x%, t%, i%, j% Open d:\wj002.txt For _________ As #1 For i = 1 To 50 Input ______ , _____ Next i For i = 51 To 1000 Input ______ , _____ If x Mod ______ = _____ Then _____ = _____ + 1 Next i Print t End Sub 程序运行的结果是 ______ 1、Input 2、#1 3、x 4、#1 5、x 6、10 7、4 8、t 9、t 10、92 下列程序的功能是：计算1+(1+2)+(1+2+3)+……，求累加到第几项的时候它的和超过50000。 * 请填空： Option Explicit Private Sub Command1_Click() Dim i%, _____ %, s! i = 0 t = 0 s = 0 ______ While _____ = 50000 _____ = i + _____ _____ = t + _____ _____ = s + _____ Loop Print i End Sub 程序运行的结果是 ______ 1、t 2、Do 3、s 4、i 5、1 6、t 7、i 8、s 9、t 10、66 * 下列程序的功能是：求个位数是6，且能被3整除的所有四位数之和。 * 请填空： __________ Explicit Private Sub Command1_Click() _______ s!, _____ % s = _____ For _____ = 1000 To 9999 If _________ (i, 1) = 6 And i Mod 3 = 0 Then _____ = s _____ _____ End If Next i Print s End Sub 程序运行的结果是 ___________ 1、Option 2、Dim 3、i 4、0 5、i 6、Right 7、s 8、+ 9、i 10、1653300 * 下载由正整数组成的数据文件{wj002.txt}到自己的计算机中，编写程序，求出该数据文件里的前1000个数中个位、十位、百位数字的和是奇数的数据的个数。把结果写入试卷中指定位置。 * 请填空： Option Explicit Private Sub Command1_Click() Dim x%, t%, i%, xg%, xs%, xb% ________ d:\wj002.txt _______ Input ______ #10 For i = 1 To 1000 Input _______ , _____ xg = x Mod 10 xb = x \ 100 xs = ( _____ - ______ * 100) \ 10 If (xb + xs + xg) Mod 2 = 1 And xb10 Then _____ = _____ + 1 End If Next i Print t End Sub 程序运行的结果是 _______ 1、Open 2、For 3、As 4、#10 5、x 6、x 7、xb 8、t 9、t 10、56 * 下列程序的功能是：求数列2,4,8,16,32,…前若干项之和。当和大于9000时，终止求和并