VisualBasic常用算法汇总.doc

计算机等级考试二级VisualBasic常用算法汇总南通大学 计算机科学与技术学院鲁 松计算机等级考试二级VB常用算法(1)：累加和连乘1、算法说明 累加形式：V=V+e 连乘形式：V=V*e 其中：V是变量，e是递增表达式。累加和连乘一般通过循环结构来实现。 注意：需在执行循环体前对变量V赋初值。一般的，累加时置初值0；连乘时置初值为1. 举例 求N！的结果。 Private Sub Command1_Click（） Dim n%， i%， s& n = Val（InputBox（输入n） s = 1 For i = 1 To n s = s * i Next i Print s End Sub 错误的写法： Private Sub Command1_Click（） Dim n%， i%， s& n = Val（InputBox（输入n） For i = 1 To n s = 1 赋初值语句位置不对！ s = s * i Next i Print s 输出s的值为n，而不是n！ End Sub 应用举例 根据下列公式，求自然对数e的的近似值。 要求：误差小于0.00001 Private Sub Command1_Click（） Dim i%， n&， t！， e！ e = 2 i = 1 t = 1 Do While t 0.00001 i = i + 1 t = t / i e = e + t Loop Print 计算了； i； 项目和是：； e Print Exp（1） 与上句输出值进行对比以证明算法的正确性 End Sub 解题技巧 1）由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用Do循环，很少用For循环。设定循环变量和通项变量，注意各变量的初值； 2）分解通项表达式中各因子，并分别将各因子用循环变量表示； 3）如果步骤2中有的因子比较复杂，难以直接用变量表示，此时可以考虑使用Function过程； 4）根据步骤1、2、3，写出通项表达式； 5）根据精度要求（往往是通项小于10负多少次方这样一个关系表达式），写出一条满足精度要求后跳出循环的语句。通常是用：if 通项表达式10（-N） then exit do ，注意这句话一般需放在累加或者连乘式之前。实例说明 以2002年春上机试卷06编程题为例 根据X值计算： n1，2， 要求：n项绝对值小于等于10-6为止。 1、由于循环次数不确定，因此确定用Do循环结构并定义循环变量用n表示（初值1）；用户输入的值用x表示；通项用dblCos表示；累加值用sum表示，初值为0； 2、分解通项式的组成 可以分解为三部分： 可以表示为：（1）（n+1） 可以表示为：x（2*（n-1） 比较复杂，难以直接表示 3、由于步骤2中复杂， 此时考虑使用过程。 于是定义过程，输入值是n，返回值是 于是有： private Function comp（n as long）as long dim I as long dim result as long result=1 此处注意，由于是连乘，初值为1 for I=1 to 2*（n-1） result=result*I next I comp=result End Function 注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！） 4、根据步骤1、2、3，写出通项dblCos的表达式： dblCos=（1）（n+1）* x（2*（n-1）/comp（n） 5、根据精度要求知： If abs（dblCos）=10（-6） then exit do 最后程序为： Private Sub Command1_Click（） Dim n As Long， dblCos As Double， x As Double x = Val（Text1.Text） n = 1 Do dblCos = （-1） （n + 1） * x （2 * （n - 1） / comp（n） If Abs（dblCos） max Then max = s If s a(j,col) Then （3） Next j计算机等级考试二级VB常用算法(3)：素数1、算法说明 素数（质数）：就是一个大于等于2的整数，并且只能被1和本身整除，而不能被其他整数整除的数。 判别某数m是否是素数的经典算法是： 对于m，从I2，3，4，m1依次判别能否被I整除，只要有一个能整除，m就不是素数，否则m是素数。 Private Function sushu(ByVal n As Long) As Boolean Dim i As Long For i = 2 To n - 1 If (n Mod i) = 0 Then Exit For Next I If I=n then sushu=True End Function 很显然，实际上，我们可以改进上面 For i = 2 To n 1 为： For i = 2 To int（sqr（m） 这样可以很好的提高效率。 以上判断是否为素数的代码务必识记！ 应用举例 求100200之内素数。 Private Sub Command1_Click() Dim j As Integer For j = 100 To 200 If sushu(j) = True Then Print j End If Next j End Sub 解题技巧 识记判断素数的算法过程，根据题意，灵活调用！ 实例说明 编程题（2002年春上机试卷04） 找出10000以内所有可以表示为两个平方数和的素数。 思路： 首先找10000以内的所有素数，对于每个素数判断其是否可以表示为两个平方数之和（即对于任意小于该素数shu的数I，如果I和shuI均为平方数，则说明其可以表示为两个平方数之和。） 判断数I是否为平方数的方法：sqr（i）=int(sqr(i) Private Sub Command1_Click() Dim j As Integer Dim m As Long, n As Long For j = 2 To 10000 If sushu(j) = True Then If pf(j, m, n) = True Then List1.AddItem j & = & m & + & n End If End If Next j End Sub Private Function pf(ByVal shu As Long, m As Long, n As Long) As Boolean Dim i As Long For i = 1 To shu - 1 If (Sqr(i) = Int(Sqr(i) And (Sqr(shu - i) = Int(Sqr(shu - i) Then pf = True m = i n = shu - i Exit Function End If Next End Function 2、实战练习 1) 补充代码（2002春二（7） 下列程序的功能是：查找四位正整数中的超级素数。超级素数的定义为：当一个素数从低位到高位依次去掉一位数后剩下的数仍然是素数，则此数为超级素数。如数2333、233、23、2均为素数，所以2333为超级素数。 Option Explicit Private Sub Command1_Click() Dim I As Integer, flg As Boolean For I = 1001 To 9999 Step 2 Call sup_prime(I, flg) If flg Then Debug.Print I End If Next I End Sub Private Sub sup_prime( （1） , F As Boolean) Dim p As Integer F = True Do While N 0 If prime(N) Then （2） Else （3） Exit Sub End If Loop End Sub Public Function prime(p As Integer) As Boolean Dim k As Integer If p = 1 Then Exit Function Else For k = 2 To Sqr(p) If p Mod k = 0 Then Exit Function Next k （4） End If End Function 2) 编程题（2004春上机试卷03） 随机生成15个两位正整数，从中找出所有的素数，并记下它是第几个数，再找出其中最大的素数，并给出它的位置。 计算机等级考试二级VB常用算法(4)：进制转化1、算法说明 1) 十进制正整数m转换为R（216）进制的字符串。 思路： 将m不断除r取余数，直到商为0，将余数反序即得到结果。 算法实现： Private Function Tran(ByVal m As Integer, ByVal r As Integer) As String Dim StrDtoR As String, n As Integer Do While m o n = m Mod r m = m r If n 9 Then StrDtoR = Chr(65 + n - 10) & StrDtoR Else StrDtoR = n & StrDtoR End If Loop Tran = StrDtoR End Function2) R（216）进制字符串转换为十进制正整数。 思路：R进制数每位数字乘以权值之和即为十进制数。 算法实现： Private Function Tran(ByVal s As String, ByVal r As Integer) As integer Dim n As Integer, dec As Integer s = UCase(Trim(s) For i% = 1 To Len(s) If Mid(s, i, 1) = A Then n = Asc(Mid(s, i, 1) - Asc(A) + 10 Else n = Val(Mid(s, i, 1) End If dec = dec + n * r (Len(s) - i) Next i Tran = dec End Function解题技巧 进制转化的原理要清楚,同时编写代码时候要留意16进制中的AF字符的处理。 2、实战练习 1) 补充代码（2002秋二（9） 本程序是把给定的二进制整数转换为八进制整数。 Private Sub Command1_Click() Dim a As String, b As String, c As String Dim L As Integer, m As Integer, n As Integer a = InputBox(请输入一个二进制数, 输入框) （1） a = String(L, 0) & a （2） For m = 1 To n / 3 b = Mid(a, 3 * m - 2, 3) （3） Next m Text1.Text = c End Sub Private Function zh(s As String) As String Dim i As Integer, n As Integer, p As Integer p = 1 For i = 2 To 0 Step -1 （4） p = p + 1 Next i zh = Str(n) End Function 2) 补充代码（2001春二（7） 下面程序是把给定的16进制正整数转换为10进制数。 Option Explicit Private Sub Form_Click() Dim St As Integer， Dem As Long St=InputBox(输入一个十六进制数) Dem=Convert(St) Print St; =; Dem End Sub Private Function Convert(S As String)As Long Dim N As Integer， I As Integer，Substring As String*1 Dim P As long， K As Long，Asc1 As Integer N= （1） P=16N For I=1 To N P=P/16 Substring= （2） Select Case Substring Case 0 To 9 K=K+P*Val(Substring) Case （3） Asc1=Asc(Substring)-Asc(A)+10 （4） End Select Next I （5） 计算机等级考试二级VB常用算法(5)：约数因子1、算法说明 1) 最大公约数： 用辗转相除法求两自然数m、n的最大公约数。 （1） 首先，对于已知两数m、n，比较并使得mn； （2） m除以n得余数r； （3） 若r0，则n为求得的最大公约数，算法结束；否则执行步骤（4） （4） mn nr 再重复执行（2） 譬如： 10与5 分析步骤： m=10 n=5 r=m mod n=0 所以n(n=5)为最大公约数 24与9 分析步骤： m=24 n=9 r=m mod n=6 r0 m=9 n=6 r=m mod n=3 r0 m=6 n=3 r=m mod n=0 所以n(n=3)为最大公约数 算法实现 循环实现 Private Function GCD(ByVal m As Long, ByVal n As Long) As Long Dim temp As Long If m n Then temp = m: m = n: n = temp Dim r As Long Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop GCD = n End Function 递归实现 Private Function GCD(ByVal m As Long, ByVal n As Long) As Long Dim temp As Long If m n Then temp = m: m = n: n = temp Dim r As Long r = m Mod n If r = 0 Then GCD = n Else m = n n = r GCD = GCD(m, n) End If End Function 2) 最小公倍数 mn最大公约数 3) 互质数 最大公约数为1的两个正整数 解题技巧 该算法需要识记！ 这种类型题目的扩展是约数和因子题型。 2、实战练习 1) 补充代码（2003春二（9） 给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为1的两个正整数，下图是程序执行画面）。 Option Explicit Private Function gcd（ （1） ） As Integer Dim r As Integer r = m Mod n If r = 0 Then gcd = n Else m = n: n = r （2） End If End Function Private Sub Command1_Click() Dim n As Integer, p As Integer n = Val(Text1) For p = n - 1 To 2 Step -1 If （3） Then List1.AddItem p Next p End Sub 2) 编程题（2002秋上机试卷01） 生成一个三行八列的二维数组A(3,8)，其中前两行元素产生的方法是： 用初值X1=26及公式Xi+1=(25Xi+357) Mod 1024，产生一个数列：X1、X2、.、X16 。 其中X1X8作为A的第一行元素；X9X16作为A的第二行元素；A的第三行元素值取前两行同列元素的最大公约数。最后按图示格式显示在图片框中。 计算机等级考试二级VB常用算法(6)：排序1、算法说明 1) 选择法排序 (1) 从