1、本网站免费注册后即可以下载，点击开通VIP会员可无限免费下载！
2、资料一般为word或PPT文档。建议使用IE9以上浏览器或360、谷歌、火狐浏览器浏览本站。
3、有任何下载问题，请联系微信客服。
扫描下方二维码，添加微信客服
选修1 算法与程序设计《第2章 程序设计基础 第四节 循环结构 学习指引 实现循环结构的语句》优秀ppt课件
算法步骤：
第一步，给定一个大于1的正整数n .
第二步，令i=1 .
第三步，用i 除n ，得到余数r .
第四步，判断“r=0 ”是否成立. 若是，则i是n的因数；否则，i不是n的因数.
第五步，使i的值增加1，仍用i表示.
第六步，判断“i>n ”是否成立. 若是，则结束算法；否则，返回第三步.
例1、求一个数的所有因数
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("n=")
i = 1
Do
r = n Mod i
If r = 0 Then
Print n; "的因数是"; i
End If
i = i + 1
Loop Until i > n - 1
End Sub
例2、质数的判定
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("n=")
i = 2