comp2009

2. Практикум по программированию на языке Visual Basic For Application "

Рис. 2.1

5.Помещаем (с помощью мыши) на форму кнопку CommandButton1

спанели Toolbox.

5.1.Меняем название кнопки Caption на «Расчет»; увеличиваем размер кнопки.

5.2.Двойным щелчком по кнопке «Расчет» попадаем в окно редактирования кода программы (в данном случае — подпрограммы-обработ- чика события нажатия кнопки).

5.3.Между текстом

Private Sub CommandButton1_Click()

……….

End Sub

дописываем текст:

Dim y As Double

Dim x As Double Const A = 2.5

Const B = 3

x = InputBox(“Введите x”, “Окно ввода данных”) y = SQR(A * x ^ 2 — B)

Res = MsgBox(“y= “ & y, , “Результат”)

6. Сохраняем программу.

121

"Компьютерный практикум по информатике и программированию

7.Запускаем программу с помощью меню Run (либо клавишей F5, либо соответствующей кнопкой).

8.Если есть ошибки, исправляем (то есть отлаживаем программу).

9.В отобразившемся окне (рис. 2.2) нажимаем кнопку «Расчет».

Рис. 2.2

10. В окне InputBox (рис. 2.3) вводим значение x, например 2, и нажимаем кнопку «ОК».

Рис. 2.3

11. В окне MsgBox (рис. 2.4) отображается результат вычисления y.

Рис. 2.4

12. Завершить выполнение программы можно нажав соответствующую кнопку или в меню Run выбрать пункт Reset.

2.2. Разветвляющийся алгоритм

Задание. Ввести с клавиатуры число, проверить: если оно принадлежит интервалу (–10; 0), вывести его модуль, в противном случае вывести соответствующее сообщение.

122

2.Практикум по программированию на языке Visual Basic For Application "

1.Присваиваем новой форме название «Иванов И.И. Группа 125 Задача 2».

2.Помещаем кнопку «Ввод числа» (CommandButton1).

3.Помещаем надпись «Разветвляющийся алгоритм» (Label1).

4.Записываем подпрограмму ввода чисел и проверки на принадлежность заданному интервалу:

Private Sub CommandButton1_Click()

Dim x As Double

x = InputBox(“Введите x”, “Окно ввода данных”) If x > -10 And x < 0 Then

Res = MsgBox(“x принадлежит интервалу -10,0” , , “Ре-

зультат”)

Res = MsgBox(“модуль x =” & Abs(x), , “Результат”)

Else

Res = MsgBox(“x не принадлежит интервалу -10,0”, ,

“Результат”)

End If

End Sub

5. Запускаем программу (рис. 2.5):

Рис. 2.5

6. Вводим число, удовлетворяющее условию (рис. 2.6).

Рис. 2.6

123

"Компьютерный практикум по информатике и программированию

8.Получаем результаты (рис. 2.7, а, б).

а)

б)

Рис. 2.7

9. Вводим число, не принадлежащее интервалу (рис. 2.8).

Рис. 2.8

Рис. 2.9

2.3. Циклический алгоритм

Задание. Ввести с клавиатуры произвольное число значений и вычислить их квадратные корни. Ввод и вычисления прекратить, как только введено отрицательное число.

1.Присваиваем новой форме название «Иванов И.И. Группа 125 Задача 3».

2.Помещаем кнопку «Ввод числа» (CommandButton1).

124

2.Практикум по программированию на языке Visual Basic For Application "

3.Помещаем надпись «Цикл с предусловием» (Label1).

4.Записываем подпрограмму ввода чисел и вычисления их квадратных корней.

Private Sub CommandButton1_Click()

x= InputBox(“Введите x”, “Окно ввода данных”)

Do While x >= 0 y =Sqr(x)

Res = MsgBox(“y= “ & y,, “Результат”)

x= InputBox(“Введите x”,”Окно ввода данных”)

Loop

MsgBox (“Введено отрицательное число”)

End Sub

5. Запускаем программу (рис. 2.10):

Рис. 2.10

6. Вводим число (рис. 2.11), получаем результат (рис. 2.12):

Рис. 2.11

Рис. 2.12

125

"Компьютерный практикум по информатике и программированию

8.Продолжаем вводить числа (рис. 2.13, 2.14) и так далее до тех пор, пока не будет введено отрицательное число (рис. 2.15, 2.16):

Рис. 2.13

Рис. 2.14

Рис. 2.15

Рис. 2.16

126

2.Практикум по программированию на языке Visual Basic For Application "

2.4.Одномерный массив

Задание. Вычислить сумму элементов одномерного целочисленного массива, заданного случайным образом.

1.Даем новой форме название «Иванов И.И. Группа 125 Задача 4».

2.Помещаем надпись «Одномерный массив» (Label1).

3.Помещаем кнопки «Элементы массива» (CommandButton1) «Сум-

ма элементов» (CommandButton2).

4.Помещаем Label2.

5.Записываем программу вычисления суммы элементов массива:

Const n = 12

Dim V(1 To n) As Integer

Dim S As Integer

Private Sub CommandButton1_Click()

Label2.Caption = “Исходный массив “ Randomize

For i = 1 To n

V(i) = Rnd * 10

Label2.Caption = Label2.Caption + Str(V(i))

Next

End Sub

Private Sub CommandButton2_Click()

S = 0

For i = 1 To n S = S + V(i)

Next

Rez = MsgBox(“Сумма элементов массива=” & S,,”Окно

результата”) End Sub

6. Запускаем программу. Нажимаем кнопку Элементы массива. В окне формы выводятся значения элементов массива V:

Рис. 2.17

127

"Компьютерный практикум по информатике и программированию

7.Нажимаем кнопку «Сумма элементов».

8.В окне MsgBox выводится результат.

2.5. Вложенные циклы. Двумерные массивы

Задание. Задана квадратная матрица 10×10. Подсчитать среднее арифметическое элементов, расположенных на главной диагонали.

1. На новую форму (рис. 2.18) «Иванов И.И. Группа 125 Задача 5» помещаем элементы:

1.1.Label1 «Вложенные циклы. Двумерные массивы»;

1.2.CommandButton1 «Задать матрицу»;

1.3.Label2 «»;

1.4.ListBox1 — для размещения элементов матрицы;

1.5.CommandButton2 «Среднее арифметическое».

Рис. 2.18

2. Записываем код программы:

Const N = 10

Dim M(1 To N, 1 To N) As Integer

Private Sub CommandButton1_Click()

Label2.Caption = “Исходный массив “

Randomize

For i = 1 To N

128

2. Практикум по программированию на языке Visual Basic For Application "

L = “”

For j = 1 To N M(i, j) = Rnd * 9

L = L + Str(M(i, j))

Next

‘Добавить строку матрицы в элемент ListBox1

ListBox1.AddItem (L)

Next

End Sub

Private Sub CommandButton2_Click()

S = 0

For i = 1 To N

S = S + M(i, i)

Next

Sr = S / N

Res = MsgBox(“Среднее значение диагональных элемен-

тов =” & Sr, , “Результат”)

End Sub

3. Запускаем программу на выполнение, результат на рис. 2.19:

Рис. 2.19

2.6. Файлы произвольного доступа

Задание. Задать файл произвольного доступа, каждая запись которого содержит порядковый номер студента и его фамилию. Организовать возможность добавления информации в файл, а также вывода его содержимого на экран.

129

"Компьютерный практикум по информатике и программированию

1.Создаем форму:

Рис. 2.20

2. Записываем код программы:

Private Type CodeRec

Name As String * 25 Code As Integer

End Type

Const Fil As String = “MyFil”

Dim Trec As CodeRec Dim FilNum As Integer

‘Создание файла

Private Sub CommandButton1_Click() FilNum = FreeFile()

Open Fil For Random Access Write As FilNum Len =

Len(Trec)

For i = 1 To 3

Trec.Name = InputBox(“Введите фамилию”) Trec.Code = i

Put FilNum, , Trec

Next

Close FilNum

End Sub

130