This miniprogram calculates the cross sum of an integer.
You need 2 textboxes and 1 commandbutton to get the program going.
How does it look like ? ( in German)
Please beware of the signs / and \ . In this program the sign \ is used for a division without a rest.
The Code
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