首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 看雪峰会 看雪商城 证书查询
  1. 看雪社区
  2. 经典问答
    3. 发新帖
[已解决]这个问题怎么解决？
2009-4-17 11:57 3302

[已解决]这个问题怎么解决？

zhoudongzh 活跃值
2009-4-17 11:57
3302
已经解决，谢谢两位斑竹了
祝好

[培训]科锐软件逆向50期预科班报名即将截止，速来！！！ 50期正式班报名火爆招生中！！！

收藏
免费 ・0
打赏
分享
最新回复 (7)
icetea
雪    币： 103
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
icetea 2009-4-17 12:26
2 楼
0
为什么要有循环呢...
zhoudongzh
雪    币： 170
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
zhoudongzh 2009-4-17 12:47
3 楼
0
已经解决，谢谢两位斑竹了
zhoudongzh
雪    币： 170
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
zhoudongzh 2009-4-17 13:28
4 楼
0
那位大哥帮助一下啊，谢谢
给个提示也好啊
北极狐狸
雪    币： 2368
活跃值： (81)
能力值： (RANK：300 )
在线值：
发帖
回帖
粉丝
私信
北极狐狸 7 2009-4-17 13:49
5 楼
0
VB 不支持 位运算
zhoudongzh
雪    币： 170
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
zhoudongzh 2009-4-17 13:51
6 楼
0
谢谢老大，论坛有你为荣

百度了一下，会了

附上源码：


Do While j < num
  jj = 0
  j = j + 1
  yhmasc = ((Asc(Mid(Text3.Text, j, 1))))
  
  Do While jj < num1
  jj = jj + 1
    jqmasc = ((Asc(Mid(Text1.Text, jj, 1))))
     
    tgt = (yhmasc Or jqmasc) + tgt
    
  Loop
  
  
Loop
小虾
雪    币： 2367
活跃值： (756)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
小虾 10 2009-4-17 13:59
7 楼
0
Private Sub Command1_Click()
sName = Text1.Text
scode = Text2.Text
For i = 1 To Len(sName)
    For j = 1 To Len(scode)
        n = n + (Asc(Mid(sName, i, 1)) Or Asc(Mid(scode, j, 1)))
    Next j
Next i
Text3.Text = n
End Sub
zhoudongzh
雪    币： 170
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
zhoudongzh 2009-4-17 14:51
8 楼
0
谢谢老大的指点，你的代码更经典
游客
登录 | 注册 方可回帖
　回帖　 表情 雪币赚取及消费
高级回复
返回