|
楼主 |
发表于 2023-6-2 10:57:10
|
显示全部楼层
江西省吉安市
老师好!
只开了个头,后面写到画板不知道怎么继续
.版本 2
.子程序 _按钮2_被单击
.局部变量 量价, 文本型, , "0"
.局部变量 盘子, 整数型
.局部变量 价格0, 小数型
.局部变量 价格I, 小数型
.局部变量 成交量I, 整数型
.局部变量 换手率I, 小数型
.局部变量 价格J, 小数型
.局部变量 成交量J, 整数型
.局部变量 换手率J, 小数型
.局部变量 成员数, 整数型
.局部变量 量价_临时I, 文本型, , "0"
.局部变量 量价_临时J, 文本型, , "0"
.局部变量 I, 整数型
.局部变量 J, 整数型
盘子 = 10000
价格0 = 1
量价 = 分割文本 (“20230101,1000,1.10},{20230102,2000,1.00},{20230103,3000,1.20}”, “},{”, )
成员数 = 取数组成员数 (量价)
.计次循环首 (成员数, I)
量价_临时I = 分割文本 (量价 [I], “,”, )
成交量I = 到整数 (量价_临时I [2])
价格I = 到数值 (量价_临时I [3])
换手率I = 成交量I ÷ 盘子
.计次循环首 (成员数, J)
量价_临时J = 分割文本 (量价 [J], “,”, )
成交量J = 到整数 (量价_临时J [2])
价格J = 到数值 (量价_临时J [3])
换手率J = 成交量J ÷ 盘子
.如果真 (J > I)
跳出循环 ()
.如果真结束
画板1.定位写出 (, , )
.计次循环尾 ()
.计次循环尾 ()
|
|