Выод значений в таблицу - VB

Формулировка задачи:

Компания выпускает несколько видов изделий различной стоимости. Известны названия изделий, объемы заказов по каждому виду изделия и стоимость каждого изделия.
	Изделия		Стоимость одного изделия		Объем заказа (шт.)
	Бумага		20000		10
	Тетрадь		4		10000
	.....		.....		.....
	Вывести таблицу следующего вида, подсчитав стоимость заказа: 
	Изделия		Стоимость всего заказа
	…		……….
вот мой код не то выдает посмотрите что-то не понятно на корректность программы по условию задачиДобавлено через 42 секунды
Sub Задание2()
Dim i, N As Integer
Dim T() As String
Dim P(), V(), U() As Single
N = InputBox("Введите количество изделий")
ReDim T(N) As String
For i = 1 To N
T(i) = InputBox("Введите название изделия")
P(i) = InputBox("Введите стоимость одного изделия")
U(i) = InputBox("Введите объем заказа")
Next i
For i = 1 To N
V(i) = P(i) * U(i)
Next i
Debug.Print "_________________________________________"
Debug.Print "|Изделия"; Tab(30); "|Стоимость всего заказа"; Tab(50); "|"
Debug.Print "_________________________________________"
For i = 1 To N
Debug.Print "|", T(i); Tab(30); "|"; "V(i)"; Tab(50); "|"
Next i
End Sub

Код к задаче: «Выод значений в таблицу - VB»

textual
  Dim i, N As Integer
  Dim T() As String
  Dim P(), V(), U() As Single
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 4.571 из 5


СДЕЛАЙТЕ РЕПОСТ