vb随机生成十个字母或随机数

是不是这样：（fomr的autodraw属性要设定为true）PrivateSubCommand1_Click()DimiAsIntegerDimRndNUmAsInteger'定义随机数DimN1A

额,我这边有个你可以试试.

ndrnd函数的一种1、Rnd函数返回一个包含随机数值的Single语法Rnd[(number)]如果number的值是Rnd生成小于0每次都使用number作为随机数种子得到的相同结果.大于0序列中

需要在生成随机数后进行判断,是否已经存在,存在返回继续生成即可.dimrndasnewrandomdima（）asstringforiasinteger0to8:newa（i）=random.next

呵呵,可以先用一个随机数确定你想要的出现概率,再在相应的概率里生成相应的取值范围,写个代码,参考一下吧：PrivateSubCommand1_Click()DimM,AAsIntegerRandomi

先把Text1的MultiLine属性设为True,这样文本框才能进行换行PrivateSubCommand1_Click()Text1=""'清空Text1中的现有文本Dimscore(1To20)

改用通用的获取随机字符的方式.定义一个字符串strAph="abcd.ABCD..."取随机一个字符a=mid(strAph,int(rnd(52))+1)

已发送,请查收,楼上两位的虽然简单,但是随即生成中文文字时可能会生成一些特殊字符,或者问好也可能是空白的

//获取字符串的长度intlength=10;while(length!=0){//累加最终字符串str=str+Program.GetRandomChar();length=length-1;//进

OptionExplicitPrivateSubCommand1_Click()RandomizeDimiAsInteger,jAsIntegerDoj=Int(Rnd*39+1)Ifj4Andj18

Rnd函数返回一个包含随机数值的Single.语法Rnd[(number)]可选的number参数是Single或任何有效的数值表达式.返回值如果number的值是Rnd生成小于0每次都使用numbe

ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz

Randomize是初始化随机函数种子用的Rnd是随机数函数.-----如果没有Randomize,那么Rnd因为种子是一样的,所以产生的随机数序列每次都是一样的.（你每次重新启动程序会发觉Rnd产生

Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问：就是mod3=0后不会排序啊再答：

'声明变量dimMin_numasintdimMax_numasintdimSum_numasintdimArr_num(9)asint'赋予初始值Min_num=101Max_num=-1Sum_n

我的建议是：第一步、先做一个数组,存上这35个数（可以不是连续的数,也可以是人名、字符串什么的）；第二步、随机生成一个1-35之间的数,输出；第三步：把这个数和数组的第一个单元交换；第四步、从数组的第

先建一个大一点的label1框,然后...DimaAsIntegerDimbAsStringDimcAsIntegerDimdAsStringDimeAsIntegerDimfAsIntegerDim

一显示按纽为Button1,文本显示为Txt1.以下为代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

PrivateSubCommand1_Click()Dimoushu%,danshu%,sum%oushu=0danshu=0Fori=1To10Randomizesum=Int(Rnd*100)If

int((900*Rnd)+100)再问：能具体些吗，小哥再答：dimnasintegerRandomize‘初始化随机函数n=int((900*Rnd)+100)'产生100-999范围内的随机数并