Помощь В Написании Программы В Vb6 (использование Массивов, Функций)

[dany]

форма программы содержит таблицу (5 строк) с такими данными: наименование товара, цена, количество (данные вводятся), сумма покупки, цена продажи, сумма продажи, цена продажи постоянным покупателям, сумма продажи постоянным покупателям (необходимо рассчитать)

при изменении данных цена или количество должны изменяться все расчетные данные

для расчета цен, сумм использовать функции.

начала писать такой код, в результате дает все 0.

Option Explicit
Dim c(5) As Currency
Dim k(5) As Single
Dim i As Integer

Private Sub txtC_Change(Index As Integer)
c(Index) = Val(txtC(Index).Text)
txtCr(Index).Text = Str(FormatNumber(Cina(1.1)))
txtCrp(Index).Text = Str(FormatNumber(Cina(1.08)))
k(Index) = Val(txtK(Index).Text)
txtSp(Index).Text = Str(Sum(67))
End Sub

Public Function Cina(n As Single)
For i = 0 To 4
Cina = c(i) * n
Next i
End Function

Public Function Sum(ci As Currency)
For i = 0 To 4
Sum = k(i) * ci
Next i
End Function

 

[alex77755]

похоже у тебя не таблица, а массивы тексбоксов
набирать самому лениво.
Прицепи архив с программой - посмотрю

Добавлено: С первого вгляда: функции написаны не правильно.
Функция возвращает значение. При изменении цены одного наименования зачем перемножать цены всех?

 

[Aline]

помогите решить задачи,пожалуйста!! 1.найти произведение элементов первой строки на соотв. элементы к-го столба. 2.умножить скалярно каждый столбец матрицы А(n,m) на соотв. столбец матрицы B(n,m). напишите программные коды,пожалуйста!!!

 

[Vlad42444]

Помогите пожалуйста, не могу найти ошибку при составлении программного кода к программе которая строит графики функций, вот код:

Option Explicit
Dim x As Single, y As Single, m As Single, xn As Single, ymin As Single
Dim xk As Single, ymax As Single, dx As Single
Function FNy(x As Single)
y = 2 * Sqr(Abs(x ^ 3)) * Sin(x)
FNy = y
End Function

Private Sub Command1_Click()
Picture1.Cls
Picture1.ScaleMode = 3
xn = Val(Text1.Text)
xk = Val(Text2.Text)
dx = Val(Text3.Text)
ymax = FNy(xn)
ymin = ymax
For x = xn To xk + dx / 2 Step dx
y = FNy(x)
If y > ymax Then ymax = y
If y < ymin Then ymin = y
Next x
Picture1.Scale (xn, ymax)-(xk, ymin)
Picture1.Line (xn, 0)-(xk, 0)
Picture1.Line (0, ymin)-(0, ymax)
For x = xn To xk + dx / 2 Step dx
y = FNy(x)
Picture1.PSet (x, y), vbRed
Next x
End Sub

Private Sub cmdExit_Click()
End
End Sub

P.S.: texbox 3шт.,picturebox 1шт., command 2шт.

 

[alex77755]

Помогите пожалуйста, не могу найти ошибку.....

я не стал искать. Скопипастил код. Поменял имена контролов(у меня русский VB).
Запустил - работает

 

[Vlad42444]

я не стал искать. Скопипастил код. Поменял имена контролов(у меня русский VB).
Запустил - работает

Спасибо огромное!

 

[Antoha888]

Напишите пожалуйста программный код к заданию y=ax^2+bx+c, если -20меньше или = Х меньше или =20. Плиз!!!!!!!!!!