VB江苏辅第二次数组.pptVIP

VB辅导 第二次 数组、字符串与循环 对参加培训同学的要求 不可缺席，特殊情况要请假； 要按照要求完成预习和练习； 放暑假时必须拷贝复习内容回家——现在就可以拷贝部分内容 暑假中要完成学习任务：看书熟记理论、做复习题、编程练习。 基本算法（学习相关语句的语法时，应该作为例子而必须掌握的。） 变量应用 作为计数器（不断加1） 用于Do……Loop循环代替For……Next循环； 计数动态数组元素个数，同时又是末个元素的指针； 作为字符串中字符位置的计数指针； …… 作为指针（给定一个数） 各种插入点的指针 各种区间端点的指针 作为状态标志 两种状态标志Flag——采用布尔型 多种状态标志Switch——常采用数值型、字符型 If语句应用 有条件地执行一段程序处理（或屏蔽一段程序处理） 根据不同条件执行不同程序处理 Do……Loop循环 根据条件反复执行一段程序（求级数） 类似单分支If语句功能，有条件地执行一段程序处理（或屏蔽一段程序处理） 借助于计数变量，完成For循环同样功能 For循环应用 重复执行一段程序若干次 用循环变量作为数组或字符串指针，逐个对数组元素或字符进行相同处理 用循环变量按规律变化的数进行运算 循环变量用作运算量，进行累加、累乘； 循环变量在某区间内变化，产生不同x坐标值，计算产生各y值； 数值的应用 查找符合某条件的整数 字符串的应用 密码 回文 数与字符串转换 数组应用 动态数组：逐个增加元素的各数 分析程序并填空：执行下面事件程序后，a(2)的值是（ ），a(7)的值是（ ）。程序中第二个循环被执行了（ ）次。 Option Base 1 Private Sub Cmd1_Click() Dim a(10) As Integer, I As Integer, k As Integer For i = 1 To 10 A(i) = 1 Next i K=1 For k=1 To 10 Step k A(k) = 0 k = k + 2 Next k End Sub 改错题：下面函数根据参数n求1到n之间各数的平均值（实数），请改正其中三个错误。 Public Function avg(n As Integer) As Long Dim i As Integer, k As Long k = 1 For i = 1 To n k = k + i Next i Avg = k / i End Function 编程题 编写一个Command1_Click事件程序，其中包含具有40个元素的一维数组A、11×11的二维数组B。程序完成下列任务： 1.给A数组各元素赋以随机的二位整数； 2.将A中元素用冒泡法按照升序排序；（选择法排序是固定将A(1)与A(2)、A(3)…A(j)…A(40)比较，若A(1)A(J)则是逆序两者要交换值；冒泡法排序是从左到右将相邻两个元素比较，若A(i)A(i+1)是逆序则两者要交换值） 编程题 编写一个Command1_Click事件程序，其中包含具有40个元素的一维数组A、11×11的二维数组B。程序完成下列任务： 3.把B数组看成一个矩形，将A中元素依次赋给B数组的上边10个元素B(1,1)~B(1,10)、右边10个元素B(1,11)~B(10,11)、下边10个元素B(11,11)~B(11,2)、左边10个元素B(11,1)~B(2,1)。（分别用一重、二重循环各做一遍） 4.按照矩形的形状在窗体上用Print输出B数组的四条边上数据元素，每个元素占4个字符，中间元素位置只输出空格。 编程题 第3小题程序：一重循环 For i=1 To 40 If i=1 And i=10 Then b(1,i) = a(i) ElseIf i=11 And i=20 Then b(i-10,11)=a(i) ElseIf i=21 And i=30 Then b(11,32-i)=b(i) Else b(42-i,1)=b(i) End If Next i （ 二重循环略） 第4小题程序：打印一重循环 For I=1 To 11 If i=1 Then For J=1 To 11 Print Right(Space(3)+Str(b(I,J)),4); Next j ElseIf i1 And i