В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Данил3472
Данил3472
13.02.2022 08:23 •  Информатика

Двумерный массив. , , номера 1, 10, 11. любой, какой сможете ​

Показать ответ
Ответ:
maksimpolyakovox7711
maksimpolyakovox7711
10.06.2020 06:34

Объяснение:

1.

Sub Button1_click()

Dim matrix(1 To 2, 1 To 3) As Integer

For i = 1 To 3

 matrix(1, i) = 1 ^ 2 + i ^ 2

 matrix(2, i) = -matrix(1, i)

Next i

prompt = ""

For i = 1 To 2

 For j = 1 To 3

  If matrix(i, j) > 0 Then

  prompt = prompt & "       " & matrix(i, j)

  Else

  prompt = prompt & "      " & matrix(i, j)

  End If

  Next j

 prompt = prompt & Chr(13)

Next i

MsgBox prompt

End Sub

10.

Sub Button1_click()

Dim matrix(1 To 2, 1 To 3) As Integer

upperbound = 25

lowerbound = -25

For i = 1 To 2

   For j = 1 To 3

       Randomize

       matrix(i, j) = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

   Next j

Next i

prompt = ""

For i = 1 To 2

 For j = 1 To 3

 If Abs(matrix(i, j)) > 9 And Abs(matrix(i, j)) < 99 Then

 prompt = prompt & "A(" & i & "," & j & ")=" & matrix(i, j) & Chr(13)

 End If

 Next j

Next i

prompt = prompt & Chr(13)

For i = 1 To 2

 For j = 1 To 3

  If matrix(i, j) > 0 Then

  prompt = prompt & "       " & matrix(i, j)

  Else

  prompt = prompt & "      " & matrix(i, j)

  End If

  Next j

 prompt = prompt & Chr(13)

Next i

MsgBox prompt

End Sub

11.

Sub Button1_click()

Dim matrix(1 To 9, 1 To 9) As Integer

For i = 1 To 9

   For j = 1 To 9

       If i = j Or i = 9 + 1 - j Then

           matrix(i, j) = 1

       Else

           matrix(i, j) = 0

       End If

   Next j

Next i

prompt = ""

For i = 1 To 9

 For j = 1 To 9

     prompt = prompt & "   " & matrix(i, j)

  Next j

 prompt = prompt & Chr(13)

Next i

MsgBox prompt

End Sub

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота