几个常用算法（上）.pdf

下载文档

1
0
约5.64千字
约 12页
2020-11-30 发布于广东
举报
版权申诉
保障服务

几个常用算法（上）.pdf

1、本文档共12页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

通 VBA 简介及几个常用算法——几个常用算法(上) 核通 VBA 简介及几个常用算法——几个常用算法(上) 核 1. 计数器 5. 区间[a , b]上的随机数生成 2. 加法器 6. 求最大最小值 3. 乘法器 7. 排序 4. 四舍五入取整 8. 排列的生成通 VBA 简介及几个常用算法——几个常用算法(上) 核 1. 计数器算法描述算法应用举例开始置计数器变量初值: n = 0 例1 统计1~10000之假间分别能被2 ，3 ，5 ，7整条件真除的数的个数。 n = n + 1 结束解通 VBA 简介及几个常用算法——几个常用算法(上) 核 Private Sub CommandButton1_Click() Dim n2, n3, n5, n7 As Integer n2 = 0: n3 = 0: n5 = 0: n7 = 0 For i = 1 To 10000 If i Mod 2 = 0 Then n2 = n2 + 1 End If If i Mod 3 = 0 Then n3 = n3 + 1 End If If i Mod 5 = 0 Then n5 = n5 + 1 End If If i Mod 7 = 0 Then n7 = n7 + 1 End If Next i t = n2= + Str(n2) + Chr(13) + Chr(13) + n3= + Str(n3) + Chr(13) + Chr(13) + n5= + Str(n5) + Chr(13) + Chr(13) + n7= + Str(n7) MsgBox t, , 计数器的应用 End Sub 通 VBA 简介及几个常用算法——几个常用算法(上) 核 2. 加法器算法描述算法应用举例开始将n个数存入数组a 例2 任意输入10个置初值: s = 0, i = 1 正整数并求和。假 i=n? 真 s = s + a(i), i = i + 1 结束解通 VBA 简介及几个常用算法——几个常用算法(上) 核 Private Sub CommandButton1_Click() Dim a(10) As Integer k =