Эта мини-программа вычисляет кросс-сумму целых.
Вам нужно 2 textboxes и 1 commandbutton, чтобы программа запустилась.
Как она будет выглядеть ? ( в Германии)
Пожалуйста, остерегайтесь знаков / и \ . В этой программе знае \ используется для деления без остатка.
Код
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