すべてのカテゴリ

Option Explicit Option Base 0 '☆素数が描く不思議な模様 Public Sub ウラムの螺旋模様描画マクロ()     Const BOXXLEFT = 90                  '起点位置　X     Const BOXXTOPP = 80                 '               Y     Const BOXXWIDT = 30                 'ボックスの幅     Const BOXXHEIG = 30                 'ボックスの高さ     Const BOXXSPAC = 2                  '隙間間隔     Const BOXXCONT = 9                  '縦横列数     Const NUMFNTSZ = 9                  '番号フォントサイズ     Const NUMFNTNA = "ＭＳ　ゴシック"             '名前     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, Kp As Integer     Dim intXp As Integer, intYp As Integer     Dim intDw As Integer     Dim intMat(BOXXCONT - 1, BOXXC