Как в RichTextBox вывести числовой результат - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте,такой вопрос. Есть код :
Что нужно подправить,чтобы результат выводился в RichTextBox1 не последние цифры и всё,а в столбик все комбинации. То есть теперь выводит
5 4
а надо чтобы выводил
1 2 1 3 1 4 1 5
и так далее.

Решение задачи: «Как в RichTextBox вывести числовой результат»

textual
Листинг программы
Option Explicit
Dim a() As String, m As Integer
 
Sub Loto(ByVal i As Integer, ByVal n As Integer)
      For i = i + 1 To m - n + 1
           a(n) = i
           If n > 1 Then
              Loto i, n - 1
           Else
              RichTextBox1.DataFormat.Type = fmtGeneral
              RichTextBox1.Text = RichTextBox1.Text & Join(a) & vbCrLf '<-- !!!!
           end if
      Next i
End Sub
 
Sub main()
Dim n As Integer
     n = Val(Text1.Text)
     m = Val(Text2.Text)
     ReDim a(1 To n)
     Loto 0, n
End Sub
 
Private Sub Command1_Click()
      Me.Cls
      main
End Sub

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


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

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

6   голосов , оценка 3.833 из 5
Похожие ответы