在VB中怎么设置擦产生随机字母

and(m,n)产生mxn,0~1均匀分布的随机矩阵

.版本2.程序集窗口程序集1.子程序_按钮1_被单击.局部变量a,整数型.局部变量数字,整数型.局部变量大写字母,整数型.局部变量小写字母,整数型编辑框1.内容＝“”.计次循环首(4,)a＝取随机数(

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

随机生成100个大写字母存于数组a中,并显示在text1中,字母间用空格隔开,在text2中输入一个大写字母,得出在数组a中出现的次数,在text3中显示.Privatearr(100)Private

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

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

Dima(9)AsIntegerRandomizea(0)=Int(Rnd()*21+10)Doa(1)=Int(Rnd()*21+10)LoopWhilea(1)=a(0)Doa(2)=Int(Rn

.版本2.程序集窗口程序集1.子程序_按钮1_被单击.局部变量a,整数型.局部变量数字,整数型.局部变量大写字母,整数型.局部变量小写字母,整数型编辑框1.内容＝“”.计次循环首(4,)a＝取随机数(

'以下代码产生30个区分大小写的不同字母PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,ich(30)AsInteger,chAsString,A

dima(9)a(0)=25a(1)=33`````a(9)=99i=int(rnd*10)?a(i)看明白了吗?有问题再HI我再问：输出的三个数要求不重复的呢，你这样的只有一个

LS的回答有可能出来100（三位数）改为a=int(Rnd*100)b=int(Rnd*100)

Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N

PrivateSubCommand1_Click()a=Chr(Int(Rnd*26+65))str1=a&(Int(Rnd*(100000)+0))SelectCaseaCase"B"str2="是

PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubTimer1_Timer()RandomizeStaticii=i+1Text1.Text=Text

dima(9)asintegerprivatesubcommand1_click()dimiasintegerrandomizefori=0to9a(i)=int(rnd*101)text1.text

subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu

是的!

DimMyValue(10)AsIntegerDimi,j,pAsIntegerFori=0To9RandomizeMyValue(i)=Int((100*Rnd)+1)NextFori=0To9Fo