谁能帮我看一下这段代码的意思，最好每句都讲一下，谢谢！

2024-12-25 05:01:58

推荐回答（2个）

回答1：

Public lbxMain_RowNbr As Double //double类型公共变量
Public Sub GetPO() //公共过程
frmMain.Show //显示一个窗体
End Sub//过程结束
Public Function GetChineseNumber(str As String) As Long//定义一个函数，返回长整型值
Dim NbrOfChar As Long
Dim i As Long
Dim Total As Long
NbrOfChar = Len(str)//获得参数str的长度
For i = 1 To NbrOfChar
Total = Total + Abs(AscW(Mid(str, i, 1)))//似乎是返回每个字符的Unicode 位，加密？
Next i
GetChineseNumber = Total//返回一个长整型值
End Function//函数结束
这段程序是用VB写的，如果有更多的源代码就不难理解了，你只给出了片段。

回答2：

自己去找吧！