Книга: C# для профессионалов. Том II

Версия SquareRoot на VB

Версия SquareRoot на VB

Чтобы это приложение работало в Visual Basic, надо добавить обработчик событий для события нажатия кнопки. Для кнопки задается имя cmdShowResults, а текстовые поля имеют имена txtNumber, txtSign и txtResult. С этими именами обработчик событий выглядит следующим образом:

Option Explicit
Private Sub cmdShowResults_Click()
 Dim NumberInput As Single
 NumberInput = CSng(Me.txtNumber.Text)
 If (NumberInput < 0) Then
  Me.txtSign.Text = "Negative"
  Me.txtResult.Text = CStr(Sqr(-NumberInput)) & " i"
 ElseIf (NumberInput = 0) Then
  txtSign.Text = "Zero"
  txtResult.Text = "0"
 Else
  Me.txtSign.Text = "Positive"
  Me.txtResult.Text = CStr(Sqr(NumberInput))
 End If
End Sub

Это единственный фрагмент кода VB, который необходимо написать.

Оглавление книги


Генерация: 4.850. Запросов К БД/Cache: 3 / 0
поделиться
Вверх Вниз