07秋理科VB考前辅导_3

《07秋理科VB考前辅导_3》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数组定义dim<数组名>(<下标说明>)as<数据类型>例如：dima(1to10)asintegerdimb(10)asinteger对于第二种声明方式，若希望下标从1或0（默认）开始可以用optionbase{1

2、0}（必须写在代码模块最前面）数组元素的使用privatesubForm_Click()’（教材P80程序阅读题4）dima(5)asbyte,iasbytea(0)=1fori=1to5a(i)=a(i-1)+i:printa(i);nextiendsub应用举例数组元素应用举例：（兔子问题）查找数组最大元素的算法讲解试题讲解：调试21、调试22、调试31数组查

3、找：顺序查找法，折半查找法数组元素的插入与删除在一个有序数组中插入一个元素，保持有序性不变数组的排序算法（选择排序、优化选择排序、冒泡排序）（调试25）二维数组的定义dima(1to3,1to3)asinteger二维数组的遍历fork=1to3forj=1to3a(k,j)=k+jnextjnextk‘显示二维数组fork=1to3forj=1to3printa(k,j);nextjprintnextk试题讲解：调试28、调试29二维数组的应用举例例1有一5*5二维数组，首先在每一行的前四个元素赋[10，99]之间的随机整数，然后将每一行前四个元素的平均值写入到第5个元素中，

4、最后将此二维数组显示在窗体上Fori=1to5Sum=0Forj=1to4A(I,j)=int(rnd*90)+10Printa(I,j);Sum=sum+a(I,j)NextjA(I,5)=sum/4Printa(I,5)Nexti例2：矩阵转置：转置前的矩阵转置后的矩阵12341111123422221234333312344444Fori=1to4Forj=1toi-1Swapa(I,j)anda(j,i)Nextj,i试题讲解：调试27动态数组dimnasintegern=val(inputbox(“n=”))dima(1ton)asinteger‘上述代码是否可实现数

5、组元素个数的动态改变？动态数组的定义dima()asinteger动态数组元素个数的重定义n=val(inputbox(“n=”))redima(1ton)…动态数组考题举例privatesubcommand1_click()dimsasstring,casstringdimLasinteger,kasinteger,jasintegerdima()asstrings=inputbox(“s=”)L=len(s)______fork=1toLa(k)=mid(s,k,1)nextkfork=1toL–1forj=k+1toLc=a(k):a(k)=a(j):a(j)=cnext

6、jnextkfork=1toLprinta(k);nextkendsub选项A:dima(1toL)asstringB:redima()asstringC:dima(1toL)D:redima(L)试题讲解：调试24算法补充Ø判断是否为回文（调试11）Ø随机不相等数组元素的生成I=1DoA(i)=int(rnd*101)Forj=1toi-1IfA(j)=a(i)exitforNextjIfj>i-1theni=i+1LoopWhilei<=10Ø二进制到十进制转换（调试40）