hanshuji2.bas

用于公路、轻轨及铁路双线线间距工程计算的源程序。

Attribute VB_Name = "hanshuji2"
Option Explicit


'加密口令函数
Public Function CalcPassnum(Password As String) As Long

Dim i As Integer
Dim psum As Long

    psum = 0
    For i = 1 To Len(Password)
        psum = psum + ((Asc(Mid$(Password, i, 1)) ^ 2) * i)
    Next i
    
    CalcPassnum = psum

End Function


'滚动字幕函数
Public Function MHtitle(title As String) As String
  MHtitle = Right$(title, Len(title) - 1) & Left$(title, 1)
End Function