Форум вопросов и ответов

Форум вопросов и ответов (https://www.otvetnemail.ru/)
-   Новый архив 3 (https://www.otvetnemail.ru/novyj-arhiv-3-813/)
-   -   Помогите с задачей! (Visual Basic 6.0) (https://www.otvetnemail.ru/novyj-arhiv-3-813/pomogite-s-zadachej-visual-basic-6-0-a-183439/)

Guest 06.09.2011 11:20

Помогите с задачей! (Visual Basic 6.0)
 
Вот такая задачка:Написать программу, каторая запрашивала бы целое число и выводило его на экран, если оно не равно 13-и. Если заданное число равно 13-ти вместо него печатается число 77.Вот мы как сделали... но что то не канает:мы короче создали два окна с текстом Text1 и Text2 и кнопкуи в коде кнопки вот что:Private Sub Command1_Click()S = Val(Text1.Text)If S > 13 And S < 13 ThenText2.Text = SElseText2.Text = 77End IfEnd SubВот и всё... кто знает как решить задачу? Ваще срочняк надо, кто решить тому "+"


Часовой пояс GMT, время: 01:55.


© www.otvetnemail.ru - Форум вопросов и ответов.