請問要如何寫出9*9，81格顯示數字1~81 不重複

Question

請問要如何寫出9*9，81格顯示數字1~81 不重複

Answer 1

Private Sub Form_Activate()        Dim X&, Y&, W&, H&, A(1 To 81) As Boolean, N%                        W = (ScaleWidth - 30) \ 9        H = (ScaleHeight - 30) \ 9        AutoRedraw = True        Cls        Randomize        For X = 0 To 8 * W Step W            For Y = 0 To 8 * H Step H                Line (X, Y)-(X + W, Y + H), , B                Do                  N = Int(Rnd * 81 + 1)                Loop Until A(N) = False                A(N) = True                CurrentX = ((2 * X + W) - TextWidth(CStr(N))) \ 2                CurrentY = ((2 * Y + H) - TextHeight(CStr(N))) \ 2                Print N            Next        Next        AutoRedraw = FalseEnd SubPrivate Sub Form_Click()        Form_ActivateEnd Sub