vb数组

PrivateSubCommand1_Click()Dima(1To20)Dimmax,ave,min,summax=0min=300Print"产生的20个数为:";Fori=1To20a(i)=I

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

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

你可以将行列算出的值用一个数组接收,这里是采用变量接收的方式.Option Compare DatabasePrivate Sub aa()Dim h

PrivateSubCommand1_Click()Dima(10,6)AsString*2,b(30)AsIntegerDimmaxAsInteger,maxiAsInteger,maxjAsInt

Option Base 1Private Sub Command1_Click()Dim a(4, 5) As Inte

对于一维数组a元素个数为UBound(a)-LBound(a)+1

PrivateSubCommand1_Click()Dimi%,j%,b%,a%()'定义变量b=InputBox("输入随机数的个数-1")IfbReDima(b)'注意,用redimRandomi

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

一下代码!你参考一下!PrivateSubCommand1_Click()ClsDima()AsInteger'定义一个动态数组Dimb(10)AsInteger'用于统计Randomizen=4:m

'vb6测试成功OptionExplicitPrivateFunctionmax(b()AsInteger)AsIntegerDimiAsIntegerDimjAsIntegerFori=1To6Fo

功能：MAX返回参数包含的数据集中的最大数值,MIN返回参数包含的数据集中的最小数值.函数MAX和MIN属于统计函数.格式：MAX/MIN（numberl,number2,……）参数：numberl,

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

Private Sub Command1_Click()    m = Array(2, 7, 9,

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

PrivateSubCommand1_Click()Dima(),b(),blnFlagAsBoolean,F%Dimi%,j%,k%ReDima(1To6,1To2)a(1,1)="2"a(1,2)

数组的第一维是4个,第二维是5个,第三维是6个,总数应该是4*5*6＝120个.再问：为什么3代表4个，4--5，5--6？？再答：因为数组的下标，如果不指定的话，默认是从0开始的，所以第一维包含0，

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

dima(10)一共十一个无素optionbase1dima(10)一共十个无素没有optionbase1相当于optionbase0标从0开始dima(3to6)一共四个无素optionbase1d