易语言 在控制台中输出进度条
.版本 2 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 Write () 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 Write .局部变量 i, 整数型 .判断循环首 (i ≠ 100) i ＝ i ＋ 1 标准输出 (1, 字符 (13) ＋ 到文本 (i) ＋ “%”) 延时 (50) .判断循环尾 ()
.版本 2 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 Write () 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 Write .局部变量 i, 整数型 .判断循环首 (i ≠ 100) i ＝ i ＋ 1 标准输出 (1, 字符 (13) ＋ 到文本 (i) ＋ “%”) 延时 (50) .判断循环尾 ()
