程式還是寫完了.這段程式碼會隨機輸出一行4個字元,每一行都有一個大寫字母,一個小寫字母,一個數字,一箇中文字元,所有字元均為隨機產生,一共輸出6行.不知道是否附合您的標準. "程式碼如下,在窗體中新增一個按鈕,直接複製程式碼: Dim MyStr(1 To 6) As String Private Sub Command1_Click() Dim RndLChr As String, RndUChr As String, RndChar As String, _ RndFig As String, i, j, x Randomize For i = 1 To 6 RndLChr = Chr(Int(Rnd * 26 + 97)) "產生隨機小寫字母 RndUChr = Chr(Int(Rnd * 26 + 65)) "產生隨機大寫字母 RndChar = ChrW(Int(Rnd * 20902 + 19968)) "產生隨機中文字元 RndFig = CStr(Chr(Int(Rnd * 10 + 48))) "產生隨機數字 MyStr(i) = RndLChr & RndUChr & RndChar & RndFig For j = i To i - 1 "判斷字元是否相等 If MyStr(i) = MyStr(j) Then i = i - 1: Exit For Next j, i For x = 1 To 6 Print MyStr(x) "輸出字元 Next x End Sub