Page 68 - 4450
P. 68

Оператор „+” працює як з текстовими рядками, так  і з
                            числами.     Оскільки    за   замовчуванням      введені    дані
                            повертаються  у  вигляді  тексту,  Visual  Basic  інтерпретує
                            значення  First  і  Second  як  текст  при  застосуванні  операції
                            додавання.     Visual    Basic   здійснить     об'єднання,    чи
                            конкатенацію,  замість  того,  щоб  арифметично  скласти
                            значення.  (Наприклад,  «100»  +  «17»  буде  дорівнювати
                            «10017».)
                                  Якщо, продивитися зміст вікна Code і розглянути чотири
                            формули,  що  використовують  основні  математичні  операції.
                            У  першій  формулі  процедури  використовується  операція
                            додавання (+) умовній структурі  If...Then:

                                  If Optionl. Value = True Then
                                  Labell. Caption = First + Second End If

                                  Якщо  властивість  Value  (Значення)  першої  кнопки
                            вибору  встановлена  в  True  (Істина),  то  змінні  додаються
                            операцією +, а результат присвоюється  полю Labell.  В трьох
                            інших формулах використовується той  же принцип: у кожній
                            з них застосовується структура If...Then і властивість Caption
                            (Напіс) об'єкта Labell (Підписи).
                                    Ідентифікація користувача за допомогою структури
                                                        If...Then
                                                    Створити  програму.
                                  Private Sub Command1_Click()
                                  UserName = InputBox("Введіть Ваше ім'я.")
                                   If UserName = "Лаура" Then
                                  MsgBox ("Ласкаво просимо, Лаура! Ви готові до
                            включення  ПК?")
                                  Form1.Picture = LoadPicture("c:\1.bmp")
                                   ElseIf UserName = "Макс" Then
                                  MsgBox ("Ласкаво просимо, Макс! Ви готові до показу
                            картотеки?")
                                  Form1.Picture = LoadPicture("c:\2.bmp")
                                  Else
                                  MsgBox ("Вибачте! Я Вас не знаю:")
                                  End
                                  End If
                                  End Sub


                                                           66
   63   64   65   66   67   68   69   70   71   72   73