(單選,填字母:A.屬性名 /B.事件名/C.方法名/D.過程名)。 (2)請(qǐng)?jiān)跈M線處填入合適的代碼。 (3)程序中加框處代碼有錯(cuò),請(qǐng)改正。Dim a(1 To 100)As Integer Dim n As Integer Function dq(s As String,L As Integer) As String'自定義對(duì)齊函數(shù) Rem 在輸入的字符串 s 前加若干空格,輸出長(zhǎng)度為 L 的字符串,代碼略 End Function PrivateSub Command1_Click ( )'生成數(shù)字矩陣 ‘隨機(jī)生成 n^2 個(gè)數(shù)字,存儲(chǔ)在數(shù)組 a 中,代碼略 ‘以一行 n 個(gè),共 n 行的格式顯示在 List1 中,代碼略 End Sub Private Sub Command2_Click ( )'數(shù)字矩陣排序 Dim i As Integer,k As Integer,j As Integer,s As String Dim f As Boolean List2.Clear f=True For i=1 To n^2 Step n s=″″ For j=i To k=n^2 Do While① If a(k)<a(k-1)Then t=a(k):a(k)=a(k-1):a(k-1)=t End If k=k-1 Loop If f=True Then s=s+″″+dq(Str(a(j)),2)Else s=″″+dq(Str(a(j)),2)+s End If Next j List2.AddItem s ② Next i End Sub
1.大部分社交軟件都有好友推薦的功能,當(dāng)用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時(shí),由系統(tǒng)向用戶 A 推薦用戶 B。 編寫 VB 程序,實(shí)現(xiàn)好友推薦功能。運(yùn)行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標(biāo)用戶 id,在文本框 Text2 中輸入閾值 p,點(diǎn)擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關(guān)系,在標(biāo)簽 Label5 中顯示向目標(biāo)用戶推薦的好友列表。程序運(yùn)行界面如圖: (1)根據(jù)如圖所示數(shù)據(jù),若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: