ВУЗ:
Составители:
Рубрика:
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 для решения этой задачи.
Страницы
- « первая
- ‹ предыдущая
- …
- 71
- 72
- 73
- 74
- 75
- …
- следующая ›
- последняя »