。 Dim a(1 To 64)As Integer Dim b(0 to 1)As String Private Sub Form_Load ( ?。?br />b(0)=““:b(1)=“*“ '給數(shù)組 a 賦初值,并在列表框 List1 顯示箭頭圖形,代碼略 End Sub Private Sub up_Click ( ?。?br />Dim i As Integer,j As Integer,s As String,tmp As Integer List1.Clear For i=1 To 8'將第i 列數(shù)據(jù)向上平移一個位置 tmp=①
a(i)
a(i)
For j=2 To 8 a((j-2)*8+i)=a(②
(j-1)*8+i
(j-1)*8+i
) Next j a(7*8+i)=tmp Next i s=““ s=s+b(i) For i=1 To 64 If i Mod 8=0 Then List1.AddItem s:s=““Next i End Sub Private Sub turn_Click ( ?。?br />‘調轉箭頭方向(朝上的變?yōu)槌?,朝下的變?yōu)槌希?,代碼略 End Sub Private Sub down_Click ( ?。?br />‘圖形向下移動一個位置,代碼略End Sub
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時,由系統(tǒng)向用戶 A 推薦用戶 B。 編寫 VB 程序,實現(xiàn)好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖: (1)根據(jù)如圖所示數(shù)據(jù),若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: