随机产生100个0-9之间的整数,统计一共产生了多少个0,多少个1
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/14 17:24:36
PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(
a1:a10=randbetween(30,100)最大值=max(a1:a10)最小值=min(a1:a10)平均值=average(a1:a10)
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按钮跳转到代码编辑窗口,粘帖以
?STR(A(I),3)改为?STR(A(i),3)?"最大数是:"+Mmax+"最小数是:",Mmin改为:?"最大数是:",Mmax,"最小数是:",Mmin
帮你写好了,这个是工程文件,下载下来就可以了.以下是源码: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
PrivateSubCommand1_Click()Dima(100)AsInteger,xAsIntegerFori=1To100Ifsushu(i)ThenPrinti;IfiMod10=0The
再问:谢了,能否把程序给提供一下,我不会再答:好吧!
dima(9)asintegerprivatesubcommand1_click()dimiasintegerrandomizefori=0to9a(i)=int(rnd*101)text1.text
通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a
#include<stdio.h>#include<stdlib.h>#include<time.h>#defineM20voidmain(){inta[M],i;
选择法:PrivateSubForm_Click()Dimi%,j%,a%(1To10)RandomizeFori=1To10a(i)=Int(101*Rnd)NextiFori=1To9k=iFor
PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,sAsLongRandomizeFori=1To30x=Int(Rnd*100)+1Printx,
Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim