Dim N, X As Integer, A, V As Single

Form1.Cls

N=InputBox("Введите число кубиков", "количество кубиков")

For X=1 To N Step 1

A=InputBox("Введите длину стороны кубика", "ввод длины")

V=A^3

Print "объем кубика"; X; "="; V

Next X

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

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

1. Создать новый проект и программу: в квартире 4 комнаты. Известны длина и ширина каждой комнаты. Вычислить площадь пола всей квартиры. Макет формы показан на рис. 27.

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

Form1.Cls

Dim S, A, B, C, D As Long

Dim X1, X2, X3, X4 As Single

Dim Y1, Y2, Y3, Y4 As Single

X1=InputBox("Введите длину 1 комнаты")

Y1=InputBox("Введите ширину 1 комнаты")

X2=InputBox("Введите длину 2 комнаты")

Y2=InputBox("Введите ширину 2 комнаты")

X3=InputBox("Введите длину 3 комнаты")

Y3=InputBox("Введите ширину 3 комнаты")

X4=InputBox("Введите длину 4 комнаты")

Y4=InputBox("Введите ширину 4 комнаты")

A=X1*Y1: B=X2*Y2: C=X3*Y3: D=X4*Y4

S=A+B+C+D

Text1.Text=S

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

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

1. Создать новый проект и программу: в классе 10 учеников. Вычислить средний балл учеников класса по физике. Макет формы показан на рис. 28.

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

Dim X, A As Integer, B As Single

For X=1 To 10 Step 1

A=InputBox("Введите балл ученика", "ввод баллов")

B=B+A

Next X

B=B/10

Text1.Text=B

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

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

1. Создать новый проект и программу, которая позволить создать список чисел, а затем выполнить со списком одно из 2-х действий: поиск минимального числа в списке, либо подсчет количества отрицательных чисел в списке. Макет формы показан на рис. 29.

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

Dim chismin As Single

Dim i, n As Integer

If vibor(0).Value Then

chismin=chisarr(1)

For i=2 To chiskol

If chisarr(i)<chismin Then chismin=chisarr(i)

Next i

result.Caption=chismin

ElseIf vibor(1).Value Then

For i=1 To chiskol

If chisarr(i)<0 Then n=n+1

Next i

result.Caption=n

End If

3. Программный код для кнопки добавить, а также описание глобальных переменных записать аналогично работе № 3.1, пп. 4 и 5. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.

 

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

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

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

Dim NazKn1(1 To 3) As String, NazKn2(1 To 5) As String

NazKn1(1)="Программирование на VB"

NazKn1(2)="Информатика"

NazKn1(3)="Основы программирования"

Dim x, y As Integer

For x=1 To 3

List1.AddItem NazKn1(x)

Next x

For y=1 To 5

NazKn2(y)=InputBox("Введите, пожалуйста, название книги", "Ввод названий прочитанных книг")

List2.AddItem NazKn2(y)

Next y

3. Программные коды для списков:

Private Sub List1_Click()

Label1.Caption=List1.Text

End Sub

Private Sub List2_Click()

Label2.Caption=List2.Text

End Sub

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

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

1. Создать новый проект и программу для вычисления длины окружности и площади круга по введенному радиусу. Результат напечатать оператором Print. Макет формы показан на рис. 31.

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

pi=3.14159