”按鈕(名稱為cmdSelect),就能將該課程復(fù)制到“所選課程”列表框(名稱為List2)中(但要注意不要出現(xiàn)重復(fù)項);如果單擊“>>”按鈕(名稱為cmdSelAll),就能將全部供選課程名復(fù)制到列表框List2中(注意應(yīng)先刪除List2中..."/>
閱讀以下應(yīng)用說明以及用Visual Basic開發(fā)過程中所編寫的程序代碼,將應(yīng)填入(n)處的字句寫在答題紙的對應(yīng)欄內(nèi)。
【應(yīng)用說明】
某應(yīng)用程序在運行過程中的一個界面如下圖所示:
在“供選課程”列表框(名為List1)中選擇某個課程后,再單擊“>”按鈕(名稱為cmdSelect),就能將該課程復(fù)制到“所選課程”列表框(名稱為List2)中(但要注意不要出現(xiàn)重復(fù)項);如果單擊“>>”按鈕(名稱為cmdSelAll),就能將全部供選課程名復(fù)制到列表框List2中(注意應(yīng)先刪除List2中的已選項);如果在“所選課程”列表框中選中某個課程,再單擊“<”按鈕(名稱為cmdDelete),就會從List2中刪除該課程(未選課程時應(yīng)不做處理);如果單擊“<<”按鈕(名稱為cmdDelAll),就會從List2中刪除所有已選課程。
【Visual Basic程序代碼】
Private Sub CmdSelect_Click()
For i = 0 To List2.ListCount - 1
If List1.Text = List2.List(i)Then Exit Sub ‘不要重復(fù)選擇
Next i
List2.AddItem (1) ‘在List2中增添List1中所選的項
End Sub
Private Sub CmdSelAll_Click()
List2.Clear ‘先刪除List2中的己有項
For i=0 To (2) ‘對List1中所有各項做循環(huán)處理
List2.Addlte (3) ‘將該項增添到List2中
Next i
End Sub
Private Sub CmdDelete_Click()
If List2.ListIndex >= 0 Then ‘如果List2中有選中的項
List2.RemoveItem (4) ‘則刪除所選的項
End If
End Sub
Private Sub CmdDelAll_Click()
(5)
End Sub