vb编写程序 随机生成10 数组 将该数 奇数偶数

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

随机数rand（）函数产生,乘上10在加上1取整就是1—10,同理乘以100再加上1就是1-99,就利用这个思路.做做试试吧!

ModuleModule1SubMain()DimA(,)AsInteger={{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

dima(10)asintegerdimiasinteger,kasinteger,pasintegerdimmasintegerdimnasintegerfori=1to10a(i)=int(rnd

Private Sub Command1_Click()   Dim a()   Dim i&nbs

稍后为你提供代码

Dima(9)AsIntegerRandomizea(0)=Int(Rnd()*21+10)Doa(1)=Int(Rnd()*21+10)LoopWhilea(1)=a(0)Doa(2)=Int(Rn

privatesubcommand1_click()fori=1to15randomizea=int(Rnd*20)+80ifi=1thenmax=a:min=aifmaxathenmin=aprin

PrivateSubCommand1_Click()Dima(10)RandomizeDimsumAsInteger,minAsInteger,maxAsIntegersum=0:min=100:ma

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

根据你的意思,我来写写,没在工具上写,没环境,你自己编译下,应该只有小错误.importjava.util.*;publicclassTest{int[]i=newint[30];//存放30个数的数

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

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

Private Sub Form_Click()    Randomize    Dim 

人家要插入排序,你用冒泡排序,真晕阿再问：应该怎么编呀？万分感谢。。。再答：你都没说清楚，a里面的元素有多少个？如果多余出的元素怎么处理？不要了么？或者如果a里面的元素没有填满，后面的元素是用什么数值

PrivateSubCommand1_Click()Dima(1To20)Fori=1To20a(i)=Val(InputBox("请你输入第"&i&"个数"))NextiPrint"交换前的数为"F

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

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

楼主看看这个：Private Sub Command1_Click()   Dim aNum(9) As Long,&n