第七讲循环讲述.ppt

P82 编写程序求下面函数的值 Sub c1_click() X=inputbox(“请输入X的值”) If x≤0 then y=2-x Elseif 0x≤2 then y=x+2 Elseif 2x ≤5 then y=x 2 Elseif x5 then y=25-x End sub 第七讲 循环结构 教学要求： 1、掌握 循环结构语句的程序设计； 2、熟练掌握For –Next 和Do-Loop循环语句； 3、培养结构化程序设计能力。 Lbound函数:返回数组某维的维下界值。 Lbound(数组名，[维数]) 例:Lbound(A,1) Ubound函数 Ubound(数组名,[维数]) 例:Ubound(B,2) Erase语句 重新初始化固定大小数组的各元素,或者释放动态数组的存储空间。 For Each -Next语句 为数组中的每个元素重复执行一组语句。 利用Array函数可以把一个数据集赋值给一个Variant变量，再将该Variant变量创建成一个一维数组。 变体变量名=Array([数据列表]) Option Base 1private sub form_click( ) dim a as variant , I as integer , b(4) as variant  a=array(5,4,3,