1. Создать новый проект и программу для решения задачи: через сколько лет средства, положенные в банк под 12% годовых, возрастут не менее, чем в 2 раза. Проценты начисляются на остаток на счете и добавляются к вкладу ежегодно? Макет формы показан на рис. 38.
2. Программный код для кнопки пуск:
Dim n As Integer
Dim s As Double
s=1
Do
s=s*1.12
n=n+1
Loop While s<2
MsgBox ("через " & n & " лет")
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 4.25
1. Создать новый проект и программу для решения задачи: автомобиль 3 часа ехал со скоростью 80 км/ч и 2 часа со скоростью 90 км/ч. Вычислить среднюю скорость автомобиля. Результат напечатать методом Print. Макет формы показан на рис. 35.
2. Программный код для кнопки пуск1:
Dim S As Single
V1%=80: T1%=3
V2%=90: T2%=2
S=(V1*T1+V2*T2)/(T1+T2)
Print "средняя скорость="; S
Dim S As Single
V1%=80: T1%=3
V2%=90: T2%=2
S=(V1*T1+V2*T2)/(T1+T2)
Print "средняя скорость="; S
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
|
|
Практическая работа № 4.26
1. Создать новый проект и программу для решения задачи: в компьютер вводится слово. Компьютер должен просто распечатать его. Однако если введенным словом будет "колхозник", то компьютер должен напечатать вместо него слово "фермер". Макет формы показан на рис. 35.
2. Программный код для кнопки пуск1:
Form1.Cls
Dim slovo As String
slovo=InputBox("введите слово”, “ввод слова")
If slovo="колхозник" Then
Print "фермер"
Else
Print slovo
End If
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 4.27
1. Создать новый проект и программу для решения задачи: компьютер спрашивает пользователя, как его зовут, а затем приветствует его в соответствии с именем: Колю – Привет, Васю – Здорово, Джона – Hi, а остальных – Здравствуйте. Для Васи, кроме того, он красит форму в зеленый цвет. Макет формы показан на рис. 35.
2. Программный код для кнопки пуск1:
Form1.Cls
Form1.BackColor=&HC0C0FF
Dim ИМЯ As String
ИМЯ=InputBox("Введите имя", "Ввод имени")
If ИМЯ="Коля" Then
Print "Привет!"
Else
If ИМЯ="Вася" Then
Form1.BackColor=vbGreen: Print "Здорово!"
Else
If ИМЯ="Джон" Then
Print "Hi!"
Else
Print "Здравствуйте!"
End If
End If
End If
3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
|
|