Question

求VB编写的一个学生姓名随机抽取程序

像上图这样的功能，选择班级和性别（男/女/不限）后进行抽选，左边显示结果。学生名单可以是一个班保存为一个txt文件/Excel工作表。
我是VB小白，在网上找过很多VB随机抽取的例子，但都没找到这样选定条件进行抽取的。
所以求高手帮忙、指教，也可以直接发源代码到我邮箱kohiko@163.com，不胜感谢！

Answer 1

你的功能我可以帮你实现，并且还可以实现随机抽取的记录保证不一样，当然了编码的时候用随机函数生成一个学生号，再根据编号判断是否重复，不重复信息将实时显示出来，以下是关键代码，如果你调试通过，则你太幸运了，哈哈，希望能帮到你吧，当时费了好多脑细胞才编写出来

我的程序例子将发布在csdn博客上，你到时候可以关注的，http://blog.csdn.net/twtiqfn

Private Sub Command4_Click()
On Error Resume Next
    Dim db, rs, k, num
    Dim sSQL As String
    Static n  As Integer
    Dim lCurRow As Integer, mCount As Long
    Set db = CreateObject("ADODB.Connection")
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
    sSQL = "SELECT *  FROM shiyan"
    Set rs = CreateObject("adodb.recordset")
    rs.Open sSQL, db, 1, 1
    mCount = rs.RecordCount
            Randomize Timer
            lCurRow = Int(Rnd * mCount) + 1 '产生一个随机数
            Label1.Caption = lCurRow
            rs.Move lCurRow - 1 '定位
            Label2.Caption = rs!bh
            Label4.Caption = rs!xm
            If CheckItem01(rs!bh) Then
                   List1.AddItem rs!bh
                   List1.AddItem rs!xm
                   a = rs!bh
                   db.Execute ("update shiyan set flag=1 where bh=" & a & "")
                   Adodc1.RecordSource = "SELECT bh,xm FROM shiyan where flag='1'union select  '总计',count(*)  as 数量 from shiyan where flag='1'"
                   intRecCount = Adodc1.Recordset.RecordCount
                   Label5.Caption = intRecCount
            Else
                    MsgBox "存在重复项，无法添加！", , App.EXEName
            End If
   
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Adodc1.Refresh
End Sub

Answer 2

我帮你解答，只接下载就好了不需要发邮箱

Answer 3

学生的名单只是txt文件么?还是也有Excel也有txt.
如果是excel的话请问版本是什么？
还有这些文件的路径在哪里？还是需要自己指定？

Answer 4

条件不够。。
试问你的学号跟名字在哪里查询？

追问

学生名单在txt文件里保存，格式是这样，例如：“1 张三”“2 李四”，一个名字一行。