求救!! 6行c#源程序,转化为vb.NET,在线等待,马上给分!!谢谢!

[liyin_first]

int weight=10;
char[] arrChar=str.ToCharArray();
string rstStr="";
for(int i=0;i<arrChar.Length;i++)
{
rstStr+=((char) System.Math.Abs((int)arrChar[i]-weight)).ToString();
}
return rstStr;

[liyin_first]

sos

[saucer]

try
Imports System
Imports Microsoft.VisualBasic

dim weight as Integer=10
dim arrChar as Char() = str.ToCharArray()
dim rstStr as string = ""

dim i as Integer

for i=0 to arrChar.Length-1
rstStr = rstStr & chr(System.Math.Abs(asc(arrChar(i))-weight)).ToString()
next

return rstStr

[贝贝壳壳]

快升级了，蹭点分。

[mubaosen]

dim weight as integer =10
dim arrChar() as char=str.ToCharArray()
dim rstStr as string=""
dim i as integer
for i=0 to arrChar.Length-1
rststr+=str(System.Math.abs(val(arrChar(i))-weight))
next i

return rststr

手头没有vb.net，没有调试，呵呵

[Knight94]

Dim weight As Integer
weight = 10
Dim str As String
str = "TEST"
Dim arrChar() As Char = str.ToCharArray()
Dim rstStr As String
rstStr = ""
Dim i As Integer
For i = 0 To i < arrChar.Length
rstStr = rstStr & Convert.ToChar((System.Math.Abs(System.Convert.ToInt32(arrChar(i)) - weight))).ToString()
Next i
Return rstStr

[liyin_first]

3ks for saucer!!