vb利用数组输入30个数字,统计其中偶数个数并求和

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

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

稍后为你提供代码

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

对于提问者的补充,我只能这样说：楼上的是用c++做的,cin>>*（C++中用于输入）和cout

你只输入了一个实数啊,试试for(inti=0;i{Console.WriteLine("请输入一个实数：");a[i]=int.Parse(Console.ReadLine());}C#控制台应用学

#includevoidmain(){inta[3][10];inti,j,flag=1;intislianxu(inta[],inti);//判断是否有连续数的函数申明printf("请输入

voidmain(){inta[8],*p;/*定义变量和数组*/for(p=a;p

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

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

dima,b,casdoublePrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)Ifa+

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

0本来就是偶数>_

dima(30)fori=1to30a(i)=int(rnd(97+3))ifisprime(a(i))=truethenprinta(i);nextifunctionisprime(xasinteg

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

#include#includevoidmain(){inti,num;int*p,*head;scanf("%d",&num);if(num>1&&num再问：能否来个简单的？好多符号还没学啊再答：

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

Dima(14)AsIntegerDimb(10)AsIntegerPrivateSubCommand1_Click()Fori=1To14a(i)=Int(100*Rnd())‘这里产生100以内的

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I

PrivateSubCommand1_Click()Dima1()AsLongDima2()AsLongDimiAsLongDimjAsLongDimoAsLong,pAsLongDimdistanc