用冒泡排序法对8，3，2，5，9，6从小到大进行排序。

分析：在排序过程中，将两个相邻记录间的关键字进行比较，小者往上浮，大者往下沉，故称冒泡排序。其基本思想是从第一个记录开始，将每两个相邻记录之间的关键字进行比较。若不符合排序顺序，就交换这两个记录，直到第n个记录为止。第一次循环结束后，得到最大的记录。第二次循环仍重复上述步骤，直到 第n－1个记录，得到次大的记录。重复若干次后，便得到已排序好的一组记录。我们除了要理解这种算法的基本思想，还应体会算法中的循环语句的应用。对教科书例题及习题可用下面算法（程序）实现。

Private Sub Command1_Click()

Dim C(10) As Double

For n = 1 To 6

C(n) = InputBox("输入需要排序的数", "6个数的冒泡排序", "")

Next n

For i = 1 To 6

For j = 6 To i Step -1

If C(j) < C(j - 1) Then a = C(j): C(j) = C(j - 1): C(j - 1) = a

Next j

Next i

For i = 1 To 6

Print "", C(i)

Next i

End Sub

事实上,我们只要掌握VB的几个简单语句,就可轻松地上机验证算法了.以下是VB的基本语句:

1．赋值语句:VB中的赋值运算符是“=”，其一般格式如下：变量=值

2．输入函数InputBox :此函数用于将用户从键盘输入的数据作为函数的返回值返回到当前程序中。

3．输出函数MsgBox :MsgBox格式为：MsgBox(prompt[,buttons][,title][,helpfile,context])

4. 选择结构:

If 语句:(1)单行格式If语句：If 条件 Then 语句1 [Else 语句2];

(2)多行格式If语句:

If 条件 Then

语句体

End If

或If 条件 Then

语句体1

Else

语句体2

End If

或If 条件1 Then

语句体1

ElseIf 条件2 Then

语句体2

[ElseIf 条件3 Then

语句体3]

……

[Else

语句体n]

End If

5．循环结构:

For 循环变量 = 初始值 To 终值 [Step 步长]

[循环体]

[Exit For]

[循环体]

Next 循环变量

While循环的格式如下：

While 条件

[循环体]

Wend

Do循环的两种格式如下：

（1）格式一

Do

[语句体]

['满足某条件时

Exit Do]

[语句体]

Loop [While或Until 条件]

（2）格式二

Do [While或Until 条件]

[语句体]

['满足某条件时

Exit Do]

[语句体]

Loop

总之，在计算机环境下进行算法教学既是《课程标准》的要求，也是教师教学的愿望，更是学生学习的需要。在信息技术创设的数学学习环境中，操作、观察、试验、发现等过程变得具体而清晰，数学思维的目的性增强，数学推理的逻辑基础更加稳固，数学思考更具有程序性，这就增大了学生成功建构数学概念、解决数学问题的可能性，从而使以学生发展为本的教育理念得以实现。

参考文献:

1.人民教育出版社、课程教材研究所：《普通高中课程标准实验教科书（A版）数学3》，人民教育出版社2004年5月第一版

2．中华人民共和国教育部：《普通高中数学课程标准（实验）》

本文获得“高中数学课程教材与信息技术整合的研究”课题子课题论文和优秀案例评比一等奖