用户名.doc

用户名= “”
Y ? N
提示“请输入用户名”
用户名= “洪恩软件” and
密码= 123456
Y ? N
退出过程
提示时合法用户
提示用户名或密码错误
清空用户名
情况密码
If (用户名= “”) then
[tab] msgbox “请输入用户名!”
[tab] exit sub
Else
[tab] if (用户名= “洪恩软件”and 密码=123456) then
[tab][tab] 提示你是合法的用户,欢迎进入!
[tab] else
[tab][tab] 提示用户名或密码有错误
[tab][tab] 用户名=””
[tab][tab] 密码=””
[tab] end if
End if
判断一个整数x是否质数,流程图
判断思路
x>2 x<=2
用同一种算法 1 2 其它
不是是无法判断
用2到x-1范围的数,一个一个去
试除,一旦整除判死刑(不是质数)
任务完成(不用再试下去)。一直试
到x-1都不整除,是质数
先有思路!
定义x和i,x表示要判断的数,i表示每次要试除的数
i ← 2
X > 2
Y ? N
i<=x-1
i 能被 x 整除吗?
Y ? N
输出不是质数

中止循环
i ← i+1
Case x=1,2,其它
1
2
其它
x = i
Y ? N
是质数
输出不是质数
输出是质数
输出不能判断
MICROSOFT VISIO 画图
Dim x as integer=73
Dim I as integer=2
If (x>2) then
Do while (i<=x-1)
If (x mod I = 0) then
输出不是质数
Exit do
End if
I = I + 1
Loop
If (x=i) then
输出是质数
End if
Else
Select case (x)
Case 1
输出1不是质数
C