VB随机抽取姓名教程 要教整个过程 大神！！ 稍等，正在做数据库抽取、文本文件抽取二种抽取记录，有点击按钮抽取、定时抽取二种抽取方法。这个“随机抽取姓名exe.rar”是生成的exe文件，需要的话，给邮箱，发源文件。
求VB编写的一个学生姓名随机抽取程序 你的功能我可以帮你实现，并且还可以实现随机抽取的记录保证不一样，当然了编码的时候用随机函数生成一个学生号，再根据编号判断是否重复，不重复信息将实时显示出来，以下是关键代码，如果你调试通过，则你太幸运了，哈哈，希望能帮到你吧，当时费了好多脑细胞才编写出来我的程序例子将发布在csdn博客上，你到时候可以关注的，http：//blog.csdn.net/twtiqfnPrivate Sub Command4_Click()On Error Resume NextDim db，rs，k，numDim sSQL As StringStatic n As IntegerDim lCurRow As Integer，mCount As LongSet db=CreateObject(\"ADODB.Connection\")db.Open\"Provider=Microsoft.Jet.OLEDB.4.0；Data Source=\"&App.Path&\"\\db1.mdbsSQL=\"SELECT*FROM shiyanSet rs=CreateObject(\"adodb.recordset\")rs.Open sSQL，db，1，1mCount=rs.RecordCountRandomize TimerlCurRow=Int(Rnd*mCount)+1 '产生一个随机数Label1.Caption=lCurRowrs.Move lCurRow-1 '定位Label2.Caption=rs。bhLabel4.Caption=rs。xmIf CheckItem01(rs。bh)ThenList1.AddItem rs。bhList1.AddItem rs。xma=rs。bhdb.Execute(\"update shiyan set flag=1 where bh=\"&a&\"\")Adodc1.RecordSource。
用VB编程 随机抽取姓名 Private Type studentname As String*10End TypePrivate Sub Command1_Click()'写入数据Dim stu As studentOpen\"d：\\student.txt\"For Random As#1 Len=Len(stu)For i=1 To 60stu.name=InputBox(\"请输入姓名\")Put#1，i，stuNext iClose#1End SubPrivate Sub Command2_Click()'抽取RandomizeDim bb As student，n%n=Int(Rnd*60)+1Open\"d：\\student.txt\"For Random As#1 Len=Len(bb)Get#1，n，bbText1.Text=bb.nameClose#1End Sub
怎样用VB来实现随机抽取我们班的同学姓名（老师用） Private Sub Command1_Click()Dim a()a=Array(\"张三\"，\"李四\"，\"王五\"，\"赵六\")/这里加上你们全班的姓名~，自己添加 Randomize Label1.Caption=a(Int(((UBound(a)+1)*Rnd)))。
