15.某網站注冊密碼需要符合以下兩點條件:①密碼不少于4位字符組成;②必須同時包含4種字符,大寫字母“A-Z”,小寫字母“a-2”,數(shù)字“0-9”,特殊符號“!@#%
&*”,方了方便批量注冊,小迪同學編寫了自動生成密碼的VB程序,程序運行界面如a所示,當在文本框Text1中輸入需生成密碼長度,點擊“生成密碼”按鈕(Command1),在文本框Text2中輸出符合要求的密碼串。<imgsrc=“image13.png“style=“vertical-align:middle;border:0“/>
(1)下列對象不具有Caption屬性的是
___________(單選,填字母:A.Command1/B.Form1/C.Text1/D.Label1)
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適代碼。①
,②
。
(3)程序代碼中的加框處代碼有誤,請改正。改正:
PrivateSubCommand1
Click
Dima(0To4)AsInteger,b(1To4)AsIntegerDimkeyAsString,sAsString,nAsInteger,kAsInteger,iAsInteger,jAsInteger,sumAsIntegerkey=“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#%^&*“
Randomize
n=Val(Text1.Text)
a(0)=0:a(1)=26:a(2)=52:a(3)=62:a(4)=70'記錄每種符號的結束位置
s=““
For i=1 To 4
b(i)=0'b數(shù)組記錄某類符號是否使用
Next i
sum=4'當前未使用字符類型,初始為4種
Do While Len(s)+sum<n
k=①'隨機選擇一個密碼序號
s=s+Mid(key,k,1)
i=1
Do While k>=a(i)
i=i+1
Loop
b(i)=1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出現(xiàn)元素密碼,保證4種符號均有出現(xiàn)
For i=1 To sum
j=Int(Rnd*4)+1
Do While(②
)
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd*(a(j)-a(j-1)))+a(j-1)+1
s=s+Mid(key,k,1)
Next i
Text2.Text=s
End Sub
(4)如果文本框Text1中輸入值2,文本框Text2中輸出字符長度為
(單選,填字母A.2 B.4 C.運行錯誤D.沒有輸出)