Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Программа розыгрыша одномерных массивов (целые и дробные числа)




=========================================================================

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Показать ( присваиваем его кнопке ОткрытьФорму ).

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

Каждый щелчок кнопки на форме инициирует новый массив случайных чисел.

 

Поделиться:





Читайте также:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...