vb程序设计分类(讲义).doc

求最大值、最小值 思路： 在若干个数中求最大值，一般先假设一个较小的数为最大值的初值，若无法估计较小的值，则取第一个数为最大值的初值；然后将每一个数与最大值比较，若该数大于最大值，将该数替换为最大值；依次逐一比较。 例1: 输入三个数，打印输出其中最大的数。 将三个数依次输入到变量Ａ、B、C中，设变量MAX存放最大数。其算法如下： 1) 输入A、B、C。 2) A与B中大的一个放入MAX中。 3) 把C与MAX中大的一个放入MAX中。 4) 输出MAX，MAX即为最大数。 写出程序代码： 例2: 输入10个数，打印输出其中最大的数。 算法设计如下： （1）输入1个数,存入变量A中,将记录数据个数的变量N赋值为1，即N=1 （2）将A存入表示最大值的变量Max中，即Max=A （3）再输入一个值给A，如果AMax 则 Max=A, 否则Max不变 （4）让记录数据个数的变量增加1，即N=N+1 （5）判断N是否小于10，若成立则转到第（3）步执行，否则转到第（6）步。 （6）打印输出max 写出程序代码： 例3：随机产生10个100～200之间的数，求最大值。 Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then Max = x Next i Print Print 最大值=; Max End Sub 二、数据排序 例4：已知两个数x和y，比较它们的大小，使得x大于y。 （1） If xy Then t=x x=y y=t End If （2）If xy Then t=x: x=y: y=t 例5：已知x，y，z三个数，使得xyz 用一个IF语句和一个嵌套的IF语句实现： If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If 用三个If语句实现 If xy Then t=x : x=y : y=t If xz Then t=x : x=z : z=t If yz Then t=y : y=z : z=t 例6：（逆序排列：） 编写一个函数reverseDight（By Val num as Integer)。该函数将整数num的每个位上的数字逆序排列后返回。dim a as string , b as string, s as string b = cstr(num) For i = 1 To Len(b) s = Mid(b, i, 1) a = s a Next i reverseDight = cint (a) 1．选择法排序（升序） 基本思想： 1）对有n个数的序列（存放在数组a(n)中），从中选出最小的数，与第1个数交换位置； 2）除第1 个数外，其余n-1个数中选最小的数，与第2个数交换位置； 3）依次类推，选择了n-1次后，这个数列已按升序排列。 程序代码如下： For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next I 例 由计算机产生10个0～100之间的随机整数，使用选择法排序，将这些数按递增的顺序排列。(纠正课本错误) Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Print a(i); Next i 2．冒泡法排序（升序） 基本思想：(将相邻两个数比较，小的调到前头) 1）有n个数（存放在数组a(n)中），第一趟将每相邻两个数比较，小的调到前头，经n-1次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下