Метка Lbl2

Метка Lbl1

End Sub

Экранная форма имеет вид:

CmdP (Командная кнопка)

CmdExit (Командная

кнопка)

Текстовые поля для размеще-

ния формации (результатов)

Рис. 6.5. Экранная форма примера 4

Метка Lbl3

Private Sub CmdP_ Click ()

Dim D As Ineger, Kol As Integer, MaxSum As Integer, S As Integer

Dim Z As Integer

Kol = 0: MaxSum = 0: Z = 1: Lbl1. Caption = “Введите число”

Lbl2. Caption = “Максимальная сумма цифр”

Lbl3. Caption = “Количество чисел”

Do While Z = 1

D = InputBox (“Введите число”): Txt1. Text = D

D = Abs (D): S = 0

Do While D <> 0

S = S + D Mod 10

D = D \ 10

Дата добавления: 2014-01-04