| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1127 人关注过本帖
标题:求高手用VB编程
只看楼主 加入收藏
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
VB 的还是 C 的啊。

程序代码:
Dim s As String
Dim i As Long
Dim s2() As Byte

s = InputBox("请输入密文:", "密文")
s2 = StrConv(s, vbFromUnicode)          '转BYTE数组
For i = 0 To UBound(s2)            '处理过程抄 lowxiong 的 C 代码
    Select Case s2(i)
        Case 48
            s2(i) = 32
        Case 49 To 57
            s2(i) = s2(i) + 16
        Case 65 To 81
            s2(i) = s2(i) + 41
        Case 82 To 90
            s2(i) = s2(i) + 15
        End Select
Next i
MsgBox StrConv(s2, vbUnicode)


授人于鱼,不如授人于渔
早已停用QQ了
2013-05-18 20:54
快速回复:求高手用VB编程
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023320 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved