帮忙把.NET函数转VB函数

来源：百度知道 编辑：UC知道 时间：2024/05/23 23:07:37
具体函数如下

Function CCProxyJiaMi(ByVal strPassword As String) As String
Dim MIWEN As String = ""
For i As Integer = 0 To strPassword.Length - 1
Dim j As Integer = 999 - Asc(strPassword.Substring(i, 1))
MIWEN = MIWEN & j.ToString
Next
Return MIWEN
End Function
Function CCProxyJieMi(ByVal strPassword As String) As String
Dim MIMA As String = ""
Dim PWDLength As Integer = strPassword.Length / 3
For i As Integer = 0 To PWDLength - 1
Dim SubMIMA3 As Integer = CInt(strPassword.Substring(i * 3, 3))
Dim JIEMI As String = Chr(999 - SubMIMA3)
MIMA = MIMA & JIEMI
Next
Return MIMA
End Function
Function check(ByVal paswrd As String) As Boolean
If Microsoft.VisualBasic.IsNumeric(paswrd) = False Then
Return

dim j as string
后面直接用j，去掉.string

VB6不支持substring，只有mid

这个不就是vb的吗，你是要转c#吗

Function CCProxyJiaMi(ByVal strPassword As String) As String
Dim MIWEN As String
For i = 0 To Len(strPassword) - 1
Dim j As Integer
j = 999 - Asc(strPassword.Substring(i, 1))
MIWEN = MIWEN & j.ToString
Next
CCProxyJiaMi = MIWEN
End Function
Function CCProxyJieMi(ByVal strPassword As String) As String
Dim MIMA As String
Dim PWDLength As Integer
PWDLength = Len(strPassword) / 3
For i = 0 To PWDLength - 1
Dim SubMIMA3 As Integer
SubMIMA3 = CInt(strPassword.Substring(i * 3, 3))
Dim JIEMI As String
JIEMI = Chr(999 - SubMIMA3)
MIMA = MIMA & JIEMI
Next
CCProxyJieMi = MIMA
End Function
Function check(ByVal paswrd As String) As Boolean
If Microsoft.VisualBasic.IsNumeric(paswrd) = False Then
check = False
End If
If paswrd.Length Mod 3 <&