有一个10元素的数组,编写vb程序,找出其中的最小数及其下标
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/23 06:48:26
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
dima(10)asintegerdimiasinteger,kasinteger,pasintegerdimmasintegerdimnasintegerfori=1to10a(i)=int(rnd
#defineMAXSIZE100intdata[MAXSIZE];voidDeleted(intsarr[]){inti,j,arr[N];//N是已排序数组中元素的个数j=1;arr[0]=sar
#includeintmain(){inta[4][4],i,j;for(i=0;i
#include#include#includechar*getline()//读取一行,动态分配内存,此函数在网上搜到的,遇到问题先搜搜:){char*line=malloc(100),*linep
/>privatesubcommand1_click()dima(1to10)asdoubledimminasdoublefori=1to10a(i)=val(inputbox("请输入数组元素值:"
Private Sub Command1_Click()Dim i As Integer, j As Integer,&
'vb6测试成功OptionExplicitPrivateFunctionmax(b()AsInteger)AsIntegerDimiAsIntegerDimjAsIntegerFori=1To6Fo
#includevoidmain(){inta[10]={17,86,67,83,65,49,26,92,38,42};ints=a[0];intii=0;for(inti=1;is){s=a[i];
PrivateSubCommand1_Click()Dima(),i,na=Array(7,6,5,1,8,5,3,9,4)PrintJoin(a,",")n=Val(InputBox("输入一个数:
inti,j;chart;t=a[0][0];//先提取一个值,后面的就可以直接覆盖;for(i=0;i
PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re
function[a,b,c,d]=ff(A)a=max(A);b=min(A);c=mean(A);d=length(A);end
(1)0与1构成的二维数组:CLS:n=1FORi=1TO10FORj=1TO10IFi=nANDj=nTHENa(i,j)=0:a(i,10-j+1)=0IFi=5THENx=9-j-1ELSEx=
dsegsegmentarray1dw1,2,3,4,5,6,7,8,9,10array2dw11,12,13,14,15,16,17,18,19,20sumdw10dup(?)dsegendscse
判断也就是需要一个依据,那么你这的依据明显就是排列好的数组,答案就显而易见了,先排列再和原数组对比,就可知道是否升序排列了
你的题目应该是:如何定义一个函数,求一个整形数组的最大元素,并编写主函数吧.#include#include#include#includeintmax(intarr[],intlen){//retu
PrivateSubCommand1_Click()Dima(1To20)Fori=1To20a(i)=Val(InputBox("请你输入第"&i&"个数"))NextiPrint"交换前的数为"F
function[MAind]=maxAbs(X)[MAind]=max(abs(X));MA是最大值,ind是MA在X中的位置.
PrivateSubCommand1_Click()Dima()AsIntegern=Val(InputBox("N="))ReDima(n)Print"Before:&