VB随机抽取 Private Sub Command1_Click()Randomize '初始化随机数生成器 避免产生相同数字 'Int(m+Rnd*(n-m+1))为求N-M间的随机数 Text1=Int(300*Rnd+1)'随机产生1-300间的数字 Text2。
VB随机抽取问题 rnd函数是不能控制时间的.将timer的interval设为10在timer事件中调用rnd函数随机选择数据，并显示在label上.这才是思路.这里的难点是文件的读取，还有随机函数的使用.自己认真做，考试可没法抄的.
用vb随机抽取图片？ 内置？我不太清楚。我要是实现这个功能的话就是把图片存放于工程下的一个文件夹下，然后程序调用时生成随机编号，然后利用picture控件或image控件显示出来。
关于vb的随机抽取 请参考。代码和EXE文件都在附件中。登陆初始密码为123456名单和名单密码保存路径设置为当前程序路径下，你如果需要存放在D：\\名单.txt中，请自己修改。刚刚你的提问我已经回答一次了，答案竟然被违规了，晕~
vb 随机抽取数据库中的信息 你让数据库表中的记录有一个数字编号，然后用VB随机生成一个这之间的数！如果你用ADODC控件的话就是dim a as singlea=int(adodc1.recordset.count（统计库中记录条数，具体记不清了）*rnd*X)rnd 生成的是0-1之间的数，后面的X你自己去想是多少？然后给ADODC重新建立数据源adodc1.recordsouce=\"select*from*where 字段=aadodc1.refsh然后就是让他显示lable1.caption=adodc1.rec`````.fiels(*)lable2````````````用数据库变量做也是一样的！
如何用vb随机抽取图片？ 先把图片保存在数据库里，然后用随机函数抽取序号
vb 随机抽取学号 你只有56个数，你按了57次，不可能再找到不重复的数了，你可以用一个变量记录已产生的次数，超过了提示已经没有未重复的数了。Dim a(1 To 56)As Integer，n As IntegerPrivate Sub Command1_Click()Dim b As IntegerRandomizeIf nb=Int(Rnd*56)+1Do While b=a(b)b=Int(Rnd*56)+1Loopa(b)=bLabel1.Caption=bElseMsgBox\"已无为重复数End Ifn=n+1End Sub
vb随机抽取学号？这个需要应用以下几个步骤：写一个获取随机学号函数。将这个函数绑定在某个控件上触发抽学号的事件。在某个输出界面显示这个随机：-vb，学号，抽取，随机
