RT,代码如下:Public Function BuildSC(strCode As String) As String
Dim strResult As String
Dim intLen As Integer
Dim intX As Integer
intLen = Len(strCode)
strResult = ""
For intX = 1 To intLen Step 2
strResult = strResult & Trim(Chr(Asc(Mid(strCode, intX, 1)) - 9))
Next intX
For intX = 2 To intLen Step 2
strResult = strResult & Trim(Chr(Asc(Mid(strCode, intX, 1)) - 5))
Next intX
BuildSC = strResult
End Function谢谢!
Dim strResult As String
Dim intLen As Integer
Dim intX As Integer
intLen = Len(strCode)
strResult = ""
For intX = 1 To intLen Step 2
strResult = strResult & Trim(Chr(Asc(Mid(strCode, intX, 1)) - 9))
Next intX
For intX = 2 To intLen Step 2
strResult = strResult & Trim(Chr(Asc(Mid(strCode, intX, 1)) - 5))
Next intX
BuildSC = strResult
End Function谢谢!
解决方案 »
- asp.net+c# 关于dropdownlist的问题
- jquery ajax中文乱码
- 那么多的“应用程序池”,但是“站点响应”突然间变得非常的慢,打不开网页。
- select count (*) from (select * from role a ,user b where a.role_id=b.pkid)
- 帮忙解决错误:表示“字段”,此处应为“类”
- 求助!!学习ASP。NET学要什么基础?用c#好还是用vb好?怎么样才能入门
- 关于RenderControl(HtmlTextWriter)的问题,谢谢解答。
- 为什么不可以察看错误信息?
- 如何从一个新窗口打开一个链接?
- 如何在不刷新的情况下更新服务器端控件内容?
- 【求助】关于2个DataTable的合并问题。
- 大家周末愉快,问个小问题哈,怎么实现二级或多级栏目的动态管理比较好?
{
String strResult;
String intlen;
String intX;
intLen = Len(strCode);
strResult = "";
for(int X=0;i<=intLen;i=i+2)
{
strResult = strResult + Trim(Chr(Asc(Mid(strCode, intX, 1)) - 9));
}
for(int X=2;i<=intLen;i=i+2)
{
strResult = strResult + Trim(Chr(Asc(Mid(strCode, intX, 1)) - 5)) ;
}
return strResult;
}