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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

34
СуммаВ .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)
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 
                            34
   С у м м аВ .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)
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

Страницы