vb产生随机数的函数 输出偶数

理论上是不可能的,但可以用两个随机数来生产很大的一个随机数,比如：a=Int(10^Int((100*Rnd)+1)*Rnd+1)

PrivateSubCommand1_Click()Dims%,x%sum=Array(1,3,4,12,32,1,3)Fori=0ToUBound(sum)s=s+1x=x+sum(i)NextiF

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

VB的Rnd函数,其作用就是产生(0,1)之间的随机数,还不是[0,1].即：0根据上式,结合VB的Int（）等函数,可以产生你所需要的任意范围内的随机数.例如1：根据0那么就有：0例如2：0再问：怎

PrivateSubCommand1_Click()Dimi,max,min,sAsIntegermax=0min=100s=0Dima(30)AsIntegerText1.Text=""Text2.

先把产生的三个随机数保存在一个数组中,输出该三个随机数,然后将数组中的逆序并输出,

int(rnd*100)+1产生1-100的随机数,自己修改

PrivateSubCommand1_Click()RandomizeTimerFori=1To100x=Int(Rnd()*90+10)IfxMod2=0Thenm=m+xElsen=n+xEndI

int(10+rnd()*90)

这是我做的,你参考一下.

说实在的,你的第二段话我没怎么看明白我就按照标题帮助你一下吧,你想要一个有小数的随机数区间,其实并不难,只需要在你原来的代码上稍作改动就行,我们以5~10举例吧,如果你需要得到5~10之间省略到6位小

窗体加一按钮,一个文本框PrivateSubCommand1_Click()RandomizeFori=1To100Text1.Text=Int(Rnd*90)+10NextEndSu

Dimr(9)AsIntegerPrivateSubCommand1_Click()'产生随机数DimiAsIntegerRandomizeFori=0To9r(i)=Int(Rnd*90)+10Pi

OptionExplicit'设计时要设置text4的multiline属性为T'设计时要设置text4的scrollbars属性为2PrivateSubCommand1_Click()DimiAsL

VisualBasic中随机函数格式：Rnd()功能：求[0,1)之间的一个随机数语法：Rnd[(number)]如果number的值是Randomize生成小于0,每次都使用number作为随机数种

PrivateSubCommand1_Click()Dima()AsInteger,i,j,m,nAsIntegerPrint"产生100个100～300之间的整数"RandomizeFori=1To

dimnaslong'n是被判断的数ifn\2=0then'n=偶数else'n=奇数endif

PrivateSubCommand1_Click()DimaAsIntegerRandomizea=Int(Rnd()*400)+1PrintaEndSu

PrivateSubForm_Click()Dima(30)AsIntegerDimiAsIntegerRandomizeFori=1To30a(i)=Int(100*Rnd)NextiFori=1T

Randomize'时间随机数functionRandShu()asSingerRandShu=CSinger((2.5-1.5+1)*Rnd+1.5)endfunctoin