階乘是一種累乘積的計算方法,用“!”來表示階乘,n!=1×2×3×……×n.如:8!=1×2×3×…×8=40320.小王為了求10!的值,編寫了如下Visual Basic代碼: Private Sub Command1_Click ( ) Dim i As Integer,s As Integer① s=0② i=1 Do While i<10 ③ i=i+1 s=s*i④ Loop Print s End Sub 運行該程序,小王單擊命令按鈕Command1后,出現如圖對話框,已知序號①橫線處的代碼有錯誤,正確的代碼應該是
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數量超過閾值 p 時,由系統向用戶 A 推薦用戶 B。 編寫 VB 程序,實現好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖: (1)根據如圖所示數據,若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: