 |
Программа розыгрыша одномерных массивов (целые и дробные числа)
|
|
|
|
=========================================================================
Option Explicit 'оператор проверки объявлений используемых переменных
Private Sub CommandButton1_Click()
Dim M(1 To 10) As Integer ‘Объявление массива целых чисел
Dim N(1 To 10) As Single ‘Объявление массива дробных чисел
Dim i%, k% ‘Объявление переменных
TextBox1 = ""
Randomize
Debug.Print "массив M(i) от 0 до 100" 'Заголовок массива
For i = 1 To 10 'цикл от 1 до 10
M(i) = Rnd() * 100 'генерирование случайного числа
Debug.Print M(i); ' так будет печать в одной строке, напр.: 74 38 37 12 37 2 9 24 45 75
' если; (точку с запятой) не поставить, будет печать чисел в столбик!!!!
' ниже печать чисел в текстовом окне формы в виде нарастающего итога
TextBox1 = TextBox1 + CStr(M(i)) + " " ' пробел для раздела чисел
Next i
Debug.Print 'пустая строка
Debug.Print "массив N(k) от -1 до 1" 'Заголовок массива
For k = 1 To 10
N(k) = (Rnd() * 2) - 1
Debug.Print N(k) ' будет печать в столбик!!!!
Next k
MsgBox "оба массива в окне отладки!!!"
End Sub
Эту программу можно запустить на исполнение прямо из окна VB, нажав кнопку Run Sub (рис.слева).
Результат можно посмотреть в окне отладки, который вызывается из меню View VB или сочетанием Ctrl+G.
В окне отладки (Immediate):
массив M(i) от 0 до 100
1 43 42 17 49 74 56 86 37 52
массив N(k) от -1 до 1
-0,6241974
-0,4315228
-0,283106
0,9673221
0,5040017
0,9050713
0,0435375
-0,5218856
0,999457
-0,1647906
Для отображения на листе Excel результатов розыгрыша массива целых чисел, который задан программой, необходимо сделать форму Form1mern видимой. Для этого в окне VBA вставляем модуль (Insert-Module), и пишем в нем программу, которая делает форму видимой:
Sub formПоказать()
Form1mern.Show
End Sub
Имя этой программы будет именем макроса в нашей книге Excel. На нашем пока еще пустом листе с помощью Разработчик-ВкладкаВставить-ЭлементУправленияКнопка рисуем на листе кнопку открытия формы. Из появившегося перечня макросов выбираем formПоказать ( присваиваем его кнопке ОткрытьФорму ).
|
|
|
Щелкнув по этой кнопке увидим форму (рис.ниже). Теперь щелчок по кнопке на форме приведет к исполнению программы розыгрыша массивов, причем один из них (целочисленный) появится прямо на форме в текстовом боксе, а второй (вместе с первым) будет записан в окне отладки.
Каждый щелчок кнопки на форме инициирует новый массив случайных чисел.
|
|
|
II. ПРОГРАММА ТЕОРЕТИКО-ПРИКЛАДНОГО СОЦИОЛОГИЧЕСКОГО ИССЛЕДОВАНИЯ
II. Программа теоретического раздела дисциплины
II. ПРОГРАММА УЧЕБНОЙ ПРАКТИКИ
IV. Циклдік оператор алгоритмдерін программалау
TARP — программа развития чтения при помощи магнитофона
V. Программа соревнований
V. Программа соревнований.
V. ПРОГРАММА ФИНАЛА КОНКУРСА
VIII. ПРОГРАММА СОРЕВНОВАНИЙ
X ПРОГРАММА СОРЕВНОВАНИЙ
