9.3 数组应用例题(根据时间可以选择一个讲!) 根据需要，选择1－2道下面的题目，给学生讲清楚算法的思想！
1 排序
例5-3 选择排序法 直接排序法
Option Explicit
Option Base 1
Private Sub CmdSort_Click()
Dim Sort(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Randomize For I = 1 To 10
Sort(I) = Int(Rnd * (100 - 1)) + 1 Text1 = Text1 & Str(Sort(I)) Next I
For I = 1 To 9
For J = I + 1 To 10
If Sort(I) > Sort(J) Then Temp = Sort(I) Sort(I) = Sort(J) Sort(J) = Temp
End If Next J
Text2 = Text2 & Str(Sort(I)) Next I
Text2 = Text2 & Str(Sort(10)) End Sub
Option Explicit Option Base 1
Private Sub CmdSort_Click()
Dim Sort(10) As Integer, Temp As Integer Dim I As Integer, J As Integer Dim Pointer As Integer Randomize For I = 1 To 10
Sort(I) = Int(Rnd * (100 - 1)) + 1 Text1 = Text1 & Str(Sort(I)) Next I
For I = 1 To 9 Pointer = I
For J = I + 1 To 10
If Sort(Pointer) > Sort(J) Then Pointer = J End If Next J
If I <> Pointer Then Temp = Sort(I) Sort(I) = Sort(Pointer) Sort(Pointer) = Temp End If
Text2 = Text2 & Str(Sort(I)) Next I
Text2 = Text2 & Str(Sort(10))
End Sub
2 查找
例：5-4 顺序查找程序 （界面见P105） 先介绍For Each –next 结构的语句： Option Explicit
Option Base 1 Dim Search As Variant