vb使用数组输入10个评委的评分,要求去掉最高分.最低分,输出其余分数的平均分

OptionExplicitDimarr(100)AsIntegerDimarr1(100)AsIntegerDimiAsIntegerPrivateSubCommand1_Click()Fori=1

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

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

不知道你a[i]=a[i]什么意思,把它去了吧,没有任何意义!另外没有注意语句的从属关系,注意使用{};以下是修改过的代码!#includemain(){inta[10],i,j,t;intb[10]

PrivateSubCommand1_Click()DimA(10)AsLong,IAsLongForI=1To10A(I)=InputBox("请输入第"&I&"个数据","提示","")Print

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

你好,完成以上功能的代码如下根据你要求的malloc我觉得应该是用C语言来做吧!如果我理解错了,请指正!#include<stdio.h>#include<stdlib.h>i

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

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

Dimm(99)AsInteger,n(9)AsInteger,iAsInteger,kAsIntegerRandomizeFori=0To99m(i)=Int(Rnd*100)Printm(i);k

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

PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

第1题：PrivateSubCommand1_Click()Dimv(1To20)AsDoubleDimvMaxAsDoubleDimvMinAsDoubleDimiAsLongFori=1To20v

voidmain(){floata[10];float*p=a,max,min,pj=0;inti=0,j;for(;i

PrivateSubCommand1_Click()s=0zf=0Fori=1To10s=InputBox("第"&i&"位评委给分:")zf=zf+sNextiPrint"总得分："&zfEndSu

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

PrivateSubCommand1_Click()Dima()AsIntegern=Val(InputBox("N="))ReDima(n)Print"Before:&

#include#include#defineN20voidmain(){inti,k,j,a[N];k=0;printf("Pleaseinputtwentynozeronumbers\n");fo

#includeintmain(){doubled[10],sum=0,ave=0;inti;for(i=0;i