|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2010, 17:03 | #1 |
Новичок
Джуниор
Регистрация: 26.05.2010
Сообщений: 1
|
таблица в VB 6.5
необходимо создать combobox с 3 возможными вариантами расчета данных с выводом в таблицу.
вот например для 1 таблицы Dim pV, ps, rate, n, r, k, s As Single Dim i As Integer n = InputBox("срок кредита") pV = InputBox("сумма кредита") ps = InputBox("процентная ставка") rate = 1.67 r = pV / n i = pV * rate pV = 1000 ps = 83.33 t.RowCount = n + 1 For i = 0 To n - 1 t.Rows(i).Cells(0).Value = i + 1 If i = 0 Then t.Rows(i).Cells(1).Value = pV Else t.Rows(i).Cells(1).Value = t.Rows(i - 1).Cells(1).Value - ps End If If i = 0 Then t.Rows(i).Cells(4).Value = 100 Else t.Rows(i).Cells(4).Value = t.Rows(i - 1).Cells(4).Value - 1.39 End If t.Rows(i).Cells(3).Value = 83.33 t.Rows(i).Cells(2).Value = t.Rows(i).Cells(4).Value - t.Rows(i).Cells(3).Value t.Rows(n).Cells(0).Value = "Итог" t.Rows(n - 1).Cells(1).Value = " " t.Rows(n).Cells(3).Value = pV k = t.Rows(i).Cells(2).Value k = k + t.Rows(i).Cells(2).Value t.Rows(n).Cells(2).Value = k s = t.Rows(i).Cells(4).Value s = s + t.Rows(i).Cells(4).Value t.Rows(n).Cells(4).Value = s но не получается посчитать сумму из массива в 3 и 5 столбике Последний раз редактировалось levity_92; 26.05.2010 в 19:14. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
таблица | Cpluser | HTML и CSS | 1 | 09.02.2010 20:50 |
Таблица | V@mpir | Помощь студентам | 5 | 20.01.2010 23:04 |
Таблица... | Streb | Общие вопросы C/C++ | 2 | 12.01.2010 17:45 |
таблица | тася | Microsoft Office Excel | 17 | 25.01.2009 00:29 |