Страница: 1 |
Нужно написать процедуру, которая формирует массив размерностью 5*5, где у меня ошибка.(если можно дайти ссылку на пример) Dim A(1 To 5, 1 To 5) As Single Private Sub Form_Load()
Может так? И для чего text1.text? Private A(1 To 5, 1 To 5) As Single Private Sub Command1_Click() Dim i As Integer Dim j As Integer For j = 1 To 5 For i = 1 To 5 Print Format(A(i, j), "##0.0") Next i Next j End Sub Private Sub Form_Load() Dim i As Integer Dim j As Integer For j = 1 To 5 For i = 1 To 5 A(j, i) = i ^ j Next i Next j End Sub Какой-то глюкануты пример. Зачем тебе цикл, если он всё равно ничего не делает? Насчёт Print Format(B(i, j), "##,#") = Text1.Text По-моему всё верно, если тебе нужно значение Истина/Ложь. А, понял, ты ступил B(i, j), - у тебя не объявлен как массив. Вообщето синтаксические и орфографические ошибки нужно самому исправлять. Чем больше практики, тем меньше ошибок. Страница: 1 |
Вопрос: Двумерный массив
Добавлено: 27.09.02 08:22
Автор вопроса: Mystf0rse
Dim B As Single
Private Sub Command1_Click()
Print Format(B(i, j), "##,#") = Text1.Text;
End Sub
For i = 1 To 5
For j = 1 To 5
A(1, 1) = 1: A(1, 2) = 2: A(1, 3) = 3: A(1, 4) = 4: A(1, 5) = 5
A(2, 1) = 1: A(1, 2) = 4: A(1, 3) = 9: A(1, 4) = 16: A(1, 5) = 25
A(3, 1) = 1: A(1, 2) = 8: A(1, 3) = 27: A(1, 4) = 64: A(1, 5) = 125
A(4, 1) = 1: A(1, 2) = 16: A(1, 3) = 81: A(1, 4) = 256: A(1, 5) = 625
A(1, 1) = 1: A(1, 2) = 32: A(1, 3) = 243: A(1, 4) = 1024: A(1, 5) = 3125
Next j
Print
Next i
End Sub
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
Evgeny D
Вопросов: 10
Ответов: 33
Профиль | | #1
Добавлено: 27.09.02 12:39
Номер ответа: 2
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #2
Добавлено: 27.09.02 19:41