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數組記錄某類符號是否使用 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 '生成剩余未出現元素密碼,保證4種符號均有出現 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中輸出字符長度為
(2)請在橫線處填入合適的代碼。 Const n=200'報名人數 Const nz=10'專業數 Dim zybh(1 To n)As Integer,zyname(1 Ton)As String,sname(1 To n)As String, zymark(1 To n)As Integer Dim b(1 To nz)As Integer'存儲每個專業的人數 Dim c(1 To nz)As Integer Dim d(1 To n)As Integer Dim q(1 To n)As Integer Private Sub Form_Load
'本過程讀取專業編號、專業名稱、姓名和面試分的數據分別存儲在數組zybh,zyname,sname,zymark中,并在List1中顯示,代碼略 End Sub Private Sub Command1_Click
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer For i=1 To nz b(i)=0 Next i For i=1 To n d(i)=0:q(i)=0 Next i For i=1To n k=zybh(i) b(k)=b(k)+1 Next i k=1 For i=1 To nz c(i)=k ①
Next i For i=1 To n-1 For j=i+1 To n If zybh(i)=zybh(j)And zymark(i)<>zymark(j)Then If②
Then d(j)=d(j)+1 Else d(i)=d(i)+1 End If End If Next j Next i For i=1 To n j=0 Do While③
j=j+1 Loop q(c(zybh(i))+d(i)+j)=i Next i For i=1 To n List2.Addltem““& zybh(q(i)) &““& zyname(q(i)) &.““& sname(q(i)) &““& zymark(q(i)) &““& d(q(i)+1 Next i End Sub