(選填:會/不會)。 Dim a(1 To 10)As Integer,b(0 To 10)As Integer Private Sub Form_Load
( )
( )
‘隨機產生10個2位奇數整數 ‘代碼略 End sub Private Sub Command1_Click
( )
( )
Dim i As Integer,j As Integer,k As Integer,c As Integer For j=1 To 10 i=2:m=Int(Sqr(a) Do While i=i+1 Loop If①Then c=c+1 b(c)=a(j) End if temp=b(c) For k=c-1 To 1 Step-1 If temp>b(k) Then Exit For b(k+1)=b(k) Next k ② Next j For i=1 To c List2.Additem Str(b(i)) Next i End Sub
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數量超過閾值 p 時,由系統向用戶 A 推薦用戶 B。 編寫 VB 程序,實現好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖: (1)根據如圖所示數據,若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: