UC知道懂VFP6.0进来，我不会做了
来源：百度知道 编辑：UC知道 时间：2024/06/04 01:44:37
1 在100到999范围内找出所有符合下述条件的数：该数的值等于该数中各位数字的立方和
2、 使用DO WHILE….ENDDO编程
对SB表中的设备，主要设备单价增加10%，非主要设备单价减少10%，并显示结果
3 求3到200之间的素数(除1和该数本身外，均不能被其他数整除)。
4 输入任意4位整数钱数，转换成大写形式 如，输入1234，输出壹仟壹佰叁拾肆元整
谢谢各位了，我实在不会了，麻烦把命令写详细点，还有解释
答案好，我还会追加分数，11月3号之前
晕..一楼。。。你说让我咋给你分，但是是VF书里的....
晕..2 3 4楼我都看不明白啊，FUnc我还没学到...貌似不是VF..汗死了，，，我明天问老师去吧
1楼我能看懂
2、 使用DO WHILE….ENDDO编程
对SB表中的设备，主要设备单价增加10%，非主要设备单价减少10%，并显示结果
3 求3到200之间的素数(除1和该数本身外，均不能被其他数整除)。
4 输入任意4位整数钱数，转换成大写形式 如，输入1234，输出壹仟壹佰叁拾肆元整
谢谢各位了，我实在不会了，麻烦把命令写详细点，还有解释
答案好，我还会追加分数，11月3号之前
晕..一楼。。。你说让我咋给你分，但是是VF书里的....
晕..2 3 4楼我都看不明白啊，FUnc我还没学到...貌似不是VF..汗死了，，，我明天问老师去吧
1楼我能看懂
这是C语言的知识啊！！！！！！！！
2.
USE d:\vfp6\我的作业\sb.dbf SHARED &&你的表位置
do while not eof ( )
if 主要设备 =.t.
replace 价格 with 价格*1.1 &&替换价格
else
replace 价格 with 价格*0.9
endif
skip
enddo
list
use
我就会这个
1:
FOR i=100 to 999
IF i = cubesum(i) then
? i
ENDIF
ENDFOR
FUNC cubesum
PARAMETER num
numstr = allt(str(num))
num_1 = val(subs(numstr,1,1))
num_2 = val(subs(numstr,2,1))
num_3 = val(subs(numstr,3,1))
numsum = num_1^3 + num_2^3 + num_3^3
RETURN numsum
4.PARAMETER XXX
IF XXX=0
RETURN ''
ENDIF
LOCAL C0, C, C1, C2, CXXX, K
C1 = '零壹贰叁肆伍陆柒捌玖'
C2 = '佰拾亿仟佰拾万仟佰拾元 角分'
C0 = IIF(XXX<0, '负', '')
XXX = STR(ABS(XXX), 14, 2)
CXXX = ''
FOR K = 1 TO 14
C = SUBSTR(XXX, K, 1)
IF C=' ' .OR. K=12
LOOP
ENDIF