Ha Visual Basicban az a kérdés, hogy egy adott karakterláncból határozzuk meg a számok (mint egyjegyűek) összegét, azt hogyan kell?

VB-t nem beszélem, de Lotus Scriptben ez így van:

Dim s$

Dim sum%,i%

s$="1234"

For i%=1 To Len(s$)

sum%=sum%+Asc(Mid$(s$,i%,1))-48

Next

Szia.

Igen VB-ben is igy van valahogy :

Két módszer is van az egyjegyüekre (de csak az egyjegyüekre).

A MID-del kiszeded az aktuális karaktert (ahogy az #1-es irta, szerintem az megy VB-ben is): Mid$(s$,i%,1)

Na itt lehet két módszer : vagy amit az első irt ASC - 48

vagy a VAL funkciót VB-ben (én ezt javaslom számokhoz) : [link]

Sok sikert.

Üdv.

Imports System.Console

Module Module1

Private Const charArray As String = "cvdfnDGDGfr1rn3o45r53pj66j3vpiuj9twc8t5345"

REM: 1+3+4+5+5+3+6+6+3+9+8+5+3+4+5 = 70

Sub Main()

Dim sum As Integer = 0

For Each ch As Char In charArray

Dim locInt As Integer

If Integer.TryParse(ch.ToString, locInt) Then

sum += locInt

Else

WriteLine("Hiba, a(z) " & ch & " karaktert nem lehet átkonvertálni")

End If

Next

WriteLine("A számok összege: " & sum)

ReadKey()

End Sub

End Module

A karakterláncot a 'Const charArray'-ban tárolod.