![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
如何用VB.NET生成一个随机字符串
如何用VB.NET生成一个12位的随机字符串?最好给我编一个函数,写上注释!如果经本人测试可以,我将再加分给你!最好不要复制别人的代码,因为我在百度上搜索了很多,都不行!...
如何用VB.NET生成一个12位的随机字符串?最好给我编一个函数,写上注释!如果经本人测试可以,我将再加分给你!最好不要复制别人的代码,因为我在百度上搜索了很多,都不行!
qha8810,我为什么测试通不过啊?RND不是一个类型,不能用作表达式 展开
qha8810,我为什么测试通不过啊?RND不是一个类型,不能用作表达式 展开
9个回答
展开全部
我来做件无聊的事情吧
我把被你强烈鄙视的朋友的代码翻译成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
我把被你强烈鄙视的朋友的代码翻译成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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
/// <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;
}
/// 获取一组随机字符串
/// </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;
}
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给你个最简单的
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)
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)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Public Shared Function BuildRandom() As String
Return Guid.NewGuid.ToString("N").Substring(0, 12)
End Function
Return Guid.NewGuid.ToString("N").Substring(0, 12)
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询