.程序集 窗口程序集_啟動窗口
.程序集變量 Q_計數, 整數型
.子程序 _按鈕1_被單擊
.局部變量 J_文本號, 整數型
.局部變量 J_寄存_文, 文本型
J_文本號 ＝ 打開文件 (“1.txt”, , )
.如果真 (Q_計數 ＜ 1)
Q_計數 ＝ 1
.如果真結束
.計次循環首 (Q_計數, )
J_寄存_文 ＝ 讀入壹行 (J_文本號)
.計次循環尾 ()
編輯框1.內容 ＝ J_寄存_文
Q_計數 ＝ Q_計數 ＋ 1
關閉文件 (J_文本號)
每股公積金:= finance 2(7)；
每股未分配:=融資2(8)；
三項合計:=每股凈資產+每股公積金+每股未分配；
現價:= C；
模糊溢價率:(現價-三項合計)/三項合計* 100；{排序}
-
股票選擇-
每股凈資產:= finance 2(4)；