随机产生10个50~300的整数,求最大的偶数和最小的奇数 求VB代码

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

#include#include#include#includevoidsushu(int*a);intmain(){inta[50],i;intt=200,d=500;srand(time(NULL

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

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

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

command1完成第一题,command2完成第二题PrivateSubCommand1_Click()Dimx%(1To10),n%,i%n=1DoWhilen

PrivateSubCommand1_Click()Dima%(1To20),max%,min%max=50min=100RandomizeClsFori=1To20a(i)=Int(Rnd*51+5

#include#include#includevoidmain(){inti,t,temp;inta[50];srand((unsigned)time(NULL));for(i=0;i

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

a=rand(1,10);%生成1行10列共十个0到1之间的随机小数>>b=a*4+1;%将随机小数映射到1到5(不含5)之间>>c=floor(b)%只取整数部分将以上程序拷入运行即可

Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N

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

是问编程方法吗,这里提供一种方法供参考：首先设置所有位置的值都为1设定一个10次的循环,每次循环中随机产生一个正整数n,对n取30的余数t如果t位置的值不为0,则设置t位置的值为0如果t位置的值为0,

subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu

'试一下：PrivateSubCommand1_Click()Dima(1To10)AsStringDimiAsInteger,jAsIntegerFori=1To10Randomizea(i)=Ch

PrivateSubCommand1_Click()DimArr(9)AsLong'用于存放产生的10随机数DimiAsLongDimnMaxAsLong'用于存放最大的偶数DimnMinAsLong

PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex

PrivateSubCommand1_Click()Dima,b,cAsIntegerRandomizea=Int(Rnd*9)+1Randomizeb=Int(Rnd*9)+1Randomizec=

vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim