第04次课-数组(4学时).pptVIP

关于列表框中数据删除 要求只能用RemoveItem删除列表中的数据，下面代码有何问题？ Private Sub Command1_Click() Dim i As Integer For i = 0 To List1.ListCount - 1 List1.RemoveItem i Next End Sub 复习 求质数(素数) 函数isPrime判断传递的参数iNum是否是素数，如果是就返回True Private Function isPrime(iNum As Integer) As Boolean Dim i As Integer 定义循环变量 Dim bFlag As Boolean 定义一个布尔类型的标志变量 bFlag = True 先假定要检测的数iNum是素数 通过循环，判断iNum是否会被某个数整除 For i = 2 To iNum - 1 出现整除情况，就不是素数，修改bFlag，然后退出循环 If iNum Mod i = 0 Then bFlag = False Exit For End If Next i 循环之后，将bFlag的值作为函数值返回。语法：函数名=值。 isPrime = bFlag End Function * * * * * VB开发环境 * QQ 2011/8/29号下午讲到这里，8月30号从动态数组开始。 函数isPrime判断传递的参数iNum是否是素数，如果是就返回True Private Function isPrime(iNum As Integer) As Boolean Dim i As Integer 定义循环变量 Dim bFlag As Boolean 定义一个布尔类型的标志变量 bFlag = True 先假定要检测的数iNum是素数 通过循环，判断iNum是否会被某个数整除 For i = 2 To iNum - 1 出现整除情况，就不是素数，修改bFlag，然后退出循环 If iNum Mod i = 0 Then bFlag = False Exit For End If Next i 循环之后，将bFlag的值作为函数值返回。语法：函数名=值。 isPrime = bFlag End Function 对函数的调用。下面演示了两种情况。需要往窗口上拖放一个按钮。 Private Sub Command1_Click() Dim i As Integer 打印3到100之间的素数 For i = 3 To 100 If isPrime(i) = True Then Form1.Print i Next 寻找比200大的第一个素数 i = 200 Do i = i + 1 Loop Until isPrime(i) = True MsgBox 比200大的第一个素数是： i End Sub 8 6 9 3 2 7 原始数据 6 8 9 3 2 7 6 8 9 3 2 7 6 8 3 9 2 7 6 8 2 2 9 7 6 8 2 3 7 9 第一轮排序 冒泡排序 8 6 9 3 2 7 Dim a As Variant a = Array(56, 90, -123, 58, 5, 10, 100, 53, 66, 518) n = UBound(a) For i = 1 To n - 1 For j = 1 To n - i If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i 冒泡排序 Dim a As Variant a = Array(56, 90, -123, 58, 5, 10, 100, 54, 66, 518) n = UBound(a) For i = 1 To n - 1 For j = n To i+1 step -1 If a(j) a(j - 1) Then t = a(j) a(j) = a(j - 1) a(