2012-05-23 83 views
0
Public Function random_key(ByVal lenght As Integer) As String 
    Randomize() 
    Dim s As New System.Text.StringBuilder("") 
    Dim b() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".ToCharArray() 
    For i As Integer = 1 To lenght 
     Randomize() 
     Dim z As Integer = Int(((b.Length - 2) - 0 + 1) * Rnd()) + 1 
     s.Append(b(z)) 
    Next 
    Return s.ToString 
    Console.WriteLine(s.ToString) 

End Function 

我想打印它像 S = textbox1.text或somethhing ...打印输出在vb.net

+3

打印之前,您返回:) – Mr47

+0

视觉工作室应该已经给出了该代码无法访问的警告。 – Yatrix

+0

@Yatrix:在VS 2010中仍然不在VB.NET中。 –

回答

1

什么错误使用Console.WriteLine

请注意,您不应该在该方法中将其放在return statement之后,因为退货后的代码是unreachable

Dim random As String = random_key(10) 
Console.WriteLine(random)