計(jì)算機(jī)等級(jí)考試二級(jí)VB常用算法(5)：約數(shù)因子

1)        補(bǔ)充代碼（2003春二（9））
         給定一個(gè)十進(jìn)制正整數(shù)，找出小于它并與其互質(zhì)的所有正整數(shù)（所謂互質(zhì)數(shù)是指最大公約數(shù)為1的兩個(gè)正整數(shù)，下圖是程序執(zhí)行畫(huà)面）。

 

              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秋上機(jī)試卷01）
         生成一個(gè)三行八列的二維數(shù)組A(3,8)，其中前兩行元素產(chǎn)生的方法是：
用初值X1=26及公式Xi+1=(25×Xi+357) Mod 1024，產(chǎn)生一個(gè)數(shù)列：X1、X2、......、X16 。
其中X1~X8作為A的第一行元素；X9~X16作為A的第二行元素；A的第三行元素值取前兩行同列元素的最大公約數(shù)。最后按圖示格式顯示在圖片框中。

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目