用foxpro编制一个双色球出球程序

答案：CREATE TABLE 球 (球色 c(2), 数字 n(2), 顺序 n(4))
RAND(-1)
FOR i=1 TO 33
INSERT INTO 球 (球色, 数字,顺序) VALUES ([红],i,RAND()*1000)
NEXT
FOR i=1 TO 16
INSERT INTO 球 (球色, 数字,顺序) VALUES ([蓝],i,RAND()*1000)
NEXT
SELECT TOP 6 球色,数字 FROM 球 WHERE 球色=[红] order BY 顺序 INTO CURSOR temp1
SELECT TOP 1 球色,数字 FROM 球 WHERE 球色=[蓝] order BY 顺序 INTO CURSOR temp2
SELECT * FROM temp1  order BY 数字 INTO CURSOR temp3
SELECT * FROM temp3 UNION SELECT * FROM temp2

其他：有病， 要表单才行，加点分，我帮你编 XUNHUAN

上一个：Visual FoxPro可以作为变量名吗？
下一个：visual foxpro6.0中程序设计中有这样一道题，编写程序，计算并显示1-100以内的奇数平方和、偶数立方和。