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

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

нужна задача на наследование, т. е. создать родителя и наследника. создать тип Book (родитель) и в нём сделать пункты автор и кол-во страниц (имя автора и кол-во страниц вводится через инпутбокс) и сделать насленкика Book1 с пунктами автор, кол-во страниц и жанр книги, это тоже надо вводить в инпутбоксДобавлено через 12 минут вот чтото типо того мне надо, и чтобы всё данные я мог вводить через инпутбокс
Type Book
Name As String
Author As String
Page As Integer
End Type
 
 
 
BookOne As Book
BookOne.Name = "Бегущая по волнам"
BookOne.Author = "А. Грин"
BookOne.Page = 100

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

textual
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


СОХРАНИТЬ ССЫЛКУ