用随机函数产生10个两位数存入数组a中,然后进行从大到小排序并输出排序结果

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

Randomizedima(10)asintegersum=0fori=1to10a(i)=int(rnd*90+10)sum=sum+a(i)nextPrint"SUM:"&Sumavr=sum/1

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

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

#include#include#includeintmain(){inta[15],i,j;srand(time(NULL));for(i=0;i<15;i++)a[i]=rand()%100;fo

Public Function IsPrime(ByVal x As Integer) As Boolean  

楼上好像没有看清楚题目,下面是我写的：#include#includeusingnamespacestd;intmain(){inta[10];inti;srand(time(0));for(i=0;

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

Dima%(1To6,1To6),b%(1To6,1To6)PrivateSubCommand1_Click()Fori=1To5Forj=1To5a(i,j)=Int(Rnd*90+10)Pictu

#includevoidmain(){inta[100],i;for(i=0;i

OptionBase1Dima(20)PrivateSubForm_Load()RandomizeFori=1To10a(i)=Int(10+90*Rnd)NextEndSubPrivateSubCo

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

第一题：Optionbase1PrivateSubForm_Click()Dima(4,5)asinteger,iasinteger,jasinteger,sasintegerdima_aveassi

我觉得楼上的是错的!如果不能的话找我!qq776871598那个排序的从第二个和第三个开始吗?第一个怎么办而却循环次数也有歧义!不懂我是不是错的!所以楼主先试验下

#include#include#includeintmain(void){srand(time(0));inti=0;//用于下面的循环inta[20]={0};//用于存储产生的20个随机数.do

减法模块t:=0ifx

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

Private Sub Command1_Click()    Dim a%(0 To 19), b

#include <stdlib.h>#include <time.h>#include <stdio.h>void mai