Коды на Visual Basic - VB

Формулировка задачи:

Ребята всем привет,я начел изучать "Visual Basic"! Очень буду благодарен за коды по этому языку, очень интиресный язык)))! Бросайте сюда коды кому не лень))).Спасибо!))

И еше у меня вопрос,я написал диаграмму на basic,пример из книги Сифронова,прописал правильно,у меня неверная переменная и подчеркивает Х1(((

Решение задачи: «Коды на Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
X1 = CInt(Text1.Text)
X2 = CInt(Text2.Text)
X3 = CInt(Text3.Text)
X4 = CInt(Text4.Text)
X5 = CInt(Text5.Text)
X6 = CInt(Text6.Text)
z = X1 + X2 + X3 + X4 + X5 + X6
a1 = X1 * 360 / z
a2 = a1 + X2 * 360 / z
a3 = a2 + X3 * 360 / z
a4 = a3 + X4 * 360 / z
a5 = a5 + X5 * 360 / z
a6 = a6 + X6 * 360 / z
p1 = Round(X1 / z * 100)
p2 = Round(X2 / z * 100)
p3 = Round(X3 / z * 100)
p4 = Round(X4 / z * 100)
p5 = Round(X5 / z * 100)
p6 = Round(X6 / z * 100)