摘要： ```vbnet Private Sub random(ByVal num As Integer, ByVal min As Integer, ByVal max As Integer) Dim i As Integer = 1 Dim number As Integer Dim numbers As String = "" While i 0 number = CInt(Rnd() * (max - min + 1) + 1) End While numb... 阅读全文

摘要： ```vbnettxtPath.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)``` 阅读全文