Text Progress Bar
Give this function a number from 0 to 100, and it will generate a cool progress bar made of text!
AI
AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
源代码
Function MakePercentBar(ByVal Value As Long) As String Dim i As Long MakePercentBar = "[" For i = 1 To ((Value - 1) \ 10) MakePercentBar = MakePercentBar + "-" Next i MakePercentBar = MakePercentBar + "|" For i = 10 To ((Value - 1) \ 10) + 2 Step -1 MakePercentBar = MakePercentBar + "-" Next i MakePercentBar = MakePercentBar + "]" End Function
原始评论 (3)
从 Wayback Machine 恢复