Введение в информатику. Хамухин А.А. - 192 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

191
Расчетные формулы
.325,1017481
,32
5
9
кПаtorrатм
TT
CF
Фрагмент расчетной части программы (на 10 точек)
Dim X(10), Y(2, 10) As Variant ' объявление массивов уровня модуля
Private Sub CommandButton1_Click()
**********сюда вставить фрагмент чтения числа N с диска (выбрать из
Примера программы чтения/записи, приведенного ниже)
' цикл считывания N ячеек первого столбца в одномерный массив X,
' второго и третьего столбцов – в двухмерный массив Y
For i = 1 To N
X(i) = Worksheets(1).Cells(i + 2, 1).Value
Y(1, i) = Worksheets(1).Cells(i + 2, 2).Value
Y(2, i) = Worksheets(1).Cells(i + 2, 3).Value
Next i
'пересчет град. Цельсия в град.Фаренгейта Y(1,i) и мм рт.ст. в КПа Y(2,i)
For i = 1 To N
Y(1, i) = Y(1, i) * 9 / 5 + 32
Y(2, i) = Y(2, i) / 748 * 101.325
Next i
' цикл записи результатов из массива 4 и 5 столбцы первого листа Excel
For i = 1 To N
Worksheets(1).Cells(i + 2, 4).Value = Y(1, i)
Worksheets(1).Cells(i + 2, 5).Value = Y(2, i)
Next i
**********сюда вставить фрагмент записи массива Y на диск (выбрать из
Примера программы чтения/записи, приведенного ниже)
End Sub
Private Sub CommandButton2_Click()
' цикл очистки 4 и 5 столбцов первого листа Excel
‘***************сюда вставить фрагмент, подобный очистке в
предыдущих лабораторных работах
End Sub
Пример программы чтения/записи на диск (на 10 точек)
Из этого примера требуется выделить фрагмент чтения с диска и фрагмент
записи на диск и вставить их в свою лабораторную работу по-отдельности.
Dim Y(2, 10) As Integer
Dim n As Integer
Sub Disk()
Open "c:\2050.txt" For Input As #1

Страницы