編寫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是
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數量超過閾值 p 時,由系統向用戶 A 推薦用戶 B。 編寫 VB 程序,實現好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖: (1)根據如圖所示數據,若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: