主题：Circle Angel
幽灵密码
[专家分：3510] 发布于 2010-11-24 19:48:00
[color=0000FF]Cls
按“run”开始
中途按“e”结束
输入最大运行秒数
别太长！！！
因为 （之所以 （别太长）And（600秒足矣））
虽然可以中途退出
但是是在开始画圆时才能退出
因为无聊，我按（秒数\200）*400000进行了循环，开始的等待动画是我无聊搞的
End 因为
试试吧！！！
End[/color]
最后更新于：2010-11-28 21:24:00
回复列表 （共33个回复）
11 楼
huangyb731 [专家分：630] 发布于 2010-11-26 22:50:00
这样吧——
cls
screen 12
input N ’秒数
for I=1 to N\200*400000
X=X+1
if X>15 then X=0
circle（A,B)，C，X
A=A+10
B=B+10
C=C+10
next
end
50!50!
12 楼
幽灵密码 [专家分：3510] 发布于 2010-11-26 22:53:00
错了
还有一开始现实的
还有等待动画之类的你一个没考虑到
13 楼
幽灵密码 [专家分：3510] 发布于 2010-11-26 23:13:00
14 楼
huangyb731 [专家分：630] 发布于 2010-11-27 21:49:00
等待动画怎么搞
15 楼
huangyb731 [专家分：630] 发布于 2010-11-27 21:50:00
EXE怎么搞？每步讲细点
16 楼
幽灵密码 [专家分：3510] 发布于 2010-11-27 22:04:00
先把你的源文件放到qb7.1文件夹里；
然后打开这个文件；
点击RUN-->Make EXE File...-->Make EXE and Exit
就行了
出来的EXE就是
17 楼
幽灵密码 [专家分：3510] 发布于 2010-11-27 22:11:00
等待动画部分：
Locate 14, 33
Print "Loading...."
For i = 1 To 100
Locate 15, 16
Print String$(i \ 2, 220)
Print Tab(39);Ltrim$(Str$(i));"%"
Next i
18 楼
huangyb731 [专家分：630] 发布于 2010-11-28 13:23:00
EXE没有啊
19 楼
huangyb731 [专家分：630] 发布于 2010-11-28 13:26:00
动画也不对
20 楼
幽灵密码 [专家分：3510] 发布于 2010-11-28 13:40:00
哦
动画部分少了For j = 1 To (n \ 200 + 1) * 100000
EXE不可能没有！
我来回复
您所在位置：