visual foxpro

clearinput"请输入一个数："toxs=1dowhileabs(x)>0m=x%10s=s*mx=int(x/10)enddo"其各位数的乘积为：",s

Len("visualFoxPro")=12LEN(SUBSTR("1234586",5,1))=112*1=12

substr是字符串截取函数如substr("abcdefghijk",5,4)是将字符串“abcdefghijk”,从第5个字符开始截取4个字符,那么这个函数的值就是"efgh“

从一个字符串或备注型字段中截取一部分返回.SUBSTR(字符表达式,开始截取的位置,截取的长度)返值类型：字符型；参数描述字符表达式：将从这个字符表达式（或字符串）中截取.开始截取的位置：指定从第几个

我怀疑你的题目没给全,邮费和路程远近没关系吗?clearinput"请输入邮件重量（单位克)"towifw>100?"邮费是：",0.05*100+（w-100）*0.02else?"邮费是：",0.