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