第7章 数组例题汇总以及上机作业.ppt

本章上机;1）. 可通过循环给数组元素赋初值 For i = 1 To 10 ‘ A数组的每个元素值为1 A(i)=1 Next i 2）. 数组的输入 输入10个数，并存入到数组A中 For i = 1 To 10 A(i) =Val( InputBox(“输入A(” i “) 的值”) ) Next i;精品资料; 你怎么称呼老师？ 如果老师最后没有总结一节课的重点的难点，你是否会认为老师的教学方法需要改进？ 你所经历的课堂，是讲座式还是讨论式？ 教师的教鞭 “不怕太阳晒，也不怕那风雨狂，只怕先生骂我笨，没有学问无颜见爹娘 ……” “太阳当空照，花儿对我笑，小鸟说早早早……”;3）. 求数组中最大元素及所在下标 Dim Max As Integer, iMax As Integer Max = A(1): iMax = 1 For i = 2 To 10 If A(i) Max Then Max = A(i) iMax = i End If Next i Print A( iMax )=; A(iMax);编程： 将数组元素倒置;Option Explicit Const NUM = 6