VBA одномерные массивы

[Алина Шаповал]

Здравствуйте, мне очень нужна ваша помощь, мне нужно написать программу на visual basic:
Сформировать массив из десяти чисел с помощью генератора случайных чисел. Найти сумму элементов сформированного массива. Количество элементов массива запросить у пользователя.
В массиве К (N) найти сумму элементов, которые при делении на 3 дают остаток, равный 2.

[challengerr]

dim a(10)
dim i
dim sum

sum=0

for i=0 to 10
a(i) = rnd()
sum = sum + a(i)
next

msgbox(sum)

dim k()
dim n
dim j
dim sum2

sum2 = 0

n = inputbox("n=")
redim k(n)
for j=0 to n
k(j)=rnd()
if k(j) mod 2 = 2 then sum2 = sum2 + k(j)
next

[Алина Шаповал]

Dim a(10) As Single
Dim n As Byte

Private Sub CommandButton1_Click()
Randomize Timer
Dim i As Byte
n = CInt(InputBox("введите размерность массива"))
For i = 1 To n
a(i) = Rnd * 100
Next i



(запуталась с выводом TextBox)

TextBox1.Text = CStr(k)




End Sub

Private Sub CommandButton2_Click()
Dim S As Single
Dim i As Integer
S = 0
For i = 1 To n
S = S + a(i)

( и здесь не уверена, как сделать правильно..)


Next i


TextBox2.Text = CStr(S)



End Sub

Private Sub CommandButton3_Click()
End
End Sub

[challengerr]

В Cstr(k) не объявлено k.Сумму вроде бы находите правильно. Просто End является лишним.