перепечатать на vba

[komra2]

есть такой код на java, ток я чете не понимаю как его переписать на vba?

int A[][] = new int [10][10];
		int i, j, k, C;
		
		System.out.print("1/2: ");
		
		Scanner sc = new Scanner((System.in));
		if (sc.hasNextInt())
			k = sc.nextInt();
		else 
                {
			System.out.println("input-output error");
			sc.close();
			return;
		}
		sc.close();
		if (k==1) 
                {
			C = 27;
                            for (j=9; j>=0; j--)
			    for (i=9-j; i>=7-j; i--) 
			         if (i>=0) 
                                 {
			            A[i][j] = C; C=C-1;
			        }
		}
		else if (k==2) 
                {
			for (j=0; j<10; j++)
                        {
                            int sk=10;
                        for( i=j;i<10;i++)
                        {
                            A[i][j] = sk;
                            sk--;//
                        }
                        }
                }
		else 
                {
			System.out.println("input-output error");
			return;
		}
			
		for (i=0; i<10; i++) 
                {
			for (j=0; j<10; j++)
				System.out.print(A[i][j] + "\t");
			System.out.println();
		}
	}
}

range a1:j10
не знаю как сделать...
на первый и второй вариант..
Снимок2.PNG

[Aleksandr H.]

А зачем? Код рабочий, массивы заполняет.

[komra2]

Сообщение от Aleksandr H.

А зачем? Код рабочий, массивы заполняет.

я это знаю, но как мне получить первую и вторую картинку на vba, этот код у меня на java написан

[Aleksandr H.]

так в чем проблема? Вы синтаксис vba не знаете, или код не совсем Ваш и проблема с пониманием логики алгоритма?

[komra2]

Сообщение от Aleksandr H.

так в чем проблема? Вы синтаксис vba не знаете, или код не совсем Ваш и проблема с пониманием логики алгоритма?

проблема в не знании синтаксиса vba, код от части мой! Я не знаю как он будет выглядить на vba
ток эту часть надо

if (k==1) 
                {
			C = 27;
                            for (j=9; j>=0; j--)
			    for (i=9-j; i>=7-j; i--) 
			         if (i>=0) 
                                 {
			            A[i][j] = C; C=C-1;
			        }
		}

[Aleksandr H.]

мой вариант

Sub g()
    Dim k As Byte
    Dim i, j, c
    On Error GoTo Er
    Range("A1:J10").Clear
    k = CInt(InputBox("1 or 2?", "1 or 2", 1))
    If k = 1 Then
        c = 1
        For j = 1 To 10
            For i = 10 To 1 Step -1
                Cells(i, j) = 0
                If i - j >= 0 And i - j <= 2 Then
                    Cells(i, j) = c
                    c = c + 1
                End If
            Next i
        Next j
    ElseIf k = 2 Then
        For i = 1 To 10
            For j = 1 To 10
                If j > i Then
                    Cells(i, j) = j - i 
                Else
                    Cells(i, j) = 0
                End If
            Next j
        Next i
    Else
        GoTo Er
    End If
    Exit Sub
Er:
    MsgBox ("input-output error")
End Sub

как ваш фрагмент будет, не знаю не хочу разбираться в алгоритме

[Казанский]

Sub Ko()
Cells.Clear
With Range("A1:J10")
  Select Case InputBox("1 or 2?", "1 or 2", 1)
  Case "1"
    .Formula = "=IF(AND(ROW()>=COLUMN(),ROW()<COLUMN()+3),4*COLUMN()-ROW(),0)"
  Case "2"
    .Formula = "=MAX(COLUMN()-ROW(),)"
  Case Else
    MsgBox "input-output error"
  End Select
  .Value = .Value 'необязательно
End With
End Sub