Цикл 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.667 из 5