NCRE二级vb机考常用算法.docVIP

全国计算机等级考试NCRE二级Visual Basic 上机考试常用算法总结 邵山欢 2010年2月 最值问题 【算法思路】在若干数中求最大值，一般先取第一个数为最大值的初值（即假设第一个数为最大值）。然后，利用循环语句将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值，直到循环结束。求最小值的方法类同。求若干数平均值，实质上就是先求和，再除以这些数的个数。 【算法举例】从指定文件中读取100个整数，求它们的最大值、最小值和平均值。 2.区间内（或文件内）的素数问题 【算法思路】就是一个大于等于2的整数，并且只能被1和本身整除，而不能被其他整数整除的数。 判别某数m是否是素数的经典算法是： 对于正整数m，依次从2，3，4，……，m－1判别能否整除m，只要有一个能整除m,那么m就不是素数，否则m是素数。 【算法举例】找出100到200之间的素数。 3. 最大公约数 【算法思路】参见教材P193“辗转相除法”相关内容。 【算法举例】求两个数字的最大公约数 4. 最小公倍数 【算法思路】数x、y的最小公倍数= x * y / 最大公约数 5.两数互质 【算法思路】仅需验证两数最大公约数是否是1 6.冒泡法排序 【算法思路】参见教材P220“冒泡法排序”相关内容 【算法举例】从指定文件中读取100个整数，并正序排列，将第66位数字存入指定文件。 6.勾股数 【算法举例】计算1至60的勾股数，其中3、4、5与3、5、4算一组。 7.出现字母最多的是 【算法举例】统计指定文件中出现大写字母最多的是什么。 8.加密算法 【算法举例】最简单的加密方法是：将每个字母加一序数，例如5，这时： “A”→”F”,”a” →”f”,”B” →”G”,”b” →”g”……”Y” →”D”, ”y” →”d”,”Z” →”E”, ”z” →”e” 9.逐项定义数列构造问题 【算法举例】斐波那契数列：1，2，3，5，8，10…求数列的第44项。 10.未定项数列构造问题 【算法举例】一个数列第一项为3，第二项为6，以后的每一项依照如下办法确定值：此项的前面两项相乘，如果小于10，则以此乘积最为该项的值；若乘积大于或等于10，则以此乘积的十位作为该项，个位作为该项的下一项。然后再以数列此时的最后两项按上述办法确定再下一项的值，如此反复。求数列前600项。 11.回文 【算法举例】找出1~1000的所有自身是回文数，且它的平方也是回文数的数 化工科协2010年NCRE二级（VB）考前串讲班 邵山欢 shaoshanhuan@163.com [讲义]上机考试常用算法总结 更多学习资料请访问/bgzdh/ncre/index.htm获得。 3 / 4 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim strInput$, Code$, Record$, c As String * 1 Dim i%, length%, iAsc% strInput = Text1.Text length = Len(Trim(strInput)) Code = For i = 1 To length c = Mid(strInput, i, 1) Select Case c Case A To Z iAsc = Asc(c) + 5 If iAsc Asc(Z) Then iAsc = iAsc - 26 Code = Code Chr(iAsc) Case a To z iAsc = Asc(c) + 5 If iAsc Asc(z) Then iAsc = iAsc - 26 Code = Code Chr(iAsc) Case Else Code = Code c End Select Next i Text2.Text = Code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim a(1 To 100) Open D:\Dt1.txt For Input As #1 For i = 1 To 100 Input #1, a(i) Next i Close #1 Max = a(1) Min = a(1) Sum = a(1) For i = 2 To 20 If a(i) Max Then Max = a(i)