VB学习资料(19)

VB入门必备,初学者也能看懂,这篇主要是VB入门基础,但却对你深入学习理解VB有很大的帮助,10个财富值,你不亏。

For i = 1 To 10

If a(i) > Max Then Max = a(i) If a(i) < Min Then Min = a(i) Next i

6.7.2 排序

升序：从小到大 降序：从大到小

1.比较交换法

For i = 1 To n - 1 For j = i + 1 To n

If a(i) > a(j) Then t = a(i)

a(i) = a(j)

a(j) = t End If Next j Next i

2．选择法排序

For i = 1 To n - 1

p = i

For j = i + 1 To n

If a(p) > a(j) Then p = j

Next j t = a(i)

a(i) = a(p)

a(p) = t Next i

3．冒泡法排序

特点：相邻的两个元素进行比较 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