Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

Оператор2



End If

Приклад

Private Sub Command1_Click()

a = 6

If a = 7 Then

Print "visual"

Else

Print "basic"

End If

End Sub

Приклад. Упорядкувати числа за спаданням.

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Max = a

If b > Max Then Max = b

If c > Max Then Max = c

Print Max

Min = a

If b < Min Then Min = b

If c < Min Then Min = c

If a < Max And a > Min Then Print a

If b < Max And b > Min Then Print b

If c < Max And c > Min Then Print c

Print Min

End Sub

Блоковий синтаксис

If умова1 Then

Оператор 1

ElseIf умова2 Then





Дата публикования: 2014-12-28; Прочитано: 125 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.005 с)...