Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Создание МАССИВА


Автор: recri 12.6.2017, 00:09
Помогите создать массив для программы.
Первоначальное условие: реализовать операцию деления целых чисел n и m с помощью сложения.
Саму программу я сделала, а вот с массивом не получается, помогите пожалуйста....
Код

Private Sub CommandButton1_Click()
Dim m, n, i As Single 
m = Val(TextBox1.Text) 
n = Val(TextBox2.Text) 
n = -n
i = 0
Do While m > 0 
m = m + n
i = i + 1
Loop 
TextBox3.Text = i
End Sub

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)