剑握在手

摘要： 内容绝大部分来自互联网，出处请百度。全角半角皆适用 1 Public Function bSubstring(ByVal s As String, ByVal length As Integer) As String 2 Dim bytes As Byte() = Text.Encoding.Unicode.GetBytes(s) 3 4 5 Dim n As Integer = 0 6 7 Dim i As Integer = 0 8 9 While i 0 Then15 ... 阅读全文