DIM A (10, 10), B (100) As longfor i = 1 to 10 for j = 1 to 10 a (i, j) = "0" next jnext ifor k = 1 to 20 '2/11/4 × 10: A1 = INT (RND * 10) 1 B1 = INT (RND * 10) 1 IF A (A1, B1) = "0" THEN A (A1, B1) = "*" n = n 1 else goto 10 end ifnext K'éèöãà × öéïμäêý × öfor n = 2 to 9 'öð4Äåð¶ for t = 2 to 9 if A (n, t) = "*" THEN for N1 = n - 1 to n 1 for t1 = t - 1 TO T 1 IF A (N1, T1) <> "*" THEN A (N1, T1) = LTRIM $ (STR $ (VAL (A (N1, T1)) 1)) End If Next T1 Next N1 END IF NEXT TNEXT NFOR I = 2 to 9 if A (1, i) = "*" Then 'μúò »ðåðð for J = 1 to 2 fork = i - 1 to i 1 if A (J, K <> "*" THEN A (J, K) = LTRIM $ (STR $ (VAL (A (J, K)) 1)) End If Next K Next J End If IF A (10, I) = " * "Then 'μúê® ðððð f for j = 9 to 10 For K = I - 1 To i 1 IF A (J, K) <> "*" THEN A (J, K) = LTRIM $ (STR $ (VAL (A (J, K)) 1)) If Next K Next J end ifXEXT IFOR i = 2 to 9 if A (i, 1) = "*" Then 'μúò »ð £ ¬μúiáðåð f for j = i - 1 to i 1 fork = 1 to 2 IF A (J, K) <> "*" TEN A (J, K) = LTRIM $ (STR $ (VAL (A (J, K))
1)) END IF NEXT K NEXT J End if IF A (i, 10) = "*" £ μ μ μiið ¬ ¬ =®áðåð f for j = i - 1 to i 1 fork = 9 to 10 if A (J, K) <> "*" THEN A (J, K) = LTRIM $ (STR $ (VAL (A (J, K)) 1)) End if Next K Next J end ifxt i'ëä ¸ö½½ðð Ïiif a (1, 1) = "*" μ μ μú1ðð £ ¬μú1áðà × ×ðð for i = 1 to 2 for j = 1 to 2 if A (i, j) <> "*" THEN A (i , J) = LTRIM $ (STR $ (VAL (A (i, j)) 1))) End if Next J Next IEND IEND IEND IEND A (1, 10) = "*" Then 'μú1ðð £ ¬μú10áðà × ×ðð¶ï1 For i = 1 to 2 for j = 9 to 10 if A (i, j) <> "*" THEN A (i, j) = LTRIM $ (STR $ (VAL (A (i, j)) 1) ) End if next j next Iend Ieiff A (10, 1) = "*" Then 'μú10ðð £ ¬μú1áðà × ×ðð ï for i = 9 to 10 for J = 1 to 2 if A (i, j) <> " * "THEN A (i, j) = LTRIM $ (STR $ (VAL (A (i, j)) 1)) End if Next J Next Ind Ieiff A (10, 10) =" * " Then 'μú10ðð £ £μú10áðà × × ×ð¶ for i = 9 to 10 for j = 9 to 10 if A (i, j) <> "*" THEN A (i, j) = LTRIM $ (Str $ (VAL) A (i, j)) 1))) End if Next J Next IEND IEND IEND IEND I = 1 to 100 b (i) = a ((i - 1) / 10 1, (i - 1) MOD 10 1) NEXT I Brea is: 10 * 10 type
