Создание матрицы в ListBox

@AleksandraM · Регистрация: 09.05.2013

Здравствуйте. Нужно создать матрицу по следующей формуле, но на косинус и синус выдаёт ошибку. Помогите, пожалуйста, исправить.

Visual Basic

  
k = Text1.Text
  For i = 1 To 10 Step 1
   For j = 1 To 10 Step 1
      List1.AddItem (22 Cos(sin(9i+6j+7k))
   Next j
Next i

~~Shersh~~ · 09.02.2016, 21:45

Сообщение от AleksandraM

Регистрация: 09.05.2013

Вроде не первый день в программировании

Visual Basic

1	List1.AddItem (22* Cos(sin(9i+6j+7*k))

?

@AleksandraM · 09.02.2016, 22:12 **[ТС]**

Сообщение от Shersh

Вроде не первый день в программировании

С VBA только сегодня начала разбираться, до этого Pascal, C++ были

Добавлено через 2 минуты
А не подскажите, как сделать так, чтобы они матрицей печатались, а не в столбик?

~~Shersh~~ · 09.02.2016, 22:18

Не по теме:

А там, значит, 9i - допустимое выражение?

Добавлено через 5 минут
Как-то так -

Visual Basic

k = Text1.Text
  For i = 1 To 10 Step 1
   List1.AddItem
   For j = 1 To 10 Step 1
      List1.list(i-1,j-1)=22 Cos(sin(9i+6j+7k)
   Next j
Next i

@AleksandraM · 10.02.2016, 16:59 **[ТС]**

Сообщение от Shersh

List1.AddItem

На этой строчке выдаёт ошибку.

@AleksandraM 17 / 2 / 1 Регистрация: 09.05.2013 Сообщений: 171
	09.02.2016, 22:12 [ТС]	3
	Сообщение от Shersh Вроде не первый день в программировании С VBA только сегодня начала разбираться, до этого Pascal, C++ были Добавлено через 2 минуты А не подскажите, как сделать так, чтобы они матрицей печатались, а не в столбик? 0

@AleksandraM 17 / 2 / 1 Регистрация: 09.05.2013 Сообщений: 171
	10.02.2016, 16:59 [ТС]	5
	Сообщение от Shersh List1.AddItem На этой строчке выдаёт ошибку. 0