vb.net字符串求和,vb中求和的代码

VB中如何将一串字符串中的数字求和

s = "1，2，3，4，5"

n = 0

For i = 1 To Len(s)

    n = n + Val(Mid(s, i, 1))

Next

Print "数字和为："; n

相关问答

Q1: 三个字符串变量如何相加?

可以使用StringBiuder对象

因为StringBiuder系统只会为他分配一次内存空间，而你定义三个string变量，这样系统会为它们分配3次内存空间，

Q2: VB怎么实现字符串相加

这个问题用vb.net比较简单.......

在text1里输入12

85

74

69

73

91

65

在text2里输入第一个数+第二个数

我这个方法的前提是：

text1里的每个数必需由空格分隔

text2里的文本要用+分隔

----------------------------------------------------------

dim

t1()

as

string

dim

t2()

as

string

dim

t1l,

i

as

integer

dim

temp

dim

r

as

integer,

rs

as

string

'用split函数分隔用户的输入

t1

=

split(text1.text,

"

")

t2

=

split(text2.text,

"+")

'获取数组t1中一共有几个元素

for

each

temp

in

t1

t1l

=

t1l

+

1

next

'直接开始相加

for

each

temp

in

t2

r

=

r

+

t1(i)

rs

=

rs

t1(i)

"+"

i

=

i

+

1

next

'显示结果

rs

=

left(rs,

len(rs)

-

1)

rs

=

rs

"="

r

text3.text

=

rs

----------------------------------------------------------

代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加

Q3: VB.net中的求和问题

Private Sub Command1_Click()

MsgBox CalcResult(2)

End Sub

Public Function CalcResult(X As Long) As Double

Dim dblMinLevel As Double

Dim dblItem As Double

Dim dblN As Double

Dim dblMember As Double, dblBase As Double

Dim i As Double

Dim dblResult As Double

dblMinLevel = 10 ^ (-6)

dblN = 0

Do

dblMember = X ^ dblN

dblBase = 1

i = dblN

Do While i 1

dblBase = dblBase * i

i = i - 1

Loop

dblItem = dblMember / dblBase

dblResult = dblResult + dblItem

dblN = dblN + 1

Loop While dblItem = dblMinLevel

CalcResult = dblResult

End Function