浮动水平线算法绘制网格表面.rar

VB 'InNum-ÊäÈëÊý,nDec-СÊýλÊý,nWidth-¿í¶È,IC-×óÓÒ¶ÔÆë±êÖ3⁄4,OutStr-Êä3ö×Ö·û ́® Public Function Formats(InNum As Variant, cFormat As String) As String Dim I As Integer I = Len(cFormat) Formats = Format(InNum, cFormat) If (Len(Formats) < I) Then Formats = Space(I - Len(Formats)) + Formats End Function