C :

#include<stdio.h>
int main()
{
	int n,i,j,k=1;
	scanf("%d",&n);
	int a[n][n];
	for(i=0;i<n;i++){
		for(j=0;j<n;j++){
			a[i][j]=k++;
		}
	}
	for(i=0;i<n;i++){
		for(j=n-1;j>=0;j--){
			printf("%3d",a[j][i]);
		}
		printf("\n");
	} 
return 0;
}

C++ :

#include <iostream>
#include <iomanip>
#include <cmath>
#include <cstdio>

using namespace std;

int main(){
    int n,i,j,a[110][110];
    cin>>n;
    for(i=1;i<=n;i++){
    	for(j=1;j<=n;j++){
    		a[i][j]=((i-1)*n)+j;
		}
	}
	for(i=1;i<=n;i++){
		for(j=n;j>=1;j--){
			cout<<setw(3)<<a[j][i];
		}
		
		cout<<endl;
	}
}

Pascal :

var
  i,j,n,s,s2:longint;
  a:array[1..10,1..10] of longint;
begin
  readln(n);
  s:=n*n-n+1;
  for i:=1 to n do
  begin
    a[i,1]:=s;
    inc(s);
  end;
  for i:=1 to n do
  begin
    s2:=a[i,1];
    write(a[i,1]:3);
    for j:=2 to n do
    begin
      dec(s2,n);
      write(s2:3);
    end;
   writeln;
  end;
end.

Java :

import java.util.Scanner;
public class Main {
	public static void main(String[] args) {
		Scanner sc= new Scanner(System.in);
		int b= sc.nextInt();
		int[][] a =new int[b][b];
		
		int s=0;
		
		for(int n=0;n<a.length;n++){
			for(int m=0;m<a[n].length;m++){
				a[n][m]=s+1;
				s++;
			}
		}
		
		for(int m=0;m<b;m++){
			for(int n=b-1;n>=0;n--){
			
				System.out.printf("%3d",a[n][m]);
			}
			System.out.println("");
		}
		
		
	}

}

Python :

def getList(m,n):
    '''
      m 行数
      n 列数
      返回的是m行n列的二维数组，默认值为0
    '''
    ma = [ [0 for i in range(n)] for i in range(m) ]
    return ma
def printList(arr):
    for i in arr:
        for j in i:
            print('%3d' %(j),end='')
        print();
n=int(input())
arr = getList(n,n)
k = 1
for j in range(n-1,-1,-1):
    for i in range(0,n):
        arr[i][j] = k
        k += 1
printList(arr)