vb编写一个用于求随机数的程序

PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea=InputB

运用海伦公式dimPaslong,Saslongifa+b>cthenifb+c>athenifa+c>bthenp=(a+b+c)/2S=sqr(p*(p-a)*(p-b)*(p-c))endife

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

while(a){case‘1‘intn=rand（）%10;break;case‘1‘intn=10+rand（）%100;break;case‘1‘intn=100+rand（）%1000;bre

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

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

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

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

我写好了,你邮箱给我.再问：1033708327。qq的再答：已发送。

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

publicclassRandomTest{publicstaticvoidmain(String[]args){inta;java.util.Randomr=newjava.util.Random(

两种方法1补充你的算法,PrivateSubCommand1_Click()Dima(10)AsInteger,nAsIntegerDimiAsInteger,kAsIntegerRandomizea

privatesubcommand1_click()dima%,b%,c%a=val(text1)b=val(text2)c=Int(Rnd*(a-b+1)+b)text3=cEndsu

PrivateSubCommand1_Click()DimiAsLongDimstrTmpAsStringFori=1To4strTmp=strTmp

clears=0fori=1to50x=rand()*100s=s+xendforp=s/50

PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0

我HI你吧,等一下