计算机等级考试二级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 submand1_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的第三行元素值取前两行同列元素的最大公约数。最后按图示格式显示在图片框中。