為方便習題講解,需對某次考試中選擇題得分率數(shù)據(jù)進行統(tǒng)計分析,找出選擇題得分率最低的前m 項對應(yīng)的題號及考點(若有與第 m 項得分率相同的,一并選取)。 編寫 VB 程序,實現(xiàn)上述功能。運行程序時,先讀取每個選擇題的題號、得分率和考點,顯示在列表框 List1 中。在文本框 Text1 中輸入得分率最低的前 m 項值,單擊“統(tǒng)計”按鈕,按照得分率從小到大升序排序,并在列表框 List2 中輸出得分率最低前 m 項的題號、得分率及考點。程序運行界面如圖所示。 請回答下列問題: (1)“統(tǒng)計”按鈕的事件過程名是
Select_Click
Select_Click
。 (2)實現(xiàn)上述功能的 VB 程序如下,請在橫線處填入合適的代碼。 (3)程序中加框處代碼有錯,請改正。 Dim n As Integer Dim th(0 To 100)As Integer,df(0 To 100)As Single,kd(1 To 100)As String Private Sub Form_Load( ) '讀取題號、得分率和考點分別存入數(shù)組 th、df 和 kd 數(shù)組,在列表框 List1 中顯示,代碼略 '選擇題的個數(shù)存入變量 n,代碼略End Sub Function dq(x As String,k As Integer) As String '固定數(shù)據(jù)的位數(shù) dq=x Do While①
Len(dq)<k或Len(dq)<>k
Len(dq)<k或Len(dq)<>k
dq=dq+““ Loop End Function Private Sub Select_Click( ) Dim m As Integer,i As Integer,j As Integer,p As Integer,t As Integer,mm As Integer List2.Clear m=Val(Text1.Text) i=1 Do While i<=n-1 p=i For j=i+1 To n If ②
df(th(j))<df(th(p))
df(th(j))<df(th(p))
Then p=j Next j If p<>i Then t=th(i):th(i)=th(p):th(p)=t End If If Then Exit Do'改 錯 i=i+1 Loop ③
i>m and df(th(i))<>df(th(i-1))
i>m and df(th(i))<>df(th(i-1))
For i=1 To mm List2.AddItem dq(Str(th(i)),6)+dq(Str(df(th(i))),8)+dq(kd(th(i)),12) Next i End Sub
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時,由系統(tǒng)向用戶 A 推薦用戶 B。 編寫 VB 程序,實現(xiàn)好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關(guān)系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖: (1)根據(jù)如圖所示數(shù)據(jù),若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: