Как в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д