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

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

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

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

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

百度了一下，会了

附上源码：


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
2009-4-17 13:51
0
小虾
雪    币： 2384
活跃值： (766)
能力值： (RANK：410 )
在线值：
发帖
回帖
粉丝
私信
7 楼
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
2009-4-17 13:59
0
zhoudongzh
雪    币： 170
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
8 楼
谢谢老大的指点，你的代码更经典
2009-4-17 14:51
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回