Дипломная работа: Решение задач с помощью современых компьютерных технологий

d = (a(i, j) - a(k, j)) ^ 2

s(i) = Sqr(d)

If max < s(i) Then

s(i) = max

Range("A8").Value = max

End If

Loop

Close #1

Next k

Next j

Next i

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

End Sub

Листинг программы2

' Программа написана на VBA Благиревым Артемом Михайловичем гр.ПО - 03в

'Донецкий Государственный Институт Искусственного Интеллекта - 2004г

Private Sub CommandButton1_Click()

Dim результат, предложение1, предложение2 As String

'ввод предложения

предложение1 = CStr(TextBox1.Text)

предложение2 = CStr(TextBox2.Text)

'основной код программы

результат = StrComp(предложение1, предложение2, 1)

If результат = 0 Then

TextBox3.Text = "Предложения равны!"

Else: TextBox3.Text = "Предложения не равны!"