使用多重循环很容易搞些骗人的把戏

我们街头上看到很多骗人的把戏，大多用到数学的原理。

比如算命瞎子摆个摊，在一堆姓氏中问你几句，就能知道你姓什么，其实就是遍历每一个循环，然后获取唯一的值。

今天我也做一个大胆的假设，主要学习循环套循环的应用。

假设中国南方某个城市，有几个著名的明星，他们是好朋友，而你是当地民政局的一个小小的职员。于是，你精心设计了一场戏。

某一天，两个明星牵手来到民政局，你突然拿出一张早就准备好的小纸条，上面写有“恭喜某某某与某某某牵手成功”。如果现场有记者的话，你将一举成名，因为世人都会奇怪，为何你能事先预知他们会走在一起呢？

原来是这样的……

我们假设有些男星和一些女星，我们按如下在Excel中排列，其中第一列为男星，第一行为女星。

来个双循环，就可以罗列各种情况。

Private Sub CommandButton1_Click()

Dim i As Byte

Dim j As Byte

For i = 2 To 3

For j = 2 To 4

MsgBox "恭喜" & Cells(i, 1) & "牵手" & Cells(1, j) & "成功"

Next

Next

End Sub

执行这段代码之后，就是每个男星和每个女星牵手一次。

工作原理是这样的。

Cells(i,1)指的是第一列，第i行，而for i=2 to 3 指的是行从第2行到第3行循环。

Cells(1,j)指的是第j列第1行，for j=2 to 4 指的是列从第2列到第4列循环。

依次按以下顺序：谢周，谢张，谢王，李周，李张，李王

这样就把所有的情况都考虑到了，把所有的纸条全部打印，然后任何一对走进民政局，你只拿出唯一对应的纸条，在外人看来，你简直就是神，能预言这么准确。

循环太厉害了，如果我们的人生可以这样循环，每条路都去尝试一遍，就可以知道哪条路最适合自己，可惜没有这样的程序来一一测试。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。