标题:请教各位大侠
只看楼主
小飞侠123
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-2-21
结帖率:100%
 问题点数:0 回复次数:1 
请教各位大侠
我想写一个注册机程序,序列号:11226212294             11226212294/11=1020564754        1020564754*268=273511354072       273511354072+315-(1020564754的前三位)=273511354285              注册码=273511354285      请大侠帮我写一个用VB写的代码
搜索更多相关主题的帖子: 序列号 注册机 注册码 
2008-02-21 17:44
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
得分:0 
Private Sub Command1_Click()
    Dim num1 As Double, num2 As Double, num3 As Double
   
    num1 = CDbl(Text1.Text) / 11
    num2 = num1 * 268
    num3 = num2 + 315 - CInt(Left(CStr(num1), 3))
    Text2.Text = num3
End Sub

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2008-02-22 09:46



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-200548-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.679912 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved