Как сложить поэлементно два массива и заполнить суммами третий. - VB

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

Нашел очень хорошее пособие по VB 6.0 После теории, как правило, стал заниматься практикой. Начал с простой задачи: Заполните 2 массива 10 случайными числами, лежащих в пределах от 10 до 10. Сложите поэлементно эти массивы и заполните ими третий массив. На форму вывести все три массива в три столбика. Набросал код, программа считает все правильно, как мне кажется. И тут же выводит на форму. Пожалуйста, проверьте. Хочу знать, все ли верно. И какие можно внести исправления. Кидаю код:

                    Листинг программы
                
 
                        
                          
                    
Dim n
Dim A(10)
Dim B(10)
Dim C(10)
Private Sub Command1_Click()
n = Val(Text1.Text)
D = Val(Text3.Text)
E = Val(Text2.Text)
For i = 1 To 10
A(i) = D + (E - D) * Rnd
B(i) = D + (E - D) * Rnd
C(i) = A(i) + B(i)
Picture1.Print " a("; i; ") = "; A(i)
Picture2.Print " b("; i; ") = "; B(i)
Picture3.Print " c("; i; ") = "; C(i)
Next i
End Sub

Решение задачи: «Как сложить поэлементно два массива и заполнить суммами третий.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim A() As Double, B() As Double, C() As Double
Dim D As Double, E As Double
Dim n As Integer, i As Integer
 
Private Sub Command1_Click()
   n = Val(Text1.Text)
   D = Val(Text3.Text)
   E = Val(Text2.Text)
   ReDim A(1 To n), B(1 To n), C(1 To n)
   Randomize
   
       For i = 1 To n
               A(i) = D + (E - D) * Rnd
               B(i) = D + (E - D) * Rnd
               C(i) = A(i) + B(i)
               Picture1.Print " a("; i; ") = "; A(i)
               Picture2.Print " b("; i; ") = "; B(i)
               Picture3.Print " c("; i; ") = "; C(i)
       Next i
 
End Sub