用计算机vfp程序编程计算正整数num的各位上的数字之积.

作者&投稿:谭物 (若有异议请与网页底部的电邮联系)
编程实现计算正整数NUM的各个位上的数字之积。 例如: 如输入:123,则输出应该是:6~

不知道你要用什么语言实现。那就用C吧
#include
int main()
{
int NUM = 21456; //你设定的正整数
int tmp1,tmp2,idx=0;
int result = 1;
tmp1 = NUM;
while(tmp1> 0)
{
tmp2 = tmp1%10;
result = result * tmp2;
tmp1 = (int)(tmp1 /10); //除去最未末位
}
printf("The NUM is %d, and the result is %d
",NUM,result);
return 0;
}

long k=0;

clear
accept "请输入正整数:" to num
n=len(num)
ji=1
for i=1 to n
ji=ji*val(substr(num,i,1))
endfor
?"正整数的各位上的数字之积为:"+alltrim(str(ji))

Dim num As String, multi As Integer, i As Integer
Private Sub Command1_Click()
multi = 1
num = (InputBox("输入一个正整数", , ""))
For i = 1 To Len(num)
multi = multi * Val(Mid(num, i, 1))
Next i
Text1.Text = multi
End Sub

这个这么简单。你是职中的?

用vfp计算3+6+9+12+...+99的值,结果存放在变量s中,用?输出结果。(用循 ...
答:"3+6+9+12+...+99"等同于以下计算"(1+2+3+4+...+33)×3"i=2 s1=1 do whil i<34 s1=s1+i s=s1*3 i=i+1 ?s enddo 经测试以上编程语句正确无误,结果是"9、18、30、45...1683"

VFP编程环境中,编程计算S=1+2+3+...+100的值怎么算
答:i=0 s=0 DO WHILE i<=100 s=s+i i=i+1 ENDDO ?"1到100之和为",s RETURN

Vf程序设计的题目求解急
答:sqlCopy codeSELECT * INTO zf.dbf FROM 成绩.dbf ORDER BY 总分 DESC, 高数 ASC;在“成绩.dbf”表中,使用 REPLACE 命令求出所有记录的总分。sqlCopy codeREPLACE INTO 成绩.dbf (总分) SELECT 高数 + 英语 + 计算机 FROM 成绩.dbf;在“成绩.dbf”表中,统计总分大于200的记录个数,并将结果...

用vfp计算电费程序,收费标准为:十度以内每度0.5元超过十度时,超过部...
答:clear input "请输入用电多少度? " to x if x<10 y=0.5*x else y=10*0.5+(x-10)*1 endif ?"应"缴纳电费为:",y return

VFP编程:编写程序,计算1到100之内能被3或5整除的数字个数
答:clear s=0 for i=1 to 100 if mod(i,3)==0 or mod(i,5)==0 s=s+1 endif endfor ?"1到100之内能被3或5整除的数字个数为:"+alltrim(str(s))+"个。"

VFP编程: 输入入一个大于等于2的整数,判断是否为素数?说明:一个正整数...
答:FLAG=T //这个t是表示ture,flag是一个标记变量,FOR I=2 TO N-1 //这个循环i的值由2-i-1 IF MOD(N,I)=0 //在2-i-1这些数中如果除n的余数为0(mod是求余函数)FLAG=F. //则把flag变量改为F,也就是false,EXIT //同时用exit退出for循环 ENDIF ENDFOR IF FLAG=...

求两个整数m和n的最大公约数。 用vfp编程语言编程。高手请指点!!_百度...
答:新建一个程序(文件菜单——新建——程序——新建文件),写代码: input "请输入M的值: " to m input "请输入N的值: " to n temp=0 if n>m temp=m m=n n=temp endif r = m%n do while r <> 0 m = n n = r r = m%n enddo ? "最大公约数是:",n 然后,直接点击...

用VFP编制一个自定义函数,实现将任意一个正整数分解为其最小因子的连 ...
答:你的程序是不好懂。请参考下面程序:CLEARSET TALK OFFinput [请输入要分解的正整数=] to n? fenjie(n)RETURNFUNCTION fenjiePARAMETERS nPRIVATE m,k,s,im=nk=INT(SQRT(m))s=ALLTRIM(STR(m))s=s+[=1]FOR i=2 to kdo while MOD(m,i)=0s=s+[*]+ALLTRIM(STR(i))m=INT(m/i)...

列举出VFP中四种运算的所有运算符及其名称并指出其优先级
答:先执行算术运算符、字符串运算符和日期时间运算符、其次执行关系运算符、最后执行逻辑运算符、有括号的先算括号。算术运算符、按优先级从高到低依次为 1. **或^ 乘方 2. *、/ 乘、除 3. % 求模 或 mod()4. +、- 加、减 逻辑运关系运算符,按优先级从高到低依次为 1 .NOT. ...

急急急!用VFP编写计算根号2的结果,小数点保留1000位,,,谢谢啦
答:我曾经编了个,但只能算到300位左右,无法满足你的要求