1 写出下列过程的运行结果：

Private Sub Command1_Click()
Dim A(10) As Integer, B&(9)
Dim I As Integer
For I= 1 To 10
A(I)=11-I
Next I
For I=1 To 9
B(I)=A(I)+A(I+1)
Next I
For I=1 To 9
Debug.Print B(I),
If I Mod 3=0 Then Debug.Print
Next I
End Sub

2. 过程TEST2计算10个人的平均年龄，并根据该平均年龄值判断这组人处于人生的哪个阶段：40岁以下为青年，40~59为中年，60岁或以上为老年。请找出程序中的语法错误和逻辑错误并改正（程序的结构不能破坏）。

Sub Test2()
Dim N As Single, I As Byte, Stage As Double
Dim Avg As Single
N=10'共10人
Dim Age(N) As Integer
For I=1 To 10
Age(I)=ImputBox(“输入年龄值：”）
Avg=Avg+Age(I)
Next I
Avg=Avg/I
If Avg>40 Or Avg<60 Then Stage=“中年”
If Avg<=40 Then Stage=“青年”Else Stage=“老年”
MsgBox Avg & “ “ & Stage
End Sub

3. 过程TEST3用于寻找两个自然数的最大公约数。请填空。

Sub Test3() Dim X As Integer, Y As Integer, I%
X=InputBox("Data 1=")
Y=ImputBox("Data2=")
For I= X To 1_________
If X Mod I=0________Y Mod I=0 Then
_________
End if
Next I
MsgBox“最大公约数”&________'输出最大公约数
End Sub