首页
社区
课程
招聘
[旧帖] [求助]对VB比较了解的请进 0.00雪花
发表于: 2008-11-29 09:41 2411

[旧帖] [求助]对VB比较了解的请进 0.00雪花

2008-11-29 09:41
2411
帮我解释一下这段什么意思 最好把算法描述一下
==========================
    If RegNum = RC.ID Then
        RegName = Trim(RC.Name)
            
        Dim ID As Double
        Dim SN As String
        ID = Abs(RegNum)
        
        Snum = ID \ 19
        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 15
        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 12
        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 10
        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 9
        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 8
        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 6
        SN = SN + Chr(Snum Mod 69 + 33)
      崔志明= ID \ 5
       崔志明N + Chr(Snum Mod 69 + 33
CuiZhimingnum
CuiZhiming        SN = SN + Chr(Snum Mod 69 + 33)
        Snum = Snum \ 2
        SN = SN + Chr(Snum Mod 69 + 33)
            
        If SN = Trim(RC.SN) Then
            RegOrNo = True
        Else
            RegOrNo = False
        End If
    Else
        RegOrNo = False
    End If
==============================

本人只会C++ 希望大家帮个忙

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回
//