帮简单写个计算软件

明天靠自己

帮写个简单计算软件,可以多个帐号一起计算.
帐号格式是   
帐号----密码----金额
123----456----50

计算的公式是拿金额如50*0.08=4     50-4=46    46除我设定的数字  然后显示结果.

如果不能多个帐号一起计算,单个的也可以,急用.

提百万

[e]
.版本 2

.程序集 窗口程序集1
.程序集变量 要计算的数, 整数型, , "0"
.程序集变量 结果, 文本型, , "0"

.子程序 _按钮1_被单击

处理文本并计算 (10, 结果)

.子程序 生成随机文本
.局部变量 生成文本, 文本型
.局部变量 n, 整数型

置随机数种子 ()
.计次循环首 (100, n)
    生成文本 ＝ 生成文本 ＋ 到文本 (取随机数 (888888, 999999)) ＋ “----” ＋ 到文本 (取随机数 (888888, 999999)) ＋ “----” ＋ 到文本 (取随机数 (10, 100)) ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\js.txt”, 到字节集 (生成文本))


.子程序 处理文本并计算
.参数 设定值, 整数型
.参数 返回结果, 文本型, 数组
.局部变量 h, 文本型, , "0"
.局部变量 s, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 sy, 整数型
.局部变量 n, 整数型
.局部变量 第一次计算, 整数型
.局部变量 第二次计算, 整数型

h ＝ 分割文本 (读入文本 (打开文件 (取运行目录 () ＋ “\js.txt”, , ), ), #换行符, )
.计次循环首 (取数组成员数 (h), i)
    s ＝ 分割文本 (h , “----”, )
    .如果真 (取数组成员数 (s) ＞ 2)
        加入成员 (要计算的数, 到整数 (s [3]))
    .如果真结束

.计次循环尾 ()
清除数组 (返回结果)
.计次循环首 (取数组成员数 (要计算的数), n)
    第一次计算 ＝ 要计算的数 [n] × 0.08
    第二次计算 ＝ 要计算的数 [n] － 第一次计算
    加入成员 (返回结果, 到文本 (第二次计算 ÷ 设定值))
.计次循环尾 ()
[/e]

明天靠自己

小松鼠 发表于 2013-3-23 08:59
才100

  没精币了嘛.

ㄣ负二代

才100