編寫 VB 程序，在文本框 Text1 中輸入需要產(chǎn)生的密碼個數(shù) n,單擊“確定”按鈕 confirm,生成n個長度為6的由大小寫字母和數(shù)字0～9組成的密碼，并在列表框中顯示。程序運行時界面如圖所示。
為實現(xiàn)上述功能請在橫線處填上合適代碼
Private Sub confirm_Click （　　） Dim i As Integer,j As Integer Dim n As Integer,m As Integer Dim k As Integer,s As String Const length=6
n=Val（Text1．Text） i=1
List1．Clear
Do While i＜=n
s=““
For j=1To length
k=Int（Rnd （　?。?3）+1
If k=1 Then
m=Int（Rnd （　?。?26）+1
s=s+Chr（Asc（“a“）+m-1）
ElseIf k=2 Then
m=Int（Rnd （　?。?26）+1
s=s+Chr（Asc（“A“）+m-1）
Else
m=（1）

Int（Rnd（　　）*10）+1

Int（Rnd（　?。?10）+1

s=s+Chr（Asc（“0“）+m-1）
End If
Next j
List1．AddItem Str（i）+““+s
（2）

i=i+1

i=i+1

Loop
End Sub