IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным. В описании темы указываем язык!!!

 
Closed Topic Открыть новую тему 
> Нужна помощь в решении задачи, Visial Basic
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  -1  +


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

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

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

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





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  -1  +


Код
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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  -1  +


Я с процедурами и функциями не лажу может дадите ссылочку на учебничек

Сообщение отредактировано: Firgarn -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Ты что, флеймить сюда пришел? angry.gif

Задал вопрос - жди ответа... Если кто-нибудь сможет/захочет тебе ответить... А вот такими постами ВСЁ, чего ты добъешься - что тема будет закрыта.
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.08.2017 13:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"