锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net生成物品简码 vb简单代码编程实例( 六 )

IT技术代码


Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII码是：97-122
'A-Z 的ASCII码是：65-90
'0-9 的ASCII码是：48-57
For i = 1 To l
R = Int(Rnd() * 62) '随机生成的字符有大小写字母和数字 ， 共有26个
If R10 Then'如果小于10，则是数字 数字的ASCII是48-57 对应 随机数字 0-9 所以要将随机数字加48
S = Chr(R + 48) 'Chr 是将把数字按Ascii码转换为对应的字符
ElseIf R36 Then'如果小于36 ， 则是大写字母 大写字母的ASCII是65-90 对应 随机数字10-35 所以要将随机数字加55
S = Chr(R + 55)
Else'如果大于36，则是小写字母 小写字母的ASCII是97-122 对应 随机数字36-62 所以要将随机数字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
【vb.net生成物品简码 vb简单代码编程实例】关于vb.net生成物品简码和vb简单代码编程实例的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：用Jquery做多张商品轮播，用jquery实现轮播图

下一篇：钉钉怎么进入老师发的直播，钉钉群老师发起的直播怎么进入