3. 随机产生10个整数,将它们由小到大排列

Private Sub Command1_Click()Text1.Text = ""Dim A(1 To 1

Private Sub Command1_Click()   Dim a(1 To 10) As I

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

PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1

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

LS的回答有可能出来100（三位数）改为a=int(Rnd*100)b=int(Rnd*100)

这是我做的,你参考一下.

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbcccccccccccccccccccccc

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

dimsasinteger,aasinteger,basinteger,casintegers=Rnd()*900+100a=s\100b=s\100-a*10c=smod100-b*10然后用if判

PrivateSubCommand1_Click()Dima(100)AsInteger,xAsIntegerFori=1To100Ifsushu(i)ThenPrinti;IfiMod10=0The

源代码已发.278700294@qq.com

PrivateSubForm_click()DimA(1To10)RandomizeForI=1To10A(I)=Int(Rnd*90)+10NextIForI=1To9'选择法p=IForJ=I+1

PrivateSubCommand1_Click()Dima(29)AsInteger,tmpAsIntegerDimiAsInteger,jAsIntegerRandomizeTimeFori=0T

/>很高兴为你解答答案是：#include <stdio.h> #include <stdlib.h>#include <time

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

是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49新建工程,窗体上放个文本框,

PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,sAsLongRandomizeFori=1To30x=Int(Rnd*100)+1Printx,