Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.30
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.30

ГЛАВА 6 ▼ Разветвляющиеся программы

сумму, обнаруженную в другом. С помощью окна Properties обязательно уберите надпись TextBox и введите 0 (ноль). Дело в том, что пустую строку, программа считать не будет Затем составьте код для процедуры событий Button_Click:

Dim a As Integer

Dim b As Integer

Dim с As Integer

a = CInt (TextBoxl.Text)

b = CInt (TextBox2.Text)

с = CInt (TextBox3.Text)

If a <= a + b Then

If a = b + с Then Buttonl.Text = "достаточно" End If

If a < b + с Then Buttonl.Text = "более, чем достаточно" End If

Else

Buttonl.Text = "не достаточно"

End If

В первых трех строках присваиваем имена переменным типа Integer. Если вы желаете считать не только рубли, но и копейки, вместо Integer используйте Double. Следующие три строки определяют числовые значения переменных (см. главу 4). Далее следует условие: требуемая сумма должна быть меньше или равна тому, что вы нашли. Если это условие соблюдается, проверяются вложенные операторы (их здесь два), после чего выполняются действия того, который этому условию соответствует. Если такого оператора нет, обязательно выполнится инструкция, следующая за строкой Else. На кнопке Button 1 отразится результат подсчетов.

Оператор Select Case

Операторы, о которых говорилось выше, зачастую бывают очень громоздкими. Данный оператор помогает устранить этот недостаток.

В примере, приведенном ниже, составляется англо-русский словарь. По ходу изучения Visual Basic .NET часто встречаются непонятные слова. Попробуем хотя бы отчасти устранить

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Оператор Select Case

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

пробел в своих познаниях, а заодно рассмотрим работу оператора Select Case. Поместим на форме два текстовых поля TextBox, кнопку Button и составим для Button следующий код:

Dim a As

String

Dim b As

String

a = TextBoxl.Text

b = TextBox2.Text

a = LCase

(a)

Select Case a

Case

"pen"

 

b = "ручка"

Case

"table"

 

b = "стол"

Case

"application"

 

b = "прикладная программа"

Case

"debug"

 

b = "отлаживать"

Case

"data"

 

b = "данные, информация"

Case Else

 
 

b = "что-то не найду такого словечка"

End Select TextBoxl.Text = a TextBox2.Text = b


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta