产生[50,90]上的随机整数,求出其能被5整除的所有数的和
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 11:10:56
![产生[50,90]上的随机整数,求出其能被5整除的所有数的和](/uploads/image/f/1652493-21-3.jpg?t=%E4%BA%A7%E7%94%9F%5B50%2C90%5D%E4%B8%8A%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B4%E6%95%B0%2C%E6%B1%82%E5%87%BA%E5%85%B6%E8%83%BD%E8%A2%AB5%E6%95%B4%E9%99%A4%E7%9A%84%E6%89%80%E6%9C%89%E6%95%B0%E7%9A%84%E5%92%8C)
窗体中加命令按钮,单击事件代码如下:PrivateSubCommand1_Click() Randomize Dima(1To20)AsInteger&nb
andint(1,1,[-10,10])产生一个[-10,10]之间的随机整数
PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima
20-90共有71个数字x=rand()%71+20;rand()%71产生0-70的随机数字
PrivateSubCommand1_Click()Dima%(1To20),max%,min%max=50min=100RandomizeClsFori=1To20a(i)=Int(Rnd*51+5
PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1
PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To
我已经上机验证过了,正确.思路:产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccccc
Dimm(99)AsInteger,n(9)AsInteger,iAsInteger,kAsIntegerRandomizeFori=0To99m(i)=Int(Rnd*100)Printm(i);k
Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N
楼上的程序好象不对吧随即产生数字一定是要输出的我觉得第一个道是不错就是没有输出应该这样vari:longint;beginrandomize;repeati:=1+random(100);writel
a=Int(InputBox("a="))b=Int(InputBox("b="))c=Round(Rnd()*(a-b)+b,0)MsgBox"a="&a&";b="&b&";c="&c
andint(-10,10,[0,10])这个行吗?再问:不行
importjava.util.Random;publicclassTest{publicstaticvoidmain(String[]args){Randomrand=newRandom();int
functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%
窗体上放个CommandButton和两个Label:PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerLabel1.Capti
含小数=RAND()*40+50整数=RANDBETWEEN(50,90)再问:就按这个输入?再问:顺序呢再问:随机整数呢再答:随机整数就是这个,第一参数是最小值,第二参数最大值,随便拉=RANDBE
PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex
Randomizea=int(rnd*6)+50