Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 73 стр.

UptoLike

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

73
End If
If IsNumeric(Курс.Text) = False Then
MsgBox "Введите правильно курс"
Курс.SetFocus
Exit Sub
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
End Sub
7. Проверьте корректность работы приложения, при необходимости ис-
правьте ошибки.
8. Сохранить форму и проект соответственно под именами ПереводВа-
люты.frm и переводВалюты.Vbp.
9. Результат работы приложения представлен в форме, приведенной ниже.
Задание 7. Обработка одномерного массива
Дан одномерный массив A(M). Составить программу проверки на
наличие хотя бы одного повторяющегося элемента. После проверки выдать
в форме соответствующее сообщение. Для ввода элементов исходного
массива и вывода соответствующего сообщения в форме использовать
форму, приведенную на рис.1.
Ниже приведена программа на языке Visual Basic для решения этой
задачи.
                                 73
        End If
        If IsNumeric(Курс.Text) = False Then
           MsgBox "Введите правильно курс"
           Курс.SetFocus
        Exit Sub
        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
     End Sub
7. Проверьте корректность работы приложения, при необходимости ис-
   правьте ошибки.
8. Сохранить форму и проект соответственно под именами ПереводВа-
   люты.frm и переводВалюты.Vbp.
9. Результат работы приложения представлен в форме, приведенной ниже.




     Задание 7. Обработка одномерного массива
     Дан одномерный массив A(M). Составить программу проверки на
наличие хотя бы одного повторяющегося элемента. После проверки выдать
в форме соответствующее сообщение. Для ввода элементов исходного
массива и вывода соответствующего сообщения в форме использовать
форму, приведенную на рис.1.
     Ниже приведена программа на языке Visual Basic для решения этой
задачи.