在VB中需要RND随机一个数字,这个数字必须在几个数中抽取,应该怎么写?比如我要在(1,6,9,55,130)中随机得到一个数,这段代码应该怎么写呢?求高手支招. vb 随机抽取数字

怎么用vb随机抽取10个50以内的数字 加个循环呀：randomizefor t=-1 to 10Label2.Caption=label2.caption&Int((50*Rnd)+1)next急 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 Subvb6编程，1-30个数字随机抽取5个数字，提高数字10的抽中几率，该如何设计程序？谢谢 有一个可能是比较笨的办法，但程序比较简单：把30改为30+n，n是要提高的抽中几率。随即抽取后，10、>；30都显示为10，这样就提高几率了。VB怎么编抽学号的 Private Sub Form_Load()Timer1.Interval=100 '设置随机数字0.1秒刷新一次Timer1.Enabled=True '开启计时器End SubPrivate Sub Timer1_Timer()RandomizeLabel1.Caption=Int(50*Rnd)+1 '随机产生1-50的数字End SubPrivate Sub Command1_Click()Timer1.Enabled=False '如果仅一次选择学号就用这句代码'Timer1.Enabled=Not Timer1.Enabled '如果要多次选择学号就用这句代码End Sub求大神做一vb程序。可输入50个数字。然后从里面随机抽取n个随机数字(不重复)未解决问题 等待您来回答 奇虎360旗下最大互动问答社区VB如何生成随机数 1、随机生成数生成通2113式：Randomize‘必要代码，不然的话每5261次随机生成都是4102一样的数a=int(rnd*(m-n+1))+n’其中m>；n生成n~m间（包1653括n，m）的随机整数假如我想随机生成20-100间，那么就是n=20，m=100代码是int(rnd*(100-20+1))+202、代码：Private Sub Command1_Click()ClsDim n As IntegerDim wzs(10)As Integern=1While nwzs(n)=Int(Rnd*1000)n=n+1Wendn=1While nPrint wzs(n)n=n+1Wend扩展资料随机数是专门的随机试验的结果。在统计学的不同技术中需要使用随机数，比如在从统计总体中抽取有代表性的样本的时候，或者在将实验动物分配到不同的试验组的过程中，或者在进行蒙特卡罗模拟法计算的时候等等。产生随机数有多种不同的方法。这些方法被称为随机数生成器。随机数最重要的特性是它在产生时后面的那个数与前面的那个数毫无关系。参考资料-随机数VB的随机函数：麻烦各位大虾帮忙写一个随机抽取1-600之间数字的VB小程序。要求如下： 工程已发你邮箱Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0Timer1=TrueCase 1Timer1=FalseEnd SelectEnd SubPrivate Sub Form_Load()l=\"End SubPrivate Sub Form_Resize()l.Left=(Me.Width/2-l.Width)+Command1(0).Width/2End SubPrivate Sub Timer1_Timer()l=Format(Int(600*Rnd+1)，\"000\")End Sub在VB中需要RND随机一个数字，这个数字必须在几个数中抽取，应该怎么写？比如我要在(1，6，9，55，130)中随机得到一个数，这段代码应该怎么写呢？求高手支招. VB编程：要求程序能从2010300401～2010300430中随机抽取一个数字，并在窗体上打印出来。 (upperbound-lowerbound+1)*Rnd 这句话是生成在大小在upperbound-lowerbound+1之间的随机数，然后机加上lowerbound结果就是lowerbound到upperbound的数，最外边的int是int。

#sub#随机数