两道vb编程题

来源：百度知道 编辑：UC知道 时间：2024/06/23 23:39:55
名称 编程题
说明 设计一个选课的运行界面，如下图所示。它包含两个列表框，左边为所有可选的课程名称，通过Form_load事件加入，并按照拼音字母排序；当单击某课程名称后，该课程加入到右边的列表框，并从左边列表框删除该课程。当右边课程已满4门时，不允许再加入课程，用msgbox语句产生不能再选课的消息。

2、编写一个判断某数是否为素数的函数过程，然后在命令按钮的单击事件中通过调用这个自定义的函数过程来判断从键盘的输入的某个数是否为素数。

1
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<