如何用VB.NET生成一个随机字符串

如何用VB.NET生成一个12位的随机字符串?最好给我编一个函数,写上注释!如果经本人测试可以,我将再加分给你!最好不要复制别人的代码,因为我在百度上搜索了很多,都不行!... 如何用VB.NET生成一个12位的随机字符串?最好给我编一个函数,写上注释!如果经本人测试可以,我将再加分给你!最好不要复制别人的代码,因为我在百度上搜索了很多,都不行!
qha8810,我为什么测试通不过啊?RND不是一个类型,不能用作表达式
展开
 我来答
野菜AXdnw
2008-01-04 · TA获得超过155个赞
知道答主
回答量:56
采纳率:0%
帮助的人:0
展开全部
我来做件无聊的事情吧
我把被你强烈鄙视的朋友的代码翻译成vb了
不过他那个代码郁闷的,只能得到个别字符组成的字符串
我改了下,改成由大写英文字母和小写英文字母组成的串串

Public Shared Function GetRndCode(ByVal RndWith As Integer) As String
Dim number As Integer
Dim code As Char
Dim checkCode As String
checkCode = String.Empty
Dim random As Random
random = New Random()
Dim i As Integer
For i = 0 To RndWith
Do
number = random.Next(65, 123)
Loop While number > 90 And number < 97
code = ChrW(number)
checkCode += code
Next
Return checkCode
End Function
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
RND不是一个类型,不能用作表达式
那个估计用的是vb6.0编译器!不是vb.net
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lifeng4015
2008-01-04 · TA获得超过111个赞
知道小有建树答主
回答量:301
采纳率:0%
帮助的人:192万
展开全部
/// <summary>
/// 获取一组随机字符串
/// </summary>
/// <param name="RndWidth">设置随机数的位数</param>
/// <returns></returns>
public string GetRndCode(int RndWidth)
{
int number;
char code;
string checkCode = String.Empty;

System.Random random = new Random();

for (int i = 0; i < RndWidth; i++)
{
number = random.Next(255);
if (number % 2 == 0)
code = (char)('0' + (char)(number % 10));
else
code = (char)('A' + (char)(number % 26));

checkCode += code.ToString();
}
return checkCode;
}
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
yanghao198615
2008-01-04 · TA获得超过131个赞
知道答主
回答量:111
采纳率:0%
帮助的人:43.1万
展开全部
给你个最简单的
Dim i As Integer = Convert.ToInt32(DateTime.Now().Millisecond())
Dim str As String = ""
Dim a As New Random(i)
str = a.Next().ToString()
Label1.Text = str
'上面这个只能得到9位数,怎么办呢?当然加3位拉,呵呵;
Dim i1 As Integer = Convert.ToInt32(DateTime.Now().Millisecond())
Dim str1 As String = ""
Dim a1 As New Random(i1)
str1 = a1.Next().ToString()
Label1.Text += str1.Substring(0, 2)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zealic
2008-01-04 · TA获得超过290个赞
知道小有建树答主
回答量:319
采纳率:0%
帮助的人:372万
展开全部
Public Shared Function BuildRandom() As String
Return Guid.NewGuid.ToString("N").Substring(0, 12)
End Function
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式