Integer
Dim s As Double
Dim c (1 To 50, 1 To 50) As Double
m = 3
n = 3
For i = 1 To m
For j = 1 To n
c (i, j) = 7 * i - j
Next
Next
s = 0
For i = 1 To m
For j = 1 To n
If m = n Then s = s + c (i, i) Else s = s + c (i, j)
Next
Next
Print s
End Sub
В
Private Sub Form_Load ()
В
End Sub
Список літератури
1. Інформатика: Базовий курс./С. В. Симонович та ін СПб.: Питер, 2005
2. Острейковскій В. А. Інформатика: Учеб. для вузів. - М.: Вища. шк., 2000. - 511 с.: Іл. p> 3. Алексєєв Є. В. та ін Обчислювальна техніка та програмування. Практикум з програмування: Практ. посібник/В. Є. Алексєєв, А. С. Ваулин, Г. Б. Петрова; Під ред. А. В. Петрова. - М.: Вища. шк., 1991. - 400 с.: Іл
4. Глушаков С. В., Мельников І. В. Персональний комп'ютер: Навчальний курс/Худож. оформлювач А. С. Юхтман. - Харків: Фоліо; М.: ТОВ В«Видавництво АСТВ», 2001. - 520 с. - (Домашня б-ка). p> 5. Леонтьєв В. Новітня енциклопедія персонального комп'ютера. - М.: ОЛМА-ПРЕСС, 1999. - 640 с. p> 6. Козлов В.В., Можаєва Н.А., Зуєва Н.Г. Інформатика. Алгоритмізація та програмування. Мет. Вказівки та завдання до курсової роботи, 2006. -32с
В