Dim N, X, Y1, Y2, Y3 As Integer

Dim A As Single

N=InputBox("Укажите, пожалуйста, количество чисел, которое вы хотите ввести", "Ввод количества чисел")

For X=1 To N Step 1

A=InputBox("Введите, пожалуйста, число", "ввод чисел")

If A>0 Then

Y1=Y1+1

If A>10 Then Y2=Y2+1

Else

Y3=Y3+1

End If

Next X

Print "Количество положительных чисел ="; Y1

Print "Количество отрицательных чисел ="; Y3

Print "Количество чисел, превышающих 10 ="; Y2

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 4.20

1. Создать новый проект и программу для решения задачи: в компьютер вводится N чисел. Вычислить и напечатать их сумму. Макет формы показан на рис. 35.

2. Программный код для кнопки пуск 1:

Form1.Cls

Dim N, X As Integer

Dim A, B As Single

N=InputBox("Укажите, пожалуйста, количество чисел, которое вы хотите ввести", "Ввод количества чисел")

For X=1 To N Step 1

A=InputBox("Введите, пожалуйста, число", "ввод чисел")

B=B+A

Next X

Print "Сумма чисел ="; B

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 4.21

1. Создать новый проект и программу для решения задачи: найти максимальное из 10 вводимых в компьютер чисел. Макет формы показан на рис. 36.

2. Программный код для кнопки старт:

Dim X As Integer, A, Y As Single

A=InputBox("Введите, пожалуйста, число", "ввод числа")

Y=A

For X=1 To 9

A=InputBox("Введите, пожалуйста, число", "ввод числа")

If A>Y Then Y=A

Next X

Text1.Text=Y

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 4.22

1. Создать новый проект и программу для решения задачи: найти из N чи сел минимальное. Каким по порядку было введено минимальное число? Макет формы показан на рис. 37.

2. Программный код для кнопки пуск:

Dim X, N As Integer

Dim A, Y, B As Single

N=InputBox("Укажите, пожалуйста, количество чисел, которое вы хотите ввести", "Ввод количества чисел")

A=InputBox("Введите, пожалуйста, число", "ввод числа")

Y=A: B=1

For X=1 To N-1

A=InputBox("Введите, пожалуйста, число", "ввод числа")

If A<Y Then

Y=A: B=X+1

End If

Next X

Text1.Text=Y

Label4.Caption=B

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 4.23

1. Создать новый проект и программу для решения задачи: в каком случае сумма на вкладе в банке будет больше: при 14% годовых через 10 лет или при 10% годовых через 14 лет. Проценты начисляются на остаток на счете и добавляются к вкладу ежегодно. Макет формы показан на рис. 38.

2. Программный код для кнопки пуск:

Dim i As Integer

Dim s1, s2 As Double

s1=1

s2=2

For i=1 To 10

s1=s1*1.14

Next

For i=1 To 14

s2=s2*1.1

Next

If s1>s2 Then

MsgBox "1 путь лучше"

Else

MsgBox "2 путь лучше"

End If

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

 

Практическая работа № 4.24

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. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

Практическая работа № 4.28

1. Создать новый проект и программу для решения задачи: компьютер спрашивает пользователя, сколько ему лет? Узнав возраст человека, даль нейшую беседу он ведет по двум вариантам. Если возраст больше 17, то компьютер должен задать вопрос: «В каком институте ты учишься?» и, получив ответ, заметить: «Хороший институт». Если же возраст меньше или равен 17, то соответственно – «В какой школе ты учишься?» и «Неплохая школа». После этого, каков бы ни был вариант, компьютер должен попрощаться: «До следующей встречи!» Макет формы показан на рис. 39.

2. Программный код для кнопки пуск:

Dim ВОЗРАСТ As Single