编写VB程序,使用一个一维数组存放10个数据,计算平均值

简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注

#include#includeintmain(){inti,a[10]={1,3,2,4,5,6,10,7,8,9};int*max,*min,temp;max=malloc(sizeof(int)

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

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

#includemain(){charstring[81];inti,num=0,word=0;charc;gets(string);for(i=0;(c=string[i])!='\0';i++)/

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

稍后为你提供代码

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

#includemain(){intw[8],i,j=0,k=0;for(i=0;i

main(){inti,t,max=0,min=0,w[10];for(i=0;iw[max])max=i;if(w[i]

/>privatesubcommand1_click()dima(1to10)asdoubledimminasdoublefori=1to10a(i)=val(inputbox("请输入数组元素值："

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

PrivateSubCommand1_Click()Dima(),i,na=Array(7,6,5,1,8,5,3,9,4)PrintJoin(a,",")n=Val(InputBox("输入一个数：

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

#include#defineN20//默认数组大小20intmain(){inta[N],i;doubleave=0;printf("输入20个数\n");for(i=0;i

试下这个,只需改动  b(i)=a(i\10+1,imod10)换成b(i)=a((i-1)\10+1,(i-1)Mod10+1)如下：PrivateSubform_click()

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

我HI你吧,等一下