Создать блок-схему и программу - VB

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

Здравствуйте посмотрите пожалуйста правильно ли я сделала под цифрой 1 и объясните пожалуйста как сделать под цифрой 2. Заранее спасибо))) 1.Составить общую блок–схему алгоритма нахождения суммы k первых членов последовательности ( ) и произведения k первых членов последовательности ( ) при трех значениях k. По общей блок-схеме составить программу так, чтобы за один запуск программы была рассчитана сумма и произведение членов ряда при 3-х значениях k и результат был получен в виде: S= P= при k = k1 S= P= при k = k2 S= P= при k = k3 Выход из программы или повторный ее запуск должны производиться по желанию пользователя с помощью ответа с клавиатуры.

Module Module1
Sub Main()
Dim I, K As Integer, Z As String
Dim S,P As Double
3: K=Val(Console.Readline())
2: S=0: P=1: I=1
1: P=P*Bn: S=S+An
I=I+1
If I<=K then Goto 1 Else
Console.Writeline ("S={0},P={1},K={2}",S,P,K)
K=K+3
If K<=11 then Goto 2 Else
Console.Writeline("Выйти?")
Z=Console.Readline ()
If Z="нет" Then Goto 3 Else
End Sub
End Module
End Module

2.Составить общую блок–схему алгоритма и программу для нахождения суммы k первых членов последовательности ( ) и произведения k первых членов последовательности ( ) при М значениях k так, чтобы М значений k автоматически формировались и за один запуск программы был получен результат в следующем виде: S= P= при k = k1 S= P= при k = k2 ………………………………………………………………………………………………………… S= P= при k = kМ Исходными данными программы должны быть начальное значение k – K1, количество М значений k и шаг изменения значений k.

Решение задачи: «Создать блок-схему и программу»

textual
                            Листинг программы 
                        

                            Sub Main()
Dim I,K,M,h,K1 As Integer
Dim S,P As Double
K1=Val(Console.Readline())
h=Val(Console.Readline())
M=Val(Console.Readline())
For K = K1 To M Step h
   S=0 
   P=1
   For I = 1 To K
      P=P*Bn 
      S=S+An
   Next I
   Console.Writeline ("S={0},P={1},K={2}",S,P,K)
Next K
Console.Readline ()
End Sub
                        