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

[kabum13]

Помогите пожалуйста с задачей:
Для заданных a, b, h получить таблицу значений функций y1=sinx,
y2=cosx для x принадлежащих [a; b], шаг h.

Вот что я насочинял:

Dim A As Integer
Dim B As Integer
Dim M() As Single
Dim C As Integer
Dim J As Integer
Dim I As Integer
Private Sub CommandButton1_Click()
N = Val(TextBox_N.Value)
ReDim M(1 To N, 1 To N) As Single
B = -20
C = 30
Randomize
For I = 1 To N
For J = 1 To N
M(I, J) = Int((C - B) * Rnd + B)
Next J
Next I
For I = 1 To N
For J = 1 To N
Cells(I, J) = M(I, J)
Next J
Next I
End Sub
Private Sub CommandButton2_Click()
a = Val(TB_a.Value)
b = Val(TB_b.Value)
h = Val(TB_h.Value)
For I = 1 To N Step h
Sin(X(I)) = Y1 And Cos(X(I)) = Y2
Next I
For I = 1 To N Step h
Cells(2, I) = Y1
Cells(3, I) = Y2
NextI
Cells(1, I) = X(I)
End Sub

Я нуб, и неиключено что тут многое/всё неправильно. Исправьте и дополните чего не хватает, а что лишнее, пожалуйста.

[doober]

Private Sub CommandButton1_Click()
a = Val(TB_a.Value)
b = Val(TB_b.Value)
h = Val(TB_h.Value)
N = b - a
L = 0
For i = a To b Step h
L = L + 1
 Y1 = Sin(i)
 Y2 = Cos(i)
 Cells(L, 1) = i
 Cells(L, 2) = Y1
 Cells(L, 3) = Y2
 Next i
End Sub

[kabum13]

Спасибо большое)

[IgorGO]

сообщения не удаляются