Практика

Практика. Заполнение двухмерного массива (матрица) Private Sub Form_Activate() Dim A(1 To 3, 1 To 3) As Byte Dim i, j As Byte Open "c:in78.txt" For Output As #1 For i = 1 To 3 For j = 1 To 3 A(i, j) = Val(InputBox ("введите элементы массива", "ввод данных")) Print #1, A(i, j); Next j Print #1, Next i Close #1 End Sub Дата и время Private Sub Form_Activate() Dim dat1, dat3 As Date Dim dat2 As String Open "c:in91.txt" For Output As #1 Print #1, "вывести текущую дату" Print #1, "вывести текущее время" Print #1, "вывести количество дней, прошедших с начала третьего тысячелетия" Close #1 Open "c:out91.txt" For Output As #1 dat1 = Date Print #1, "текущая дата -"; dat1 dat2 = Time$ Print #1, "текущая время -"; dat2 dat3 = #1/1/2001# Print #1, dat1 - dat3 Close #1 End Sub