Написать к программе форму, кнопку и окно результатов

[M.Kelevra]

для данной программы нужно сделать форму, кнопку и окно где будут выдаваться результаты её...

вот программа

Sub Test()
Dim k As Integer, X(30) As Integer, i As Integer, j As Integer, r As Integer, a As Integer, b As Integer, c As Integer, d As Integer, m As Integer, Y(30) As Integer, matr() As Integer, n As Integer
Cells(1, 1).Font.Bold = 1
Cells(1, 1) = "Случайные числа"
i = 1

'1-е задание - столбец с случайными числами
' Объявляем промежутки
a = 2
b = 7
c = 9
d = 10

For k = 1 To 30
' Случайное целое число в диапазоне от а до b и c до d
' Если нужны любые числа, а не только целые, то убрать функцию Int

Do
Randomize
r = Int(Rnd() * (10 - 2 + 1)) + 2
Loop While r = 8

X(k) = r
' Записываем в столбец А2 - А31
Cells(i + 1, 1) = X(k)
i = i + 1
Next k


' 2-е задание - сортировка
' Ищем максимум
m = X(1)
For k = 2 To 30
If X(k) > m Then
m = X(k)
End If
Next k
Cells(1, 2).Font.Bold = 1
Cells(1, 2) = "Максимум"
Cells(2, 2) = m

' Фильтрация
j = 1
For k = 1 To 30
If X(k) >= m / 5 And X(k) <= m / 2 Then
Y(j) = X(k)
j = j + 1
Else: Y(j) = 0
End If
Next k

i = 1
Cells(1, 3).Font.Bold = 1
Cells(1, 3) = "Отсортированный массив"
For k = 1 To j - 1
Cells(i + 1, 3) = Y(k)
i = i + 1
Next k


'3-е задание - матрица
n = InputBox("Введите количество строк: ") 'задает размерность матрицы
ReDim matr(n, n)

'заполняем и выводим матрицу
k = 1

Cells(1, 5) = "Матрица"
Cells(1, 5).Font.Bold = 1

For i = 1 To n
If (i Mod 2 = 0) Then 'если четный столбец, то заполняем справа на лево (змейка)
For j = n To 1 Step -1
If (k <= 30) Then
matr(i, j) = Y(k)
k = k + 1
Else: matr(i, j) = 0
End If
Cells(i + 1, 4 + j) = matr(i, j)
Next j
Else: 'если не четный столбец, то заполняем слева на право (змейка)
For j = 1 To n
If (k <= 30) Then
matr(i, j) = Y(k)
k = k + 1
Else: matr(i, j) = 0
End If
Cells(i + 1, 4 + j) = matr(i, j)
Next j
End If
Next i

End Sub

[EducatedFool]

для данной программы нужно сделать форму, кнопку и окно где будут выдаваться результаты её...

Это что - приказ?

Нужно - так сделайте, что вам мешает?

Форму не можете нарисовать? Или кнопку создать?
Если не выложите свои наработки - закрою тему.

[M.Kelevra]

это не приказ... просто в теме нельзя писать в теме помогите пожалуйста... это просто просьба о помощи... форму просто нарисать и кнопку могу создать, но я не понимаю какую в них надо написать программу что она работала, когда нажимаешь на кнопку и выдавался результат в окошечке...

[VictorM]

форму просто нарисать и кнопку могу создать

Создавайте, выкладывайте свой файл полностью, посмотрим

[M.Kelevra]

вот программа...
тут надо было сделать
1) счётчик размерности матрицы
2) форму
3) окно вывода результатов

1) сделал... а вот 2) и 3) я не понимаю как...

[VictorM]

Форму - понятно.
Что за кнопка должна быть, что она должна делать? Запускать этот макрос?
И какие результаты выводить в окно формы?

[M.Kelevra]

эм... я наконец разобрался))) сделал всё вроде...

спасибо Виктору, что обратил внимание на тему! Ответьте только на вопрос... я не уверен на счёт "Счётчика размерности матрицы" это (как мне кажется) поле куда надо вводить размер матрицы... я правильно понял?