VFP编程问题。请教高手啊

来源：百度知道 编辑：UC知道 时间：2024/05/15 19:30:07
两个编程题目。第一个。将八进制转换为十进制。比如（1756）转换为十进制
第二个。从键盘上输入10个数，找出最小值
谢谢高手们~！

CLEAR
input "请输入一个八进制数" to m
s=STR(m)
sum1=0
FOR i=1 to LEN(s)
sum1=SUM1*8 + VAL(SUBSTR( s,i,1))
NEXT
? "转换后的数是" + STR(INT(sum1))
----------------------------------
CLEAR

DIMENSION arr(10)

FOR i=1 to 10
input "请输入arr(" + ALLTRIM(STR(i)) +")的值" to arr(i)
NEXT

min1=arr(1)

FOR i= 2 to 10
IF min1> arr(i)
min1=arr(i)
ENDIF
NEXT

? "最小的数是" + STR(min1)