VB程序设计语言 主讲教师：王　杨.

Presentation on theme: "VB程序设计语言 主讲教师：王　杨."— Presentation transcript:

1 VB程序设计语言 主讲教师：王　杨

2 多重循环 For i = 1 to 10 do while 条件 循环体 loop Next i While 条件 do while 条件
Wend While 条件 for i = 1 to 10 循环体 next i Wend

3 For i = 1 to 10 for j = 1 to 5 循环体 next j Next i For i = 1 to 10

4 静态数组 Dim m(1 to 9) as integer Dim a(1 to 3,1 to 3) as integer a(1,1)
b% …… f% i% Dim m(1 to 9) as integer m(1) m(2) …… m(5) m(9) Dim a(1 to 3,1 to 3) as integer a(1,1) a(1,2) a(1,3) a(2,1) a(2,2) a(2,3) a(3,1) a(3,2) a(3,3)

5 数组的操作 数组声明 数组赋值 数组运算 数组输出 Option base 1 Private sub Command1_click( )
Dim mark(100) as integer …… End sub Option base 1

6 作业1 if option1.value=true then m=3 Elseif option2.value=true then m=5
End if n= text1.text n=n+1 If n mod m<>0 then For i = 1 to 5 Next i Do Loop While n mod m <>0 Picture1.print n

7 作业2 List Additem For Listcount text

8 求一个班全体学生的平均成绩 Dim mark!(), n As Integer n=Val(InputBox(“请输入该班的学生人数"))
ReDim mark!(1 To n) For i = 1 To n mark(i) = InputBox("输入" & i & "位学生的成绩") aver = aver + mark(i) Next i aver = aver / n aver = 0

9 动态数组 Dim a( ) As Integer … n = 10 ReDim a(n) As Integer
ReDim a (12) As integer ReDim Preserve a (12) As integer ReDim larray(n,m) … ReDim Preserve larray(n+1,m) ReDim Preserve larray(n,m+1) Preserve参数的功能是不清除前一次数组元素的赋值， 但使用该参数只能改变数组最后一维的大小。 ReDim [Preserve] 变量 (下标) As 数据类型

10 利用Array()函数 数组变量名=Array(数组元素值) a数组 Dim a As Variant, b As Variant
1 2 3 4 5 a(0) a(1) a(2) a(3) a(4) Dim a As Variant, b As Variant a = Array(1,2,3,4,5) b = Array("abc", "def", "67") b数组 abc def 67 b(0) b(1) b(2) For i = 0 To UBound(a) Print a(i); Next i For i = 0 To UBound(b) Print b(i);

11 数组分类 Dim 数组名(下标1[,下标2…]) [As 类型] 静态数组 (声明时确定了大小的数组) 数组 动态数组
(声明时没有确定大小的数组) 一维数组 (下标数为1个的数组) 数组 多维数组 (下标数为2个以上的数组)

12 控件数组 由一组相同类型的控件组成 共用一个相同的控件名字，即其所有元素的Name属性相同；
数组中的每个控件都有唯一的索引(Index)属性值，即下标； 除Name和Index属性外其它属性可以相同也可以不同； 共享同样的事件过程，通过传送Index参数来进行区分。 Private Sub Option1_Click(Index As Integer) … End Sub

13 控件数组操作 建立控件数组 删除控件数组 第一种方法，通过改变已有控件名称添加控件数组元素 第二种方法，通过复制现存控件添加数组元素
改变一个控件的“Name”属性值，并把Index属性置为空 （不是0），

14 课后作业

15 思考 西南石油大学运动会开幕式比赛,各学院得分 10个评委打分（去掉一个最高分，去掉一个最低分，求平均分）
Dim a(1 to 10) as integer Max=a(1) For i = 2 to 10 If a(i)>max then Max=a(i) Endif Next I

16 总结 动态组数 数组的基本操作 控件数组