教学材料《ＶＢ导论》_6.1.pptVIP

思考下列代码的输出结果？Dima(5,5)asinteger,jsasintegerFori=1toubound(a,1)forj=1toubound(a,2)a(i,j)=i+jtext1.text=text1.textstr(a(i,j))js=js+1ifjsmod5=0thentext1.text=text1.textvbcrlfendifnextjNextiErase语句功能：初始化固定大小数组或收回动态数组的空间。语句格式：Erase数组名[，数组名]……说明：1)Erase语句初始化固定大小的数组数值数组将每个元素设为0。变长字符串数组将每个元素设为空字符串。定长字符串数组将每个元素设为指定长度的空格。布尔型数组将每个元素设为FALSE。例10.课本p89PrivateSubForm_Click() Dima(3)AsInteger,b()AsInteger a(1)=1:a(2)=2:a(3)=3 ReDimb(4) Printa(1),a(2),a(3) Erasea,b Printa(1),a(2),a(3)EndSub123000思考：下列代码的执行结果PrivateSubForm_Click()Diminta(2)AsString*2inta(0)=“aa”inta(1)=“bb”EraseintaPrintLen(inta(0))EndSub22）对于动态数组：Erase语句将删除整个动态数组结构并释放该数组所占用的内存，即动态数组经Erase操作后即不再存在。下次引用该动态数组之前，程序必须使用ReDim语句来重新定义该数组变量的维数。思考下列代码的执行结果PrivateSubForm_Click()Dima()AsIntegerReDima(3)a(1)=1Printa(1)EraseaPrinta(1）EndSub下标越界Redima(2)ForEach……Next语句语句格式：为数组中的每个元素重复执行一组语句。ForEach成员In数组循环体[ExitFor]……Next[成员]说明：（1）格式中的“成员”是一个Variant型变量.“数组”是一个数组名，没有括号和上下界。（2）ForEach……Next语句按数组元素在内存中的排列顺序依次处理每一个元素，执行次数为数组元素的个数.Dimscore(1to5)asintegerForEachxInscorePrintx;Nextx例：编程实现142128354249566370778491产生12个能被7整除的两位数，并使用foreach----next语句将这些数分成两行输出OptionBase1‘定义数组的默认下标为1PrivateSubCommand1_Click()Dima(12)AsInteger,iAsInteger,jsAsIntegerjs=14Fori=1To12a(i)=jsjs=js+7Nextijs=0ForEachvinajs=js+1Printv;IfjsMod6=0ThenPrintNextvEndSub用来给每个数组元素赋值用来定义被7整除的数身份变了：用来定义换行的用来将每个数组元素输出用来定义满足一行六个元素OptionBase1PrivateSubCommand1_Click()Dimexam(2,3)AsInteger,iAsInteger,jAs