大部分社交軟件都有好友推薦的功能，當(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”，則推薦好友為：
4
4

（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。

【答案】4

【解答】

【點(diǎn)評(píng)】

聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。

發(fā)布：2024/4/20 14:35:0組卷：0引用：1難度：0.3

相似題

1．《孫子算經(jīng)》中提出“物不知其數(shù)”的問題，此數(shù)以3除余2，以5除余3，以7除余2．以下程序段是求指定范圍內(nèi)滿足該問題條件的自然數(shù)及其個(gè)數(shù)。
k=0'用來計(jì)數(shù)
Max=Val（Text1．Text）'指定范圍
n=9'①
Do While n＜=Max
If n Mod 3=2And n Mod 5=3Then'②
List1．AddItem Str（n）
End If
n=n+7'③
k=k+1 ④
Loop
Label1．Caption=Str（Max） &“范圍內(nèi)滿足問題的數(shù)有“& Str（k） &“個(gè)“
運(yùn)行程序，在文本框中輸入自然數(shù)600，結(jié)果統(tǒng)計(jì)的個(gè)數(shù)與列表框中輸出的個(gè)數(shù)不相符，如圖所示：請(qǐng)問出現(xiàn)此問題的原因是（　?。?/h2>

A．語句①錯(cuò)，應(yīng)改為n=0

B．語句②應(yīng)改為n Mod 3=2 And n Mod 5=3 and n Mod 7=2

C．語句③錯(cuò)，應(yīng)改為n=n+1

D．語句④的位置不正確，應(yīng)該移到語句②的下一行

發(fā)布：2024/10/26 17:0:2組卷：4引用：1難度：0.4

A．語句①不正確，應(yīng)改為n=0

B．語句②不正確，應(yīng)改為n Mod 3=2 And n Mod 5=3 and n Mod 7=2

C．語句③的位置不正確，應(yīng)移至語句②的上一行

D．語句④的位置不正確，應(yīng)移至語句②的下一行

發(fā)布：2024/10/26 17:0:2組卷：9引用：1難度：0.5

把好題分享給你的好友吧~~