vb输入10个数,求这10个数的最大数

我给你写了,挺简单的.窗体上添加两个label控件一个command控件Dima(1To10)DimbDimcAsIntegerDimdAsIntegerPrivateSubCommand1_Clic

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

做完了,不用任何控件,代码如下：DimM(6)AsByte,H(6)AsByteDimG(3)AsByteDimIAsByte,JAsByte,HjAsIntegerConstN=10,X=6,Y=3

什么叫奇数个数和再问：就是有几个奇数，几个偶数再答：OptionExplicitPrivateSubCommand1_Click()DimsAsString:s=Text1.TextDimiAsInt

main(){intmax,min,i,x;floatave;scanf("%d",&x);max=min=ave=x;for(i=0;imax)max=x;if(x

PrivateSubCommand1_Click()fori=1to20a=val(inputbox("输入第"&i&"个数:"))ifa>=0thenj=j+1:s=s+anextprint"正数个

#includeintmain(void){\x09inta[10];\x09inti,aver=0;\x09scanf("%d%d%d%d%d%d%d%d%d%d",&a[0],&a[1],&a[2

不知道你要用什么语言来描述,我用C语言来作答：main(){inti,t=0,max=0,min=0,mean=0;inta[10]={0,1,2,3,4,5,6,7,8,9};for(i=1;i

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

用一个一维数组a就可以解决了奇数:aimod2=1,则加1偶数:10-i再问：完全小白求帮助再答：新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:PrivateSubCommand1

privatesubcommand1_click()dima(9),b(),c,d,e,iasintegerfori=0to9a(i)=int(val(inputbox("输入第"&i+1&"个数："

dima(9)a(0)=25a(1)=33`````a(9)=99i=int(rnd*10)?a(i)看明白了吗?有问题再HI我再问：输出的三个数要求不重复的呢，你这样的只有一个

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

#includemain(){inti,p1=0,p2=0,max,min,num[10];printf("input10numbers:\n\n");scanf("%d",&num[0]);max=

in(){intmax,min,i,x;floatave;scanf("%d",

给个最简单的示例你x=0:y=0fori=1to10a=inputbox("请输入一个任意整数!","提示")ifa=""thenmsgbox"你至少输入一个数!","提示":i=i-1elseif(

0本来就是偶数>_

用什么语言写再问：C语言再答：#includemain(){inti,a[10],t,max;for(i=0;i

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的

建个控制台工程Win32ConsoleApplication#include"stdafx.h"#include"stdio.h"intmain(){inti,num[10],max,min,sum;