15.編寫VB程序,實現如下功能:在程序運行時,在文本框1中輸入整數m(1≤m≤10),單擊“生成矩陣”按鈕Command1,生成m2個范圍為[0,9]的隨機整數,隨機存儲在數組a中,并以m行、m列矩陣的形式在列表框List1上顯示。單擊“行排序”按鈕Command2,對矩陣以“行”為單位完成升序排序,并在列表框List2上顯示。運行界面如圖所示,程序代碼如下: Dim m As Integer Dim a(1 To 100)As Integer Private Sub Command1_Click ( ) ‘輸入整數m,并隨機產生 m2個隨機數 ‘隨機數以m*m矩陣形式在List1上顯示 ‘代碼略 End Sub Private Sub Command2_Click ( ) Dim i As Integer,j As Integer,t As Integer,k As Integer Dim s As String List2.Clear Fori=1 To m*m k=i For j=i+1 To① If a(j)<a(k) Then k=j Next j If k<>i Then t=a(k):a(k)=a(i):a(i)=t ② Ifk List2.AddItem s s=““ End If Next i End Sub (1)代碼“List2.Clear“中的Clear是
種。 (2)實現上述功能的 VB 程序如下,運行結果如圖所示,請在橫線處填入合適的代碼。 Private Sub Command1_Click( ) Dim n As Integer,t As Integer,i As Integer,j As Integer,k As Integer Dim flag as Boolean,ans As Integer Dim a(1 To 15)As Integer n=Val(Text1.Text) For i=0 To 2^n-1 t=i For j=1 To n a(j)=t Mod 2 t=t\2 Next j flag=True For k=1 To n-1 If①Then flag=False Next k If flag Then②:ans=ans+1 Next i Label3.Caption=″可能方案共″+Str(ans)+″種″ End Sub Function GetStr(x As Integer,n As Integer) As String Dim m As Integer,i As Integer GetStr=″″ m=x For i=1 To n If m Mod 2=0 Then GetStr=″A″+GetStr Else GetStr=″B″+GetStr End If ③ Next i End Function