Нужна помощь в решении задачи, Visial Basic Опции

[Firgarn]

Помогите пожалуйста люди кто знает Visial Basic у меня уже 4 раз работу не приняли я не понимаю че им надо может подскажите буду просто ужасно Благодарен.

1.На рабочем листе Excel создать следующую таблицу:

Название Автор Тираж Издательство

2.Написать программу, в которой вызываются подпрограмма-процедура, считывающая эту таблицу с листа Excel, и подпрограмма-функция, вычис-ляющая максимальный тираж среди книг издательства «Просвещение».

[Firgarn]

Код

Option Explicit
Type книги
Naz As String
Avtor As String
Tir As Double
Izda As String
End Type
Sub Крз3()
Dim a(100) As книги
Dim i As Integer, L As Integer
Dim sum As Long
Dim n As Integer
n = Val(InputBox("Введите количество книг"))
For i = 2 To n + 1
With a(i)
.Naz = Cells(i, 1)
.Avtor = Cells(i, 2)
.Tir = Cells(i, 3)
.Izda = Cells(i, 4)
MsgBox (("Название - ") & .Naz & (" Автор - ") & .Avtor & (" Тираж - ") & .Tir & (" Издательство - ") & .Izda)
End With
Next i
End Sub

Я тут сделал чтоб считывала а программа-процедура ли это понятия не имею

Сообщение отредактировано: Firgarn - 9.06.2006 13:45