... <看更多>

Function Newstr(ByVal oldstr As String) As String. If Left(oldstr, 1) = "-" Then. Newstr = "-" & VBA.String(10 - Len(oldstr), "0") & _. Right(oldstr,. ... <看更多>

Sub ShowArrayBounds() Dim givenData(3 To 5, 5 To 7) As Double MsgBox LBound(givenData, 1) MsgBox UBound(givenData, 1) MsgBox LBound(givenData, ... ... <看更多>