vb设计请产生1-49之间的随机数

DimmyIntasintegermyInt=int(rnd()*13+1)'myInt一定是随机整数,且在1-13之间,无需验证!

RANDOM(1,30)

PrivateSubForm_click()Dima(9)Dimm(),n()'m()为偶数集,n()为奇数集Dimi,p,qDimsumDimavg1,avg2'avg1为奇数平均数,avg2为偶数

先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True,并调整宽高以便能较好的显示出100个随机数）和一个Button按钮.然后双击Button按钮跳转到代码编辑窗口,粘帖以

DimmAsInteger,nAsInteger,rAsIntegerm=1n=5Randomize'随机数初始化声明\x0d'再用Rnd函数产生随机数\x0d'如果产生一个N到M之间的随机数（n>m

#include <stdio.h>#include <stdlib.h>#include <time.h>int mks(

我已经上机验证过了,正确.思路：产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

Private Sub Command1_Click()  Dim i As Integer, n As&nb

PrivateSubCommand1_Click()Fori=0ToList1.ListCount-1j=j+1Ifj=11ThenExitForIfList1.List(i)NextEndSubPr

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

再问：谢了，能否把程序给提供一下，我不会再答：好吧！

要产生a-b之间的随机数,可以用以下公式：随机数*(b-a)+a这样就行了!再问：代码？（还有，三个的呢？）再答：还要代码？dimlowerasintegerdimupperasintegerdimr

产生2~99之间的1次1个随机数randomizeInt((99-2)*Rnd+1)产生1~n之间的1次20个随机数RandomizeDimtemAsInteger,jAsInteger,iAsInt

通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a

Rnd（1）随机数产生的是（0,1）Rnd（1）*42则为（0,42）Int取整函数,Int（Rnd（1）*42）则为[0,41]然后加5,即为[5,46]答案固然是B.希望可以帮到你!

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

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

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim 

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