RE: [VB.Net] Optimization Challenge 05-06-2011, 01:52 PM
#11
Oh well, looks like people are not interested. 
Here is the solution to #2

Here is the solution to #2
Spoiler: Solution
Code:
Private Function SumChars(ByVal strSource As String) As Integer
SumChars = 0
For intI As Integer = 0 To strSource.Length - 1
SumChars += (Asc(strSource.Substring(intI, 1)) - 64)
Next
Return (SumChars + 64)
End Function
'Usage:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = SumChars("BRZ")
End Sub![[Image: rytwG00.png]](http://i.imgur.com/rytwG00.png)
Redcat Revolution!

![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
![[Image: 6caf54.gif]](http://i25.lulzimg.com/6caf54.gif)