. 某学生活动小组面向09级学生招收成员，现编写一管理程序，要求能验证输入的信息是否合法：1）、必须是09的学生（即学号前两位必须是“09”）；2）、学号的长度必须是11位；3）、不能重复报名（即在把信息添加到List1中之前，必须先验证该学号是否已报名）；4）、姓名的长度不能少于两个字符；5）、必须选择性别。当上述验证全部通过之后，则把报名者的信息加入到List1列表框中；而当双击List1时，将从List1中删除选定的项目。
程序代码如下：
'学号验证过程，包括年级、位数和唯一性验证
Private Function f1(ByVal stuid As String) As ###（1）###
f1 = ###（2）###
If Left(stuid, ###（3）###) <> "09" Then
MsgBox "学号的年级输入有误！", vbOKOnly + vbCritical, "错误"
Exit Function
End If
If Len(stuid) <> 11 Then
MsgBox "学号的位数输入有误，必须是11位！", vbOKOnly + vbCritical, "错误"
Exit Function
End If
Dim i As Integer
For i = 0 To List1.###（4）###
If stuid = Left(List1.List(i), 11) Then
MsgBox "该学号已存在！", vbOKOnly + vbCritical, "错误"
Exit Function
End If
Next
f1 = True
End Function
Private Sub Command1_Click()
###（5）### stuid As String, stuname As String, sex As String
stuid = Trim(Text1.Text) '获取学生学号
If Not ###（6）### (stuid) Then Exit Sub '验证学号是否合法
stuname = Trim(Text2.Text) '获取学生姓名
If Len(stuname) < 2 Then '验证学生姓名，即姓名不可少于2个字符
MsgBox "姓名输入有误！", vbOKOnly + vbCritical, "错误"
Exit Sub
End If
'确定学生性别
If Option1(0).Value = False ###（7）### Option1(1).Value = False Then
MsgBox "请选择性别！", vbOKOnly + vbCritical, "错误"
Exit Sub
ElseIf Option1(0).Value = True Then
sex = "男"
###（8）###
sex = "女"
End If
List1.###（9）### stuid & " - " & stuname & " - " & sex '添加学生信息到list1
End Sub
Private Sub List1_DblClick()
If MsgBox("确认要删除所选项吗?", vbYesNo + vbQuestion, "注意") = vbYes Then
List1.RemoveItem List1.###（10）###
End If
End Sub