搜索
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 请教各位大侠
标题:
请教各位大侠
只看楼主
小飞侠123
等 级:
新手上路
帖 子: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
来 自:深圳
等 级:
新手上路
帖 子:376
专家分:0
注 册:2006-12-11
第
2
楼
得分: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
2
1/1页
1
参与讨论请移步原网站贴子:
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