Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с 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

Автор: Akina 13.6.2017, 09:16

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

Массив "создаётся" точно так же, как и скалярная переменная - оператором Dim.

Автор: recri 14.6.2017, 19:27

Цитата

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

У кого не спрошу все так отвечают, но на экзамен необходима эта программа с массивом...А точнее создать массив для значения m. У меня это это не получается....

Автор: Akina 14.6.2017, 19:34

Ну замените везде m на m(1), делов-то... и будет это массив в Dim, и первый (и единственный, если Option Base 1) его элемент в остальных местах.

Автор: Staruha 3.8.2017, 15:41

собственно код написан .Еще что то типа в цикле do добавить после m=m+n
myarray=myarray+m
плюс разделитель

Автор: Staruha 3.8.2017, 20:06

ну вот дома накидала.Чем не массив
Private Sub CommandButton2_Click()
Dim m, n, i As Single
Dim myarray As String
m = 100
n = 5
n = -n
i = 0
myarray = m

Do While m > 0
m = m + n
myarray = myarray & "," & CStr(m)
i = i + 1
Loop
'TextBox3.Text = i
MsgBox myarray
End Sub