VisualBasic6.0程序设计乔平安VB05章课件教学.pptVIP

Dim a(), i%, k%, x%, n% a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a) 获得数组的上界 x = InputBox(输入要删除的数) For k = 0 To n 查找欲删除的数组元素位置 If x = a(k) Then Exit For Next k If k n Then MsgBox (找不到此数据): Exit Sub For i = k + 1 To n 将x后的元素左移 a(i - 1) = a(i) Next i n = n - 1 ReDim Preserve a(n) 数组元素减少一个 For i = 0 To n 显示删除后的各数组元素 Print a(i); Next i 第5章 数组与自定义类型 5.1数组的概念 5.2静态数组 5.3动态数组 前面所介绍的变量只能存取一个数据，而在实际应用中经常需要处理相同性质的