VB使用For循環編程得到如下結果。

Dim j為整數

對於i = 1到6

對於j = 6到1

如果數學。那麽Abs(i - j) = 3

打印(壹)

其他

打印(" ")

如果…就會結束

然後

打印(Chr(13) + Chr(10))

然後