这段代码说的是什么？

Function abr(Str,Num)
 If Len(Str) > Num Then
  abr=Mid(Str,1,Num)&".."
 Else
     abr=Str
 End If
End Function
Function Astr(Str)
 If Len(Str)=1 Then
  Astr="0"&Str
 Else
  Astr=Str
 End If
End Function

两个函数 第一个是

abr(str,num)

当参数 str的长度大于参数num的时候

abr等于从str第一位开始读取num个字符再加上两个点..

当参数 str的长度小于参数num的时候

abr等于str

第二个函数astr(str)

当参数str的长度等于1的时候

astr等于0加上参数str

当参数str的长度不等于1的时候

astr等于str