计算机等级考试二级VB常用算法(5)：约数因子

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=(25×Xi+357) Mod 1024，产生一个数列：X1、X2、......、X16 。
其中X1~X8作为A的第一行元素；X9~X16作为A的第二行元素；A的第三行元素值取前两行同列元素的最大公约数。最后按图示格式显示在图片框中。

希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛

更多信息请访问：考试吧计算机等级考试栏目