| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1012 人关注过本帖
标题:如果有几百个 If ..... Then ........... ........... End If ...
只看楼主 加入收藏
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:10 
'为了7楼的吹牛说10行内完成,就再优化了一下代码,共9行可达到目的
Private Sub Command1_Click()
  Dim l As Long, a As Integer
  l = 9 - ((Val(Combo1) * 12 + Val(Combo2) - 3) Mod 9)
  For i = 0 To 8
    a = l + i
    If a > 9 Then a = a - 9
    y(i).Caption = a
  Next
End Sub
2013-09-13 20:53
tonoy
Rank: 2
等 级:论坛游民
帖 子:24
专家分:72
注 册:2013-8-25
收藏
得分:0 
吃饱饭 没事干~
2013-09-13 20:59
益西翁登
Rank: 4
等 级:业余侠客
威 望:1
帖 子:126
专家分:272
注 册:2010-2-22
收藏
得分:0 
回复 11楼 lowxiong
多谢老师指导,非常感谢!
2013-09-14 06:46
快速回复:如果有几百个 If ..... Then ........... ........... End ...
数据加载中...
 
   



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

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