请回答下列问题:
(提示:RANK函数用于计算某数字在一列数字中相对于其他数字的大小排名。例如:=RANK(A3,$A$3:$A$10,1)表示A3单元格中的数字在A3:A10中的升序排名)
B .
C .
D .
Dim i As Integer,sum As Integer
Dim a(1 To 6)As Integer,b(1 To 6)As Integer
Sum=0
a(6)=18:a(5)=7:b(6)=14:b(5)=16
For i=4 To 1 Step-1
a(i)=a(i+2)-a(i+1)
b(i)= b(i+2)-a(i)
If b(i)Mod 3=0 Then sum=sum+b(i)
Next i
Text1.Text=Sir(sum)
该程序段运行后,文本框Text 1中显示的内容是( )
Function Leap(y As Integer)As Integer
If y Mod 100=0 Then
If y Mod 400=0 Then Leap=1 Else Leap=0
Else
If y Mod 4=0 Then Leap=1 Else Leap=0
End If
End Function