программа на Visual Basic 6

@Lawliet · Регистрация: 13.01.2011

Студворк — интернет-сервис помощи студентам

сделал программу, все работает
Dim A() As Integer
Dim n As Integer

Private Sub Command1_Click()

n = Val(Text1.Text)
ReDim A(n, n) As Integer
k = 0
s1 = Int(n / 2)
Form1.Refresh
s = 0
For j = 1 To s1
If j Mod 2 <> 0 Then
For i = j To n + 1 - j
k = k + 1
A(i, n + 1 - j) = k
s = s + k
Next i
Else
For i = n + 1 - j To j Step -1
k = k + 1
A(i, n + 1 - j) = k
s = s + k
Next i
End If
Next j

For j = n - s1 To 1 Step -1
If j Mod 2 <> 0 Then
For i = j To n + 1 - j
k = k + 1
A(i, j) = k
s = s + k
Next i
Else
For i = n + 1 - j To j Step -1
k = k + 1
A(i, j) = k
s = s + k
Next i
End If
Next j

For i = 1 To n
For j = 1 To n
CurrentY = 900 + i * 500
CurrentX = 900 + j * 500
Print A(i, j)
Next j
Next i
Label2.Caption = "Сумма равна" + " " + Str(s)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Dim L1 As String
Number = FreeFile
Open "C:\41.txt" For Output As Number
For i = 1 To n
L1 = ""
For j = 1 To n
L1 = L1 + " " + Str(A(i, j))
Next j
L1 = L1 + Chr(13)
Print #Number, L1
Next i
Close #Number
End Sub

нужно описать что делается в каждой строке, не могу сдать экзамен. Что делается в каждой переменной. В кратце...помогите пж = )

@Alex77755 · 31.01.2011, 16:33

сделал программу

Не по теме:

Терзают смутные сомнения..
Хотя... Там же не написано, что сам

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Lawliet 0 / 0 / 0 Регистрация: 13.01.2011 Сообщений: 5

	программа на Visual Basic 6 31.01.2011, 12:48. Показов 1214. Ответов 1 Метки нет (Все метки) сделал программу, все работает Dim A() As Integer Dim n As Integer Private Sub Command1_Click() n = Val(Text1.Text) ReDim A(n, n) As Integer k = 0 s1 = Int(n / 2) Form1.Refresh s = 0 For j = 1 To s1 If j Mod 2 <> 0 Then For i = j To n + 1 - j k = k + 1 A(i, n + 1 - j) = k s = s + k Next i Else For i = n + 1 - j To j Step -1 k = k + 1 A(i, n + 1 - j) = k s = s + k Next i End If Next j For j = n - s1 To 1 Step -1 If j Mod 2 <> 0 Then For i = j To n + 1 - j k = k + 1 A(i, j) = k s = s + k Next i Else For i = n + 1 - j To j Step -1 k = k + 1 A(i, j) = k s = s + k Next i End If Next j For i = 1 To n For j = 1 To n CurrentY = 900 + i * 500 CurrentX = 900 + j * 500 Print A(i, j) Next j Next i Label2.Caption = "Сумма равна" + " " + Str(s) End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Dim L1 As String Number = FreeFile Open "C:\41.txt" For Output As Number For i = 1 To n L1 = "" For j = 1 To n L1 = L1 + " " + Str(A(i, j)) Next j L1 = L1 + Chr(13) Print #Number, L1 Next i Close #Number End Sub нужно описать что делается в каждой строке, не могу сдать экзамен. Что делается в каждой переменной. В кратце...помогите пж = ) 0