几道VB编程题求解答，谢谢

Question

1、调用子程序，求以下四个数的最大公约数
FOR I = 1 TO 4
READ A(I)
NEXT
DATA 147, 210, 315, 735
FOR I = 1 TO

NEXT I
PRINT “GCD=”; R
END
10 DO
Q = A(I) \ A(I+1)
R = A(I) %A(I+1)
IF R = 0 THEN RETURN
ELSE A(I) =A(I+1) : A(I+1) = R
LOOP

4、 以下程序能完成下列三项功能：
1) 读入20个大写英文单词，统计单词IS出现的次数T；
2) 测试这20个英文单词的平均长度；
3) 将这20个英文单词按字典顺序排列输出，并打印原来的序号
N = 0 : T = 0 : X$= “IS”

FOR I = 1 TO 20
PRINT “<”; I; “>”;
INPUT A$(I)
B(I) = I
NEXT I
FOR I = 1 TO 20
N =
IF THEN T = T + 1 :
NEXT I
PRINT “单词IS出现的次数=”；T, “单词的平均长度=”; N/20
FOR I = 1 TO ：FOR J = I + 1 TO 20
IF THEN ：
NEXT J, I
FOR I = 1 TO 20
PRINT “[“;I;”]”; A$(I); “——>”;
NEXT I
END

5、 有一些分子、分母都是两位数的真分数，且分子的个位数与分母的十位数字相同，若将该分数的分子（用变量M表示）的个位数字和分母（N）的十位数字同时划去，所得到的结果正好等于原分数约分后的结果。例如，16/64=1/4就是其中的一个。找出所有满足条件的真分数。
10 FOR I = 1 TO 9 ：FOR J = 1 TO 9 ：
20 IF THEN 60
30 M = ：N =
40 IF THEN 60
50 IF THEN PRINT J*10+I; “/”; I*10+K
60 NEXT K, J, I : END
6、 【问题描述】从1，2，……，N这N个自然数中，任取R个数进行组合，（4≤N≤8，1≤R<N）然后列出全部组合。
例如：当N=5，R=3时，列出的全部组合如下：
1 2 3 1 2 4 1 2 5
1 3 4 1 3 5 1 4 5
2 3 4 2 3 5 2 4 5
3 4 5
S=10
【程序说明】对任给出的R和N，则
第一个组合为1，2，……，R
然后变化第R位；
第二个组合为1，2，……，R+1
继续变化第R位，可以变到N；然后再变化第R-1位，R-2位，……，直至第1位的变化。
用数组B（20）记录组合，S记录组合总数。
【程序清单】
CLS
DIM B（20）
INPUT N，R
①
FOR I = 0 TO R
B（I）=I
NEXT I
DO WHILE ②
S=S+1
FOR I = 1 TO R
PRINT B（I）；“ ”；
NEXT I
PRINT
J=R
DO WHILE ③
J=J-1
LOOP
B（J）=B（J）+1
FOR I = J+1 TO R
B（I）=B（I-1）+1
NEXT I
LOOP
PRINT “S=”；S
END
7、 对50位同学的数学成绩按100、90-99、80-89、70-79、60-69、50-59、0-49进行分段统计（成绩随机产生）。
10 ：FOR I = 1 TO 50
20 A(I) = INT( ) ：NEXT I
30 FOR I = 1 TO 50 ：A =
40 S(A) = S(A) + 1 ：NEXT I
50 PRINT “100分：”;
60 FOR I = 9 TO STEP
70 PRINT ；S(I)
80 NEXT I ：PRINT “0-49：”;
90 END

8、 下图中的九个数字分成三段，按顺时针方向组成一个两位数、一个三位数、一个四位数，且满足等式：两位数×三位数=四位数
10 A$ = “13857964213857964”
20 FOR I = 1 TO 9
30 B$ = MID$(A$, )
40 C$ = MID$(A$, I+2, 3)
50 D$ = MID$( A$, )
60 B = VAL(B$) ：C = VAL(C$) ：D = VAL(D$)
70 IF THEN PRINT B; “*”; C; “=”; D
80 NEXT I

Answer 1

第5题：将此段复制在代码窗口，再点击窗体即可。
Private Sub Form_click()
Dim x%, y%
For x = 10 To 99
For y = x + 1 To 99
If scl(x, y) = True Then
Print x; "/"; y; "符合要求！"
End If
Next y
Next x
End Sub
Function scl(x As Integer, y As Integer) As Boolean
Dim a%, b%, c%, d%, e#, f#
a = Right(Trim(Str(x)), 1)
b = Left(Trim(Str(y)), 1)
c = (x - a) / 10
d = y - 10 * b
e = d * x
f = c * y
If a <> b Then
scl = False
ElseIf e <> f Then
scl = False
Else
scl = True
End If
End Function

Answer 2

你的问题呢？