狐表生成指定长度的 纯字母 随机字符串

发表日期: 2023-07-31

1.添加内部函数,名字取 RandLetter

'生成指定长度的纯字母的随机字符串
Dim num As Integer = Args(0) '传入要生成的随机码长度

Dim s As String = ""
Dim zm As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i As Integer = 1 To num
    Dim rn As Integer = Rand.Next(0, 51)
    s += zm.Chars(rn)
Next
Return s

2.生成指定长度的纯字母随机字符串

Dim s As String = Functions.Execute("RandLetter", 10) '例如10位长度
Output.Show(s)

效果:

image.png


随便看看
商务联系QQ : 2385350359

Copyright 2016-2024 江门蓬江区华越科技公司 版权所有 | 承接软件定制开发,欢迎联系
粤ICP备19148806号-5