如何用vfp实现这个赋值

发布网友发布时间：2022-04-30 20:51

共1个回答

热心网友时间：2023-10-12 01:04

CD "C:\Documents and Settings\kevin\桌面\"
IF FILE("mydata.*")
DELETE FILE mydata.*
endif
CREATE TABLE mydata(分数 N(5,2),成绩 N(4))
FOR i = 0 to 100
APPEND BLANK
REPLACE mydata.分数 with 19+RAND()
ENDFOR

SCAN
REPLACE mydata.成绩 with 1152+int(mydata.分数 * 10)%10 * 10
ENDSCAN
SELECT mydata
BROWSE
USE

我用这段程序模拟了你的要求。对于我模拟的101条记录，执行结果是

19.00 - 19.09 替换为1152
19.10 - 19.19 替换为1162
...

程序的中心思想是;
总结出分数和成绩之间的关系，即分数的数值的大小只与成绩小数点后的第一位有关（这里我假定了所有的成绩都在19.00与19.99之间，你可以根据自身的需要调整一下，比如说19.09这样的成绩可以不替换为1152）