以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，任意一个数组进行代码实现相加的结果  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140778)
--  作者：jiterp
--  发布时间：2019/9/13 15:56:00
--  求助，任意一个数组进行代码实现相加的结果
通过任意一个数组，如123或45，要求用狐表代码实现相加的计算动作，结果为6与9.这个需要怎么实现？
--  作者：jiterp
--  发布时间：2019/9/13 16:46:00
--  
研究出来了

Dim a As String = "123457"
Dim b As String = Nothing
Dim c As Double
For i As Integer = 0 To a.Length -1
    If c = 0 Then
       b = a(i)
       c = cdbl(b)
    Else
       b = a(i)
       c = c + cdbl(b)
    End If
Next
Output.Show(c)


不知道还有没有更好方法
--  作者：y2287958
--  发布时间：2019/9/13 18:12:00
--  

不知道要表达的啥意思，如果是计算一字符串的和，试试以下代码

Dim a As String = "123457"
Dim c As Double
For i As Integer = 0 To a.Length -1
    c += val(a(i))
Next
Output.Show(c)