请帮忙解释下面语句意思-2'填写遗漏值DimnAsIntegerDimarrR()AsInteger,arrB()AsIntegerReDimarrR(5),arrB(5)DimrAsRangeDimkAsLongDimtAsIntegerarrR(0)

　　请帮忙解释下面语句意思-2

　　'填写遗漏值

　　DimnAsInteger

　　DimarrR()AsInteger,arrB()AsInteger

　　ReDimarrR(5),arrB(5)

　　DimrAsRange

　　DimkAsLong

　　DimtAsInteger

　　arrR(0)=9

　　arrB(0)=9

　　Range("B3:AX7").Value=""

　　Forn=2To50

　　k=9

　　DoWhileCells(k,n).Text=""

　　k=k+1

　　Loop

　　Fort=1To5

　　DoWhileCells(k,n).Text=""

　　k=k+1

　　Loop

　　arrR(t)=k

　　arrB(t)=k

　　k=k+1

　　Ifn65530ThenExitFor

　　Cells(t+2,n)=arrR(t)-arrR(t-1)-1

　　ElseIfn>34Then

　　IfCells(k,n).End(xlDown).Cells.Row>65530ThenExitFor

　　Cells(t+2,n)=arrB(t)-arrB(t-1)-1

　　EndIf

　　Nextt

　　Nextn

　　ExitSub

　　EndIf'IfTarget.Value=Sheets("双色球").Cells(i,2)

　　Nexti

　　Else'IfLen(Target.Value)=7

　　ExitSub

　　EndIf'IfLen(Target.Value)=7

　　EndSub