字典教程精简版（呼之即来、挥之即去）

cxh5237@163.com · 发表于 2012-11-20 15:44

谢谢楼主分享！！！！真风趣

lms2233zy · 发表于 2012-11-20 16:51

膜拜中。谢谢楼主的分享。

wangcexcelhome · 发表于 2012-11-22 10:42

呵呵。受教了。说的通俗。赞

刘志文 · 发表于 2012-11-23 00:03

谢谢彭版分享

abc123qqq · 发表于 2012-11-30 21:26

太有才了，学习不了。

cscandyman · 发表于 2012-11-30 21:35

什么东东哦

zerov · 发表于 2012-12-2 12:19

没想到字典这么简单呀

liagmy06 · 发表于 2012-12-2 13:01

本帖最后由 liagmy06 于 2012-12-2 13:02 编辑

学习了,但是我还是菜鸟,难理解!顺便请斑竹帮我解释一下我下面的代码,谢谢!
For d = 1 To nn - 1 'nn为我输入的数字:2/4/8/16/32/64

  Cells(d + 1, 5) = "第" & d & " 轮:"

  For i = 1 To 64
b(i) = 0
  Next i
m = 5
  For i = 1 To nn

If b(i) = 0 Then

   b(i) = 1

   m = m + 1

   For j = 1 To nn

      If b(j) = 0 And a(i, j) = 0 Then

      Cells(d + 1, m) = Cells(i + 1, 3) & " vs " & Cells(j + 1, 3) & ""

      b(j) = 1: a(i, j) = 1: a(j, i) = 1

      j = nn

      End If

   Next j

   End If

Next i

Next d

eyanluo · 发表于 2012-12-24 15:34

讲得很生动,谢谢

guxinglip · 发表于 2012-12-25 17:04

谢谢分享，生动易懂，看来还的继续学习

		自动登录	找回密码
密码			免费注册

[分享] 字典教程精简版（呼之即来、挥之即去）

浏览过的版块