Цикл For Посчитать до 40 и вписать по 10 чисел в каждое текстовое поле по индексу - VB
Формулировка задачи:
Есть текстовое поле box с индексом 0
box(0).text
Нужно в цикле посчитать до 40 и в каждое текстовое поле по индексу вписать по 10 чисел по порядку вот так
В box(1).text Это
1,2,3,4,5,6,7,8,9,10,
В box(2).text Это
11,12,13,14,15,16,17,18,19,20
И так далее
Принцип вы поняли и так далее только прикол в том чтобы в каждом текстовом поле было только по 10 цифр
Dim b As Integer
For b = 1 To 40
If b <= 10 Then
box(1).Text = box(1).Text + "," & b
End If
Next
Дальше как чет башка не варит как это реализовать чтобы в каждом текстовом поле было box(2).text итд
Решение задачи: «Цикл For Посчитать до 40 и вписать по 10 чисел в каждое текстовое поле по индексу»
textual
Листинг программы
For i = 1 To 4 For j = 1 To 10 If j <> 10 box(i).Text = box(i).Text + Str(10*(i -1) + j) & "," Else box(i).Text = box(i).Text + Str(10*(i -1) + j) End If Next j, i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д