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
打印之前,您返回:) – Mr47
视觉工作室应该已经给出了该代码无法访问的警告。 – Yatrix
@Yatrix:在VS 2010中仍然不在VB.NET中。 –