- •Часть 1.
- •Встроенные функции для работы с файловой системой.
- •Работа с текстовыми файлами.
- •Объект Application. Основные свойства и методы.
- •Объект Workbook. Основные свойства и методы.
- •Объект Worksheet. Основные свойства и методы.
- •Объект Worksheet. Основные события.
- •Объект Range. Общая характеристика.
- •Работа с макросами в Ecxel.
- •Метод Activate(). Метод AutoFill(). Метод Consolidate().
- •Метод Delete(). Метод с префиксом Fill. Метод Find().
- •Метод GoalSeek(). Метод Insert(). Метод Justify().
- •Метод Merge(). Метод Parse(). Метод Replace(). Метод Select() .
- •Метод Copy(). Метод Sort(). Метод SubTotal().
- •Работа с диаграммами (объект Chart).
- •Табулирование функции и построение графика.
- •Вычисление суммы. Рекуррентные формулы.
- •Вычисление чисел Фибоначчи.
- •Решение систем линейных уравнений итерационными методами. Метод простой итерации.
- •Решение систем линейных уравнений итерационными методами. Метод Зейделя.
- •Численное интегрирование. Метод прямоугольников с недостатком.
- •Численное интегрирование. Метод прямоугольников с избытком.
- •Численное интегрирование. Метод трапеций.
- •Поиск минимума функции вида f(X). Метод деления отрезка пополам.
- •Поиск минимума функции вида f(X). Метод «Золотого сечения».
- •1 Билет.
- •2 Билет
1 Билет.
например, считать информацию из файла «C\text1.txt» и вывести ее в окно сообщений можно так:
Dim MC as string
Open “C\text1.txt” for input as #1
Do While MC = ” C\text1.txt” not EOF(#1)
MC = MC + input (1,#1)
Loop
Close #1
MsgBox MC
2 Билет
Файл: «C:\r.txt» записать в файл «C:\r1.txt».
r.txt
8
1.2_-2.3_-5.1_12_0.4_6.7_-11.3_2.2
10_-7_6_5_11_12_-17_3
Sub file1()
Dim a(10) as currency
Dim b(10) as currency
Dim c(10) as currency
Dim s(10) as currency
Dim n, i, j as Integer
Dim p as Double
Dim ss as String
Open “C:\r.txt” for input as #1
input #1, n
for i=1 to n : input #1, a(i) : next i
for i=1 to n : input #1, b(i) : next i
Close #1
Open “C:\r1.txt” for output as #1
s=0 : ss=” ”: p=1 : j=0
for i=1 to n : if a(i)>b(i) then : c(i)=a(i)
else : c(i)=b(i) : end if
ss=ss + str (c(i)) + “ __” : s=s + c(i)
if c(i)>0 then
j=j + 1 : p=p*c(i)
end if : next i
Print #1, ss
s=s/n
ss=”сред.арифм=” +str(s)
Print #1, ss
p=p^(1/j)
ss=”ср. геом=” + str(p)
Print #1, ss
Close #1
End Sub
Результат в файле «r1.txt»
10_-2.3_6_12_11_12_-11.3_3
сред. арифм=5.05
ср. геом. = 8.112809…