VisualBasic程序设计作者郭字周第5章课件.pptVIP

Option Base 1 Private Sub Command1_Click() Dim a(5) As Integer, i As Integer, t As Integer, j As Integer Randomize Print 排序前： For i = 1 To 5 ’针对上述步骤描述中的第1）步 a(i) = Int(Rnd * 89 + 10) Print a(i); Next ’针对上述步骤描述中的第1）步 Print For i = 1 To 4 ’针对上述步骤描述中的第2）、3）步 t = i ’针对上述步骤描述中的第4）步 For j = i + 1 To 5 ’针对上述步骤描述中的第5）、6）步 If a(j) a(t) Then t = j ’针对上述步骤描述中的第7）步 Next ’针对上述步骤描述中的第8）步 tmp = a(i): a(i) = a(t): a(t) = tmp ’针对上述步骤描述中的第9）步 Next ’针对上述步骤描述中的第10）步 Print 排序后： For i = 1 To 5 ’针对