В новой форме вывести пол человека, возраст, и гороскоп - VB

Узнай цену своей работы

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

написать программу в vba ! дана форма в ней ввести имя фамилию отчество , дату рождения! и кнопку вычислить ! программа в новой форме должна вывести пол человека, возраст, и гороскоп ) пожалуйста помогите )

Решение задачи: «В новой форме вывести пол человека, возраст, и гороскоп»

textual
Листинг программы
Private Sub Command1_Click()
Dim str() As String
Dim pol As String
Dim age
str = Split(Text1.Text) 'делаем массив из ф.и.о.
If Right(str(2), 1) = "ч" Then pol = "мужской" 'если последняя буква отчества - ч, тогда муж.
If Right(str(2), 1) = "а" Then pol = "женский" 'если последняя буква отчества - а, тогда жен.
 
age = Format(Date, "yyyy") - Right(Text2.Text, 4) 'из текущего года вычитаем год вписанный в Text2
 
MsgBox "Пол: " & pol & "Возраст: " & age
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы