几个常用算法（下）.pdf

通 VBA 简介及几个常用算法——几个常用算法(下) 核 通 VBA 简介及几个常用算法——几个常用算法(下) 核 1. 计数器 5. 区间[a , b]上的随机数生成 2. 加法器 6. 求最大最小值 3. 乘法器 7. 排序 4. 四舍五入取整 8. 排列的生成 通 VBA 简介及几个常用算法——几个常用算法(下) 核 6. 求最大最小值 算法描述 算法应用举例 Step1 将n个数存入数组a; 例6 任意输入10 Step2 置初值M=a(1), i=2; 个数输出其最大值与 Step3 将M与a(i)进行比较， 最小值。 若M比a(i)小，则交换其值; Step4 i=i+1,若in ，输出M 并结束，否则转Step3。 解 通 VBA 简介及几个常用算法——几个常用算法(下) 核 Private Sub CommandButton1_Click() Dim a(10) As Single Dim MinN, MaxN As Single t = For i = 1 To 10 a(i) = Val(InputBox(请输入第 + Str(i) + 个数, 10个数的输入)) t = t + Str(a(i)) + , Next i MinN = a(1) MaxN = a(1) For i = 2 To 10 If MinN a(i) Then MinN = a(i) End If If MaxN a(i) Then MaxN = a(i) End If Next i MsgBox 您输入的10个数是： + t + Chr(13) + Chr(13) + 最小值MinN= + Str(MinN) + Chr(13) + Chr(13) + 最大值MaxN= + Str(MaxN), , 最大最小值算法应用 End Sub 通 VBA 简介及几个常用算法——几个常用算法(下) 核 7. 排序 算法描述 算法应用举例 选择排序 a(1) 21 -5 a(1) a(2) 45 45 a(2) 第一趟 从数组a中选择最 a(3) 7 21 a(3) 小数, 将它换到a(1)中; a(4) 3 7 a(4) a(5) 89 第一趟 89 a(5) 第二趟 从a(2),…,a(n)中 a(6) -5