1.3. Текст программы
Private Sub CommandButton1_Click()
Dim x As Single, y As Single
For x = 3 To 4 Step 0.1
y = Cos(x)
MsgBox y
Next
End Sub
1.4. Вычисление суммы
Пусть надо вычислить , где а={2;0,1;-4;5,7;-3;11;0,2;8;-6;21}
Текст программы
| Контрольный просчет
| Private Sub CommandButton1_Click()
Dim a(10) As Single, s As Single
Dim i As Integer
s = 0
For i = 1 To 10
a(i) = Cells(i, 1)
s = s + a(i)
Next
MsgBox s
End Sub
| Значения массива а
|
| 0.1
| -4
| 5.7
| -3
|
| 0.2
|
| -6
|
| Результат
|
| | |
Заключение
Разного рода вычисления используются в инженерных расчетах достаточно широко, поэтому грамотный специалист должен уметь их выполнять.
Оглавление
Введение …………………………………………………………….. 2
1. Циклические программы………………………………………. 2
1.1. Постановка задачи ………………………………………..…... 2
1.2. Схема программы…………………………………………..…. 2
1.3. Текст программы…………………………………………… …3
1.4. Вычисление суммы…………………………………………..... 3
Заключение…………………………………………………………... 3