Форумы-->Форум для внеигровых тем-->
| Автор | Программирование на Visual Basic. |
|---|
Хочу получить ответы на простые вопросы и вспомнить немного .
Плачу 1к за 1 вопрос (В случае если у меня всё сойдётся )
Вопросы действительно простые.
Кто готов ответить ? | | давай | Пишу первый вопрос :
Имеется лист бокс (как у нолдора в проге по оптимальному слому )
В нём написаны прочки 59 , 58 , 57 ...2
надо чтобы рядом была новая колонка , в ней сумма чисел 59+58+57+...+2
вот так :
59 59
58 117
57 174
... ...
2 .
Это код который уже есть , если поможет:
Предположительно text1.text = прочка , а text2.text = рем кузнеца (10%,20%...90%)
x(i) - количество боёв после рема (правда перевёрнуто) .
Private Sub Command1_Click()
List1.Clear
Dim x() As Long
ReDim x(Val(Text1.Text))
For i = 2 To Val(Text1.Text)
x(i) = Int(i * Val(Text2.Text))
If x(i) = 0 Then x(i) = 1
List1.AddItem x(i)
Next
End Sub | Подправил , теперь не верх ногами
Private Sub Command1_Click()
List1.Clear
Dim x() As Long
ReDim x(Val(Text1.Text))
For i = 1 To Val(Text1.Text) - 1
x(i) = Int((Val(Text1.Text) + 1 - i) * Val(Text2.Text))
If x(i) = 0 Then x(i) = 1
List1.AddItem x(i)
Next
End Sub | | тема закрыта by Приток (2010-01-08 05:59:22) |
|---|
К списку тем
|
