医学信息技术基础：第5讲 双重循环、数组.pptx

1 1 第5讲 双重循环、数组 老师，好难哦！ 2 学习要点 双重循环的应用 数组 一维数组与多维数组 数组的初始化 数组的应用(排序) 2 3 1 双重循环 在标签中输出一行*，共计10个(要求使用For循环) ********** 3 4 Dim i As Integer For i = 1 To 10 Label1.Text = Label1.Text + * Next i 4 5 1 双重循环 在标签中输出5行*，每行10个(要求使用For循环) ********** ********** ********** ********** ********** 5 6 6 Dim i As Integer，j As Integer For i = 1 To 5 For j = 1 To 10 Label1.Text = Label1.Text + * Next j Label1.Text = Label1.Text + Chr(13) Next i 7 输出一个等腰三角形 * *** ***** ******* ********* 7 输出一个直角三角形 * *** ***** ******* ********** 思考 一只公鸡5文钱，一只母鸡3文钱，三只小鸡1文钱，那么用100文钱买100只鸡，公鸡、母鸡和小鸡分别有多少只？ 8 9 思考 用双重循环计算：1！+2！+…+N！ 9 10 问题 录入一个班30个同学的成绩 输出平均分、最高分、最低分 将分数按从高到低排列 10 11 11 Dim a As Integer Dim b As Integer ... ... ‘不就是30行嘛 a = Val(InputBox(“请输入第1个学生的成绩”)) b = Val(InputBox(“请输入第2个学生的成绩”)) … ... ‘坚持就是胜利 如果没有数组…. 12 12 Dim ave As Single = (a+b+c+d+...)/30 Dim max as Integer = a Dim min as Integer = a If bmax then max = b If bmin then min = b If cmax then max = c If cmin then min = c … ... ‘o(╯□╰)o不活了 如果没有数组…. 13 数组：一组相同类型的变量的集合。 数组名代表逻辑上相关的一批数据，用下标区分 该数组中的各个元素 数组必须先声明后使用，数组声明后在内存可 分配一块连续的区域。 数组有上下界，数组的元素在上下界中是连续的，系统为每个元素分配存储空间 2 数组的概念 13 14 一维数组 Dim | Private | Public 数组名(下标上界) [As 类型] 例 Dim mark(29) As Integer 2.1 数组的声明 14 mark(0) = 80 mark(1) = mark(0) + 12 mark(2) = Val(InputBox(“请输入一个整数”)) …. 下标上界为29，说明该数组有30个元素 第一个元素下标为0 这,就是一个变量 15 一维数组 Dim | Private | Public 数组名(下标上界) [As 类型] 例 Dim mark(29) As Integer 2.1 数组的声明 15 我们经常在For循环中使用数组，why？ 循环变量每次默认+1，把循环变量作为下标，即可遍历数组中的所有元素。 动态数组 当不能决定到底用多大数组才合适时，可在声明阶段引入动态数组。 例：DIM A( ) AS Integer 在过程中可以用ReDim声明其大小 例： ReDim A(9) 16 17 17 Dim mark(29) as Integer, i as Integer For i = 0 to 29 mark(i) = Val(InputBox(“请输入第” +str(i+1)+”个学生的成绩”)) Next i 18 18 Dim ave as Single, total as Integer For