Создать тип "Book" и в нём сделать пункты "автор" и "количество страниц" - VB

  1. нужна задача на наследование, т. е. создать родителя и наследника. создать тип Book (родитель) и в нём сделать пункты автор и кол-во страниц (имя автора и кол-во страниц вводится через инпутбокс) и сделать насленкика Book1 с пунктами автор, кол-во страниц и жанр книги, это тоже надо вводить в инпутбоксДобавлено через 12 минут вот чтото типо того мне надо, и чтобы всё данные я мог вводить через инпутбокс


textual

Код к задаче: «Создать тип "Book" и в нём сделать пункты "автор" и "количество страниц" - VB»

Private Type Book
    Name As String
    Author As String
    Page As Integer
End Type
Private Sub Command1_Click()
    Dim BookOne As Book
    BookOne.Name = InputBox("Введите название")
    BookOne.Author = InputBox("Введите автора")
    BookOne.Page = CInt(InputBox("Введите кол-во страниц"))
End Sub

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

6   голосов, оценка 4.333 из 5



Похожие ответы
  1. Помогите создать поле из кнопок размером 12 на 5 Т.е Кнопки должны идти по порядку по индексу но в виде 12 x 5 первая строка идет до 12 потом на следущей строке идет 13 14 15 и так далее ? НИкак не получается спасибо ((

  1. В заданном одномерном массиве целого типа найти и напечатать те элементы, у которых последовательность цифр от младшего к старшему разряду является возрастающей, или сообщить, что таких нет. Использовать процедуру определения, является ли последовательность цифр от младшего к старшему разряду является возрастающей. Пожалуйста,помогите сделать.

  1. Раньше увлекался рисованием в QBasic, даже углублялся в математику. Но после перехода на VB прекратил это дело, хотя жалею. В QBasic-е мог бы спокойно нарисовать шум, как в телевизоре, когда нет сигнала, а в VB не знаю как это сделать. Подскажите? Знаю, что нужно создавать контрол PuctureBox и как-то в нём рисовать...

  1. Здравствуйте, задали задачу, но не могу сделать так, чтобы выводились только фамилии и номера групп для всех студентов, имеющих оценки 7,8,9. Помогите пожалуйста подправить что не правильно. Заранее благодарю! Задача 2 вариант.

  1. Здравствуйте, подскажите, пожалуйста! Как создать новую папку с помощью Visual basic 6.0 , и названием папки указать переменное значение Label? И выдавало ошибку если папка уже существует

  1. Вопрос задан в заголовке. Меня интересует. Если можно, то как? А если нет, то что можно?

  1. Здравствуйте! Очень прошу помощи. Мечтаю слиться с Visual Basic 6.0 в одно целое, ощущать его сердцем. Не знаю, подскажите пожалуйста: как осуществить план (замысел) по созданию двумерного массива 5х5 из клеток (каждая размером 1000х1000 — квадратики). В основе лежит функция "Shape" из стандартного набора Visual Basic 6.0. Надо, чтобы каждая ячейка-клетка могла становиться активной.Заранее прошу прощения за свою тупость, вкупе с ограниченностью. Напишу правду о моих впечатлениях от поиска аналогов по форуму. Например: Посмотрел тему Нарисовать листок в клетку, скачал три вложения: 1) Сетка.rar; 2) Project1.rar; 3) Н.rar — потрясён (!!) до умопомрачения (до глубины души). Какие ужасные и отвратительные проекты! Сочувствую ТС, сам не знал: как избавиться от "несуразной Сетки". Руки хотелось оторвать автору. Замучился удалять. Пришлось гасить процесс через (!) "Диспетчер задач", картинки ниже.

  1. Допустим на компьютере, где будет запускаться программа, нет RichTx32.Ocx и тогда создаётся конструкция вида: