Программа в Visual Basic

[michael88]

Подскажите как написать данную ниже программу в Visual Basic? Хочу научиться по примеру писать такие же программы...

[michael88]

никто не знает?

[Vanta11a]

А ты на что надеялся? Что кто-то поверит в то наглое вранье, что эта задача тебе как "пример" нужна?
Покажи, как вводишь массивы.

[michael88]

Сообщение от Vanta11a

А ты на что надеялся? Что кто-то поверит в то наглое вранье, что эта задача тебе как "пример" нужна?
Покажи, как вводишь массивы.

Sub
Dim a() As Integer = {1, 2, 3, 4}
Dim b() As Integer = {5, 6, 7, 8, 9, 10}
Dim c() As Double = {}
Next
End Sub
это ввод массивов
Я прошу помощи, в написании этого задания как для примера. Это задание из билета с экзамена. Я хочу научиться писать такие программы, чтобы пересдать экзамен. Методичек у нас по информатике нету. Препод прогуливал 50% лекций и семинаров, кроме как из интернета неоткуда черпать информацию.

[Vanta11a]

Ок. Дальше вводишь две переменных - Pr1 и Pr2 (тип Integer). Потом два цикла

For i = 1 To 7
Pr1 := Pr1 * a(i)
For i = 1 To 10
Pr2 := Pr2 * b(i)

В переменных окажутся произведения массивов.
Потом снова цикл для i = 1 ... 10, в котором будут считаться разные С.

[michael88]

Сообщение от Vanta11a

Ок. Дальше вводишь две переменных - Pr1 и Pr2 (тип Integer). Потом два цикла

For i = 1 To 7
Pr1 := Pr1 * a(i)
For i = 1 To 10
Pr2 := Pr2 * b(i)

В переменных окажутся произведения массивов.
Потом снова цикл для i = 1 ... 10, в котором будут считаться разные С.

А как разные С будут считаться?
Dim Pr1 As Integer
Dim Pr2 As Integer
это ввод переменных, дальше строка, которую вы написали, и дальше нужно написать строку, где разные С будут считаться? А после этого для j верно?

[Vanta11a]

Неа.
1) ввод массива - сделано
2) подсчет произведений массивов a и b - сделано (pr1 - произведение массива а, pr2 - произведение массива b)
3) расчет разных с - еще не сделано

Я на VB не писал ни разу, так что могут быть косяки по синтаксису:

Sub
Dim a() As Integer = {1, 2, 3, 4}
Dim b() As Integer = {5, 6, 7, 8, 9, 10}
Dim c() As Double = {}
Dim Pr1, Pr2 As Integer
Dim i As Integer
Dim c As Double
For i = 1 To 7
Pr1 := Pr1 * a(i)
Next i
For i = 1 To 10
Pr2 := Pr2 * b(i)
Next i
For i:=1 to 10
c := (b(i)-a(1))*Pr1/Pr2
Print(c)
Next i
Next
End Sub

[gaw4]

Sub
Dim a() As Integer = {1, 2, 3, 4}
Dim b() As Integer = {5, 6, 7, 8, 9, 10}
Dim c() As Double = {}
Dim Pr1, Pr2 As Integer
Dim i As Integer
Dim c As Double
For i = 1 To 7
Pr1 := Pr1 * a(i)
Next i
                     'Pr1 =0
For i = 1 To 10
Pr2 := Pr2 * b(i)
Next i
                    'Pr2 =0
For i:=1 to 10
c := (b(i)-a(1))*Pr1/Pr2  'error
Print(c)
Next i
Next
End Sub

или работает?

[Vanta11a]

'Pr1 =0

Логично, если переменная инициализируется 0, а не 1.

'error

VB не умеет делить на ноль.