VB题目:生成10个互不相等的两位随机整数保存在一维数组中

privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo

PrivateSubCommand1_Click()Dima(9)AsIntegerFori=0To9way1:Randomizea(i)=Int(Rnd()*10)+1Ifi>1ThenForp=0

Dimb(100)PrivateSubCommand1_Click()Fori=1To100a=Int(1800*Rnd)+200b(i)=aPrintb(i)NextiEndSubb这个数组里面就保

0.四个数是:1,-1,3,-3.

OptionExplicitPrivatea(9)AsIntegerPrivateiMaxIndexAsIntegerPrivateSubCommand1_Click()Dimi,j,k,iMaxAs

1,设这1998个互不相等的有理数分别为：a1,a2,a3,...,a1997,a1998,它们的总和是M,则有M=a1+a2+a3+...+a1997+a1998,由于3998=1999×2,199

∵1.ab,a及0,b/a,b均表示三个互不相等的有理数∴ab=0或者a=0∵a=0时,b=0不符合题意∴ab=0即a=-b∴b/a=-1∴a=-1,b=1新春快乐!祝你在新的一年里,所有的好梦依偎着

下载即可

最简单的是冒泡排序,然后取最大值,效率不高,空间利用率高的可以用快速排序

PrivateSubCommand1_Click()DimiAsInteger,myTempNumAsInteger,myTempStrAsStringRandomize(Timer)Fori=1To

Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问：就是mod3=0后不会排序啊再答：

dima1,a2a1=int（10+rnd（99））a2=a1=int（10+rnd（99））a3=(a1+a2)/2printa3;

PrivateSubCommand2_Click()Dima(11)AsInteger,sAsStringDimiAsInteger,m1AsInteger,m2AsInteger,avAsDoubl

privatesubcommand1_click()randomizedimaasinteger,basinteger,casintegera=int(rnd*12)+1text1=adob=int(

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

所有10个数进行全排列做减法,唯一一个没有负数的值为最大数

第十个数最大,则前9个数最小就行了：1,2,3,4,5,6,7,8,9,第十个数为：88-1-2-3-4-5-6-7-8-9=43

共有12个设三角形三边分别为a、b、c,且ac+c;又因为a

1.枚举：有：3、13、144、12、145、12、135、11、146、10、146、11、137、9、147、10、137、11、128、9、138、10、129、10、11所以有12个2.设：减

之所以rand()每次的随机数都一样是因为rand()函数使用不正确.各种编程语言返回的随机数（确切地说是伪随机数）实际上都是根据递推公式计算的一组数值,当序列足够长,这组数值近似满足均匀分布.如果计