30.10.2022, 23:47 | #1 (permalink) |
Новичок
Регистрация: 30.10.2022
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проблема с написанием кода для массивов на VBA Word
Private Sub CommandButton1_Click() Dim N As Integer Dim A(N) As Integer Dim Sred As Double N = Val(TextBox1) For i = 1 To N Sred = Sred + A(i) Next i Sred = Sred / N rzmin = Abs(A(1) - Sred): Num = 1 For i = 2 To N razn = Abs(A(i) - Sred) If razn < rzmin Then rzmin = razn: Num = i Next i TextBox2 = Str(Sred) TextBox2 = Str(razn) End Sub |
30.10.2022, 23:47 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Представлю вашему вниманию схожие с вашей темы Microsoft Office Word 2003 portable, Word в этом пакете виснет когда открываю файл Проблема с отображением кода подтверждения на сайтах |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|