请高手帮忙

飘雪

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

noTme

你说的不够清楚呀!
我给个示例吧!
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

我是新手   来灌水得分   学习大家的东东