用vb编写了这个随机抽取人名的程序，要求一个文本框，一个按钮 Dim xm，n As IntegerPrivate Sub Command1_Click()Static kk=k+1If k Mod 2=1 ThenTimer1.Interval=20Command1.Caption=\"停ElseTimer1.Interval=0Command1.Caption=\"开始End IfEnd SubPrivate Sub Form_Load()xm=Array(\"张三\"，\"李四\"，\"王五\"，\"赵六\"，\"钱七\"，\"孙八\"，\"周九\"，\"吴十\"，\"郑土\")n=UBound(xm)+1Text1.FontSize=16Text1=\"Command1.Caption=\"开始End SubPrivate Sub Timer1_Timer()x=Int(Rnd*n)Text1=xm(x)End Sub
求个能随机抽取名字的VB源码 急求 Function t1()As StringDim x%，s$，ss$，sss，ix=FreeFileOpen App.Path&\"\\name.txt\"For Input As#xDo Until EOF(x)Line Input#x，sss=ss+\"\"+sLoopClose xss=Replace(ss，\"\"，\"\"，1)i=InStr(ss，\"\")Do Until i=0ss=Replace(ss，\"\"，\"\")i=InStr(ss，\"\")Loopsss=Split(ss，\"\")i=Int(UBound(sss)*Rnd)+1t1=sss(i)End Function1.name.txt放在app.path路径下2.名字按行或任意个空格分割都能提取3.函数返回一个随机名字，写到你的textbox中即可：Text1.text=t1()
求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随机抽取姓名教程 要教整个过程 大神！！ 稍等，正在做数据库抽取、文本文件抽取二种抽取记录，有点击按钮抽取、定时抽取二种抽取方法。这个“随机抽取姓名exe.rar”是生成的exe文件，需要的话，给邮箱，发源文件。
如何用VB设计随机抽取人名程序？ 很简单啊，比如你要从5个人名：张三，李斯，王五，马六，田七你产生1-5个数字：一一对应就行了，如果产生的随机数是1 那么label1.caption=\"张三\"，以此类推。例子：Private Sub Command1_Click()RandomizeSelect Case Int(Rnd*5+1)Case 1Label1.Caption=\"张三Case 2Label1.Caption=\"李斯Case 3Label1.Caption=\"王五Case 4Label1.Caption=\"马六Case ElseLabel1.Caption=\"田七End SelectEnd Sub
用VB编程 随机抽取姓名 Private Type student name As String*10 End Type Private Sub Command1_Click()'写入数据 Dim stu As student Open\"d：\\student.txt\"For Random As#1 Len=Len(stu)For i=1。
急 VB随机抽取数字代码 Private Sub Command1_Click()Dim a As IntegerDim n As IntegerRandomizen=InputBox(\"请你输入数的最大值知\")'当弹出输道入框的时候输回入42即是产答生1至42的随机整数Text1.Text=Str(Int(Rnd*n))+1End SubPrivate Sub Command2_Click()Text1=\"End Sub
用VB编程，随机抽取两个人的姓名？ 先在窗体上添加一个按钮和一个列表 把以下代码写入按钮的Click事件中，单击按钮就可以看到运行结果 Private Sub Command1_Click()Dim NameList As New Collection '把参与。
