Visual Basic. Практика. Ищенко В.А - 35 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

35
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
If InStr(Из.Text, "Английских Фунтов Стерлингов") And
InStr(В .Text, "Доллары ") Then
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
If InStr(Из.Text, "Евро") And InStr(В .Text, "Рубли ") Then
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
If InStr(Из.Text, "Евро") And InStr(В .Text, "Евро") Then
СуммаВ .Caption = CDbl(Сумма.Text)
End If
If InStr(Из.Text, "Евро") And InStr(В .Text, "Английские Фун-
ты Стерлингов") Then
СуммаВ .Caption = CDbl(Сумма.Text) / CDbl(Курс .Text)
End If
If InStr(Из.Text, "Евро") And InStr(В .Text, "Щведские
Кроны ") Then
СуммаВ .Caption = CDbl(Сумма.Text) / CDbl(Курс .Text)
End If
If InStr(Из.Text, "Евро") And InStr(В .Text, "Доллары ") Then
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
If InStr(Из.Text, "Щведских Крон") And InStr(В .Text, "Рубли ")
Then
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
If InStr(Из.Text, "Щведских Крон") And InStr(В .Text, "Евро")
Then
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
If InStr(Из.Text, "Щведских Крон") And InStr(В .Text, "Анг -
лийские Фунты Стерлингов") Then
СуммаВ .Caption = CDbl(Сумма.Text) / CDbl(Курс .Text)
End If
If InStr(Из.Text, "Щведских Крон") And InStr(В .Text, "Щвед
ские Кроны ") Then
СуммаВ .Caption = CDbl(Сумма.Text)
End If
If InStr(Из.Text, "Щведских Крон") And InStr(В .Text, "Долла
ры ") Then
СуммаВ .Caption = CDbl(Сумма.Text) * CDbl(Курс .Text)
End If
End Sub 
                              35
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Англий с ких Ф у нтов С терлингов") And
  InStr(В .Text, "Д оллары ") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Е вро") And InStr(В .Text, "Ру бли") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Е вро") And InStr(В .Text, "Е вро") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text)
  End If
  If InStr(И з.Text, "Е вро") And InStr(В .Text, "Англий с киеФ у н-
  ты С терлингов") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) / CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Е вро") And InStr(В .Text, "Щ ведс кие
  К роны ") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) / CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Е вро") And InStr(В .Text, "Д оллары ") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Щ ведс ких К рон") And InStr(В .Text, "Ру бли")
     Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Щ ведс ких К рон") And InStr(В .Text, "Е вро")
     Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Щ ведс ких К рон") And InStr(В .Text, "Анг-
  лий с киеФ у нты С терлингов") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) / CDbl(К у рс .Text)
  End If
  If InStr(И з.Text, "Щ ведс ких К рон") And InStr(В .Text, "Щ вед
  с киеК роны ") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text)
  End If
  If InStr(И з.Text, "Щ ведс ких К рон") And InStr(В .Text, "Д олла
  ры ") Then
     С у м м аВ .Caption = CDbl(С у м м а.Text) * CDbl(К у рс .Text)
  End If
End Sub

Страницы