Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Ада и другие языки _ Нужна помощь в решении задачи
Автор: Firgarn 9.06.2006 17:32
Помогите пожалуйста люди кто знает Visial Basic у меня уже 4 раз работу не приняли я не понимаю че им надо может подскажите буду просто ужасно Благодарен.
1.На рабочем листе Excel создать следующую таблицу:
Название Автор Тираж Издательство
2.Написать программу, в которой вызываются подпрограмма-процедура, считывающая эту таблицу с листа Excel, и подпрограмма-функция, вычис-ляющая максимальный тираж среди книг издательства «Просвещение».
Автор: Firgarn 9.06.2006 17:43
Код
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
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 19:43
Я с процедурами и функциями не лажу может дадите ссылочку на учебничек
Автор: volvo 9.06.2006 19:48
Ты что, флеймить сюда пришел? 
Задал вопрос - жди ответа... Если кто-нибудь сможет/захочет тебе ответить... А вот такими постами ВСЁ, чего ты добъешься - что тема будет закрыта.