ерфейсу
програмування користувач інтерфейс
Як було зазначено вище вхідними даними є масив символів. Тому створювана форма буде мати поле введення рядка. p align="justify"> Вихідними даними є масив символів, який буде виводитися в полі (TextBox). При введенні некоректних даних з'являється відповідне повідомлення у вікні повідомлень. p align="justify"> Крім того, на формі присутні дві кнопки.
Кнопка В«OKВ» виконання вибраної операції (CommandButtonl); кнопка В«НаступнийВ» (CommandButton2) вводить черговий елемент.
В
Малюнок 3 - запущена програма
В
Малюнок 4 - результат виконання програм
3. Реалізація програмного модуля
.1 Код програми
s, a (100) As Stringi, n, m, k, j As IntegerSub CommandButton1_Click () = TextBox1.Text = 1.Caption = "Введіть елемент" & i.Enabled = False.Text = "" Val (n) <> 0 Then "Некоректне число елементів", vbCritical, "Помилка введення": EndIf.Enabled = TrueSubSub CommandButton2_Click () (i) = TextBox1.TextRound (i) = Round (n) Then.Visible = False.Visible = Falsek = 1 To n - 1j = 1 To na (k) = a (j) And k <> j Then (n + 1) = "" m = j To n (m) = a (m + 1) = n - 1 = k + 1If.Visible = True = "" k = 1 To n = s & a (k) & "" ;. Caption = s.Visible = False.Enabled = FalseIf = i + 1.Caption = "Введіть елемент" & i.Text = "" Sub
.2 Опис використовуваних операторів і функцій
- оператор, який використовується для явного оголошення змінної. - цілочисельний тип даних .... End Sub
Початок і кінець процедури. Процедура - це підпрограма. Вона починається оператором Sub і закінчується оператором End, між якими і поміщається код. Такі процедури можуть викликатися або самим VBA (процедури обробки подій), або іншими процедурами. При цьому обробники подій реалізуються як процедури .... Then ... Else ... End If
Виконання однієї або декількох заданих рядків коду на підставі деякого логічного умови. (повідомлення, кнопки, заголовок вікна) - процедура виводить на екран діалогове вікно з відповідними параметрами.
Оператор циклу з параметром For .... Next - дозволяє повторювати групу операторів задане число разів. Змінної присвоюється початок лічильника циклу, потім перевіряється задана умова. Якщо умова В«істинаВ», виконується тіло циклу, потім мінлива лічильника циклу збільшується на значення кроку і далі виконується тіло циклу, якщо умова В«брехняВ», то виконання передається на інструкції, наступні за Next. Даний процес буде виконуватися, поки лічильник циклу не стане більше кінцевого значення. Дострокове завершення циклу здійснюється за допомогою команди Exit For. p align="justify"> Функція Val (рядок) повертає числа, що містяться в рядку, як числове значення відповідного типу...