vb中利用FUN求数组的平均值

翻译一下就是av=av+x[i]/N;这样写和你原程序中的写法意思一样的再问：我已经知道了，还是要谢谢你

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

DimiAsIntegerDimminAsIntegerDimmaxAsIntegerDimmAsIntegermin=100max=0Fori=0To9m=Int(Rnd*100)PrintmIfm

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

Dima(1To10)AsInteger'定义10个数组Dimaa(1To9)AsInteger'定义9个空格数组DimnAsInteger'定义空格数DimsAsInteger'数组和Form1.C

PrivateSubCommand1_Click()Dima(6,10)AsIntegerDimiAsIntegerDimmAsIntegerFori=0To10Form=0To6a(m,i)=Rnd

#include#includemain(){inta[10],i,p=0;floatv=0.0,temp;for(i=0;i

楼上的似乎没有按题目要求做,我改了一下,你看看吧#includefloatcountAvg(inta[10]){/*这个函数求平均值*/inti,sum=0;floatavg;for(i=0;i

#include#include#includeintmain(){srand((unsigned)time(0));intArray[10];inti=0;doublesum=0;intMax=-1

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

FunctionAverage(mySinge()AsSingle)AsSingleDimsnAsSingleDimcnAsInteger,iAsIntegercn=UBound(mySinge)-L

#include#defineN10floatfun(intnum[N[N]){inti,j,k=0,sum=0;floataverage;//下面求数组周边元素的平均值for(i=0;i再问：顶角的

Private Sub Command1_Click()Dim i As Integer, j As Integer,&

#include"stdio.h"voidmain(){inta[10],max,min,i,j,n,s=0;floatping=0,he=0;for(i=0;i

所要求的程序已经完成,#include<stdio.h>#include<stdlib.h>main(){ inta[100],i,s=0; randomi

Private Sub Command1_Click()    m = Array(2, 7, 9,

#include"stdio.h"#include"math.h"doublefun(double*a,intlen){inti;doubles;for(i=0,s=0;i

其实你这个需求用电子表格就可以实现,何必用VB编程呢?MicrosoftExcel所见即所得,灰常方便!而且数据输入一次就可以了,如果想要更强的功能,它还支持VBscript编程,虽不如VB强悍但是也

#include#includevoidmain(){inta[10];intsum=0;intbelow_ave=0;floatave=0;inti;printf("inputteninteger:

dima(10)一共十一个无素optionbase1dima(10)一共十个无素没有optionbase1相当于optionbase0标从0开始dima(3to6)一共四个无素optionbase1d