形成一个N×N的矩阵输出（N可以为奇数，也可以为偶数）

For x = 1 - N To N - 1 Step 2
For y = 1 - N To N - 1 Step 2
If Abs(x) >= Abs(y) Then Print 1; Else Print 0;
Next y
Print
Next x
碰上这种图形，我就喜欢用几何解法以矩阵中心点为原点构建坐标系，然后可以确定每个数字所在位置的坐标，不过为了配合输出，这里的坐标系纵向是x轴（并且正方向向下），横向是y轴，并且每两个相邻数字的距离为2（如果距离为1，则当N为偶数时所有点的坐标都会出现小数）；然后就可以确定条件了，对于点(x,y)，如果|x|>=|y|，即“纵坐标”的绝对值大于等于“横坐标”的绝对值，则该点为1，否则为0
于是就得到了上面的代码

受教了

@初音
七奈@璐村惂鐢ㄦ埛_0748V5Z馃惥

再请教大佬，请大佬解释为什么（1）式子能成立？
1） Print b = 66 < "AB"
结果为true
2）b = 66 < "AB" 类型不匹配
3）true<"AB" 类型不匹配

回复7楼：
首先你要知道VB里有个类型叫Variant，然后才能解释你问的这些怪现象
这里的变量b估计你是没有定义的，那么它的类型就是默认的Variant
然后，先看非Variant类型的情况，比如66<"AB"这个表达式，比较的是数值和字符串，此时会尝试将字符串转换成数值再比较，如果不能转换，则会报错
再来看Variant类型的情况，比如你先执行b=66，然后比较b<"AB"，这时就不会转换了，而是按照类型来比较，数值总是小于字符串，结果为True
具体到你问的三种情况：
第一种，b=66<"AB"整体视为一个表达式，先比较b=66，不论结果是True还是False，都视为数值，并且由于b是Variant类型，因此这个比较结果也是Variant(Boolean)类型；然后再比较是否小于字符串"AB"，肯定是小于的，因此结果为True
第二种，视为赋值语句，将表达式66<"AB"的结果赋给b，根据刚才的解释，非Variant的数值和字符串比较时，不能转换就会报错
第三种，同样是非Variant的数值跟字符串比较，因此也会报错

7楼第（1）个结果是Flase
1) Print b = 66 < "AB" ···············False
2）b = 66
Print b < "AB" ················True

看来你还是没理解Variant这个类型啊
如果你直接比较True<"AB"，那么由于两边都不是Variant类型，会将True视为数值类型，并将字符串型的"AB"尝试转换成数值类型，由于无法转换，因此报错
而在b=66<"AB"这个表达式中，b的类型是Variant，因此按照Variant的规则来比较，先比较b=66，结果无论是True还是False都无所谓，总之是Boolean类型（准确来说是Variant类型下的Boolean子类型），注意现在还不是字符串类型；然后再比较True<"AB"或者False<"AB"，由于这个True或者False实际上还是Variant类型，因此会将True或False转换成与"AB"相同的类型，即字符串类型，然后再比较
这就是Variant与其他类型的区别

变体类型是不是没有办法比较？
比如：有一个已经排好顺序的数组，要求输入一个数后，按照原顺序将其插入数组中
x为变体类型，就得不到想要的结果，必须声明为数值型

又是Variant类型的问题
上面已经说到了比较表达式中“两边都不是Variant”和“有一边是Variant”的情况，这次轮到“两边都是Variant”会怎样了
这里的InputBox函数返回的是字符串类型，赋值给x之后，x的类型就是Variant(String)，而数组a的元素则是Variant(Integer)类型，两者都是Variant
对于两个Variant，如果子类型相同（都是数值或者都是字符串），才会比较它们的值；而如果类型不同（一个是数值，另一个是字符串），则谁也不向谁转换，数值类型总是小于字符串类型
要解决这个问题，除了将x显式定义为数值类型以外（这也是建议的做法），还可以使用Val函数，将InputBox的返回值转换成数值类型（不过Val的类型是Double，如有需要，可以使用CInt等函数进一步转换类型）

多谢了