以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教 : 假设计算 7*6*5*4*3*2*1  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81584)
--  作者：农村人
--  发布时间：2016/3/1 17:00:00
--  求教 : 假设计算 7*6*5*4*3*2*1
求教 : 假设计算 7*6*5*4*3*2*1
如何用代码计算 ?
--  作者：大红袍
--  发布时间：2016/3/1 17:05:00
--  

dim str as string = "7*6*5*4*3*2*1"
msgbox(Eval2(str))

 
--  作者：大红袍
--  发布时间：2016/3/1 17:05:00
--  

 或者动态编译也可以

 

http://www.foxtable.com/help/topics/1487.htm

 
--  作者：农村人
--  发布时间：2016/3/1 17:14:00
--  
Dim txt As String = "A,B,C,D,E,F,G"
txt = txt.Replace(",","")
Dim n As Integer = txt.Length
For i As Integer = n To 1 Step -1
    Output.Show(i)
Next
得到7,6,5,4,3,2,1
我需要将以上数据想乘;
--  作者：大红袍
--  发布时间：2016/3/1 17:28:00
--  
Dim txt As String = "A,B,C,D,E,F,G"
txt = txt.Replace(",","")
Dim n As Integer = txt.Length
dim sum as double = 1
For i As Integer = n To 1 Step -1
    sum = sum * i
Next
msgbox(sum)