Private Sub Form_Load()
List1.Clear
List1.AddItem ""大學計算機基礎""
List1.AddItem ""VB程序設計""
List1.AddItem ""數據庫技術與應用""
List1.AddItem ""C程序設計""
List1.AddItem ""多媒體技術""
List1.AddItem ""硬件技術基礎""
List1.AddItem ""網絡技術與應用""
List1.AddItem ""WEB程序設計""
End Sub
Private Sub List1_Click()
If List2.ListCount >= 5 Then
MsgBox ""超過5門課程，不能再選！""
Exit Sub
Else
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub
2
Private Sub Command1_Click()
Dim N As Long, Flags As Boolean
N = Val(Text1.Text)
Flags = True
For i = 2 To Sqr(N)
If N Mod i = 0 Then
Flags = False
Exit For
End If
Next
MsgBox N & IIf(Flags, "", "不") & "是壹個素數"
End Sub