[已解决]关于图形打印

惘然

在网上看到了一段代码是有关在立即窗口打印图形的不懂求详解,谢谢.
Sub xyz()
   Dim i%
   For i = 1 To 21 Step 2
      If i = 1 Or i = 21 Then
         Debug.Print Tab(11); "*"
      Else
        Debug.Print Space(Abs(11 - i)); "*"; Tab(11); "*"
      End If
Next
End Sub

最佳答案

月排行榜 / 总排行榜

ghostjiao

2014-7-1 21:52

你这个是今年VBA初级班的作业，为什么这么循环是因为要求的图形上下之间有空行，找找原来的图形就知道了

跳转到最佳答案楼层

zjdh

不就是打印 "*" 吗
一行一行的打印 ，Space(Abs(11 - i)) 为空格
Tab(11) 也相当于11个空格
所以 Space(Abs(11 - i)) 和 Tab(Abs(11 - i)) 是一回事
最后由“*”组成图形

惘然

zjdh 发表于 2014-7-1 16:55
不就是打印 "*" 吗
一行一行的打印 ，Space(Abs(11 - i)) 为空格
Tab(11) 也相当于11个空格

为什么循环变量i会是1 to 21,且步长值为2?

ghostjiao

你这个是今年VBA初级班的作业，为什么这么循环是因为要求的图形上下之间有空行，找找原来的图形就知道了

zjdh

惘然 发表于 2014-7-1 21:01
为什么循环变量i会是1 to 21,且步长值为2?

你把步长改为 1 或 3 看看图形就明白啦！