VISUALBASIC(VB)学案二..docVIP

VISUAL BASIC (VB)学案二 十一、经典应用： 【练5】求斐波那契（Fibonacci）数列的第n个数据项，n由键盘输入。引进递推法。 分析问题： 从兔子实例中总结归纳规律。 规律：每个月的兔子数等于上个月的兔子数加上两个月前的兔子数。 规律的数学表达： 如果用用Fi表示斐波那契数列的第i项，则该数列的各项间的关系为： Fn=Fn-1+Fn-2 这里，n ≥ 3 ，F1=1，F2=1。 Fn=Fn-1+Fn-2一般称为递推公式。 处理： 第一项和第二项分别为1。 第三项起，用递推公式计算各项的值，直至第n项为止。 由于中间各项只是为了计算后面的项，因此可以轮换赋值。 输出：第n项的值。 流程图： 编写程序 上机调试和运行 【练4】键盘输入任意10个数，然后用选择排序法将10个数降序排序并输出。 分析问题： 输入：逐个输入各个数。 处理： 采用“选择法”排序。 排序的数用数组变量处理。 出现双重循环。 输出：排序后的各个数。 流程图：见右图 编写程序： 上级调试和运行  注意:上述选择排序法程序思想的核心程序与我们上课时讲解的排序思想不同。考试时求某一次排列顺序，都是以我们上课时讲解的选择排序思路为准，每次先找到最值，然后和待排序位最多进行一次交换。考纲上没有对选择法做程序设计上的要求，一般同学需要知道上课讲的选择排序法思想即可。 【练7】键盘输入任意10个数，然后用冒泡排序法将10个数升序排序并输出。 【练8】键盘输入任意10个数，然后用折半（对分）查找键盘输入的KEY。 复习建议: 1、学业水平考考试手册、学科教学基本要求。为复习根本。 2、必修模块，以第一学期教材为主。选修模块，以学案为主。 并参看在VB学案提到的第二册书部分内容。 3、建议三种结构的流程图一定要会画，会写对应基本结构的程序代码。 4、经典例子搞不懂，就记和背核心代码。VB的学习看这两份学案。 5、除了编写程序外（毕竟分值很少），多花时间在基础知识上。 【练6】键盘输入任意10个数，然后在10个数中顺序查找键盘输入的KEY。 注意: 1、x=Inputbox(“请输入一个数”) 题目中如事先没有定义X,则上述X为字符型。 所以如果X要用来做数值型计算，则一定要前加定义为数值型，如后加VAL转换函数则更保证不会出错。即： 2、VB中标点符号一定要用英文的标点符号。  Private Sub Command1_Click() Dim n, a, b, c, k As Single n = InputBox(请输入斐波那契数列的数据项项数：) n = val(n) If n = 3 Then ’n项 为2的情况 a = 1 ’第1项的斐值为1 b = 1 ’第2项的斐值为1 k = 3 ’从第3项起开始计算 Do While k = n ’循环结构K=3计算到第N项 c = a + b ’前两项累加的和赋值给c a = b ’最新的前两项中的a值 b = c ’最新的前两项中的b值 k = k + 1 Loop Print 结果为：；c ’第n项为第3项且以上斐值为C Else Print 结果为：；1 ’第n项为1或2时斐值为1 End If End Sub Private Sub Command1_Click() Dim a(1 To 10) As Single Dim i, j, t As Single i = 1 Do While i = 10 a(i) = InputBox(请输入一个数) a(i) = Val(a(i)) i = i + 1 Loop i = 1 Do While i = 9 j = i + 1 Do While j = 10 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If j = j + 1 Loop i = i + 1 Loop i = 1 Do While i = 10 Print a(i)