编写VB程序,使用一个一维数组存放10个数据,计算平均值
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 13:18:15
简单写一下代码流程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你吧,等一下