Составить проект программы для заполнения элементов массива значениями элементов последовательности - VB

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

Элементы последовательности вычисляются по правилу А = х^n *sin(k)/e^k , k = 1,2,3, ,7. Составить проект программы для заполнения элементов массива значениями элементов последовательности. Заменить минимальный элемент массива числом 999 и вывести полученный массив на форму, а также вычислить количество отрицательных элементов массива. Значение величины x ввести из текстового окна.

Решение задачи: «Составить проект программы для заполнения элементов массива значениями элементов последовательности»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim a() As Single
Dim i As Integer, j As Integer, k As Integer, n As Integer, x As Integer
Const e = 2.718282
Dim kol_otr As Integer
Dim min As Single
Private Sub Command1_Click()
Cls
n = InputBox("Enter n", , 7)
x = Val(Text1.Text)
If Text1.Text = "" Then MsgBox ("Введите X")
ReDim a(n) ' Размеры массива А -  n-строк, m-столбцов
For k = 1 To n
    a(k) = x ^ n * Sin(k) / e ^ k 'Заполняем массив
    Print a(k); vbTab
Next k
Print vbTab
min = a(1)
For i = 1 To n
     If min > a(i) Then min = a(i)
     If a(i) < 0 Then kol_otr = kol_otr + 1
Next i
For i = 1 To n
     If a(i) = min Then a(i) = 999
     Print a(i); vbTab
Next i
Print "Минимальный элемент ="; min
Print "Количество отрицательных ="; kol_otr;
End Sub