Dim MasA(1 To 8, 1 To 8) As Single
Dim MasB(1 To 8, 1 To 8) As Single
Dim C As Single
Dim i, j As Integer
Option Explicit
Private Sub Command1_Click()
Randomize
For i = 1 To 8
For j = 1 To 8
MasA(i, j) = Int((100) * Rnd - 50)
Tab1.Col = j - 1
Tab1.Row = i - 1
Tab1.Text = MasA(i, j)
Next j
Next i
End Sub
Private Sub Command2_Click()
Dim MasB(1 To 8, 1 To 8) As Single
Dim i, j, C As Integer
For i = 1 To 8
C = MasA(i, i)
MasB(i, i) = MasA(9 - i, i)
MasA(9 - i, i) = C
Next i
End
End Sub
Private Sub Command4_Click()
Unload Me
End
End Sub
Private Sub Form_Load()
Tab1.Cols = 8
Tab1.Rows = 8
For i = 0 To 4
Tab1.ColWidth(i) = 600
Next i
Tab2.Cols = 8
Tab2.Rows = 8
For i = 0 To 4
Tab2.ColWidth(i) = 600
Next i
End Sub
Вот условие задачи.
6. Создать матрицу С(8х8) случайных чисел в диапазоне от –50 до +50. Напечатать матрицу. Поменять местами элементы главной и побочной диагоналей.
у меня чего то не получается и не выдает ошибки
Я вас очень помогите решить чтобы у вас все получилось а я потом вставил до конца месяца 9 дней и у меня очень плохо с учебой в универе помогите пожалуйста решить полностью эту задачу!!
Примечание:
а вот ответить или найти ошибку некто не может строят из себя умного!!
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.