The Cross Sum Program

Эта мини-программа вычисляет кросс-сумму целых.

Вам нужно 2 textboxes и 1 commandbutton, чтобы программа запустилась.

Как она будет выглядеть ? ( в Германии)

prgquer.png

Пожалуйста, остерегайтесь знаков / и \ . В этой программе знае \ используется для деления без остатка.

Код

PUBLIC SUB Button1_Click()
DIM z AS Integer
DIM crosssum AS Integer
z = Val(TextBox1.Text)
DO WHILE z <> 0
crosssum = crosssum + z MOD 10
z= z \ 10
LOOP
TextBox2.Text = Str$(crosssum)
END

-- ReinerHoffmann - 31 Jan 2004