飘雪 发表于 2005-3-5 18:37:20

请高手帮忙

我是一只菜鸟,
      请问用VB 如何编写一个根据用户名而得出的注册码?谢谢回答!!!

noTme 发表于 2005-3-5 19:16:44

你说的不够清楚呀!
我给个示例吧!
Private Sub reg_Click()
Dim i, regnum
regnum = 0
For i = 1 To Len(Trim(Text1.Text))
regnum = regnum + Asc(Mid(Text1.Text, i, 1))
Next
Text2.Text = regnum
End Sub
他的算法就是把用户名的ASC码值加起来!
其中 text1存用户名!text2放注册码.获得注册码的按钮取名"reg"
你看,行吗?

174506033 发表于 2005-3-30 00:34:13

我是新手   来灌水得分   学习大家的东东
页: [1]
查看完整版本: 请高手帮忙