产生100-200之间随机整数vb

Private Sub Command1_Click()Text1.Text = ""Dim A(1 To 1

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

andint(1,1,[-10,10])产生一个[-10,10]之间的随机整数

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1

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

帮你写好了,这个是工程文件,下载下来就可以了.以下是源码:PrivateSubCommand1_Click()DimA(10)AsDouble,LAsInteger,BAsDouble,CAsDoub

PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To

Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe

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

#includevoidmain(){inta[100],i;for(i=0;i

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

楼上的程序好象不对吧随即产生数字一定是要输出的我觉得第一个道是不错就是没有输出应该这样vari:longint;beginrandomize;repeati:=1+random(100);writel

OptionExplicitPrivateSubForm_Click()'定义i循环变量,imax存放最大数,imin存放最小数,数组ishuz下标为1-10DimiAsLong,imaxAsLong

PrivateSubCommand1_Click()Dima(100)AsInteger,xAsIntegerFori=1To100Ifsushu(i)ThenPrinti;IfiMod10=0The

andint(-10,10,[0,10])这个行吗?再问：不行

RND默认产生0至1之间的随机数,既0

importjava.util.Random;publicclassTest{publicstaticvoidmain(String[]args){Randomrand=newRandom();int

#include<stdio.h>#include<stdlib.h>#include<time.h>#defineM20voidmain(){inta[M],i;

PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,sAsLongRandomizeFori=1To30x=Int(Rnd*100)+1Printx,