Как на VBA можно написать программу для вычисления определенного интеграла ? (Страница 1 из 2)

Мне надо написать прогу для вычисления определенного интеграла, но так как я в  VBA практически ничего не понимаю у меня получилась вот такая хрень
Private Sub CommandButton1_Click()
Dim a, b, log, resul As Integer
a = TextBox1.Text
b = TextBox2.Text
log = TextBox3.Text
Select Case log
Case x ^ n
resul = b ^ (n + 1) / (n + 1) - a ^ (n + 1) / (n + 1)
End Select
Label2.Caption = resul
End Sub

я же говорю что нихрена не понимаю, а больше всего вопрос мне не ясен по поводу формур как сдлелать чтоб это работало

Напиши словами алгоритм вычисления.

1) Какую функцию ты интегрируешь?
2) Какой алгоритм используешь?
3) Какие данные вводишь?
Из твоей "программы" я ничего не понял.

Ты действительно думаешь, что формулу введенную в виде строки можно преобразовать в реальную функцию?
Насмешил. Саму функцию ты должен задать в коде программы в виде:

Function f(x) As Double
 f = 1 / (Log(x))
End Function

А вообще скачай этот реферат и поизучай. Там есть все, что тебе нужно:
http://cityref.ru/referats/integral.zip

большое спасибо постараюсь справится, а если не получится я могу к Вам обратится

во-первых (тем, кто только начинает):
в VB 6 при объявлениях типа
Dim a, b As Integer
переменная 'a' объявляется как Empty, а переменная 'b' как Integer
(в VB.NET эту фичу убрали)
проверить моно прогой

Function GetVarType(ByRef i As Integer) As String
    Select Case i
        Case 0: GetVarType = "vbEmpty"
        Case 1: GetVarType = "vbNull"
        Case 2: GetVarType = "vbInteger"
        Case 3: GetVarType = "vbLong"
        Case 4: GetVarType = "vbSingle"
        Case 5: GetVarType = "vbDouble"
        Case 6: GetVarType = "vbCurrency"
        Case 7: GetVarType = "vbDate"
        Case 8: GetVarType = "vbString"
        Case 9: GetVarType = "vbObject"
        Case 10: GetVarType = "vbError"
        Case 11: GetVarType = "vbBoolean"
        Case 12: GetVarType = "vbVariant"
        Case 13: GetVarType = "vbDataObject"
        Case 14: GetVarType = "vbDecimal"
        Case 17: GetVarType = "vbByte"
        Case 36: GetVarType = "vbUserDefinedType"
        Case 8192: GetVarType = "vbArray"
        Case Else: GetVarType = "Uncnown Type"
    End Select
End Function

вызов с помощью:

Dim a1, a2, a3 As Integer
MsgBox "a1 - " & GetVarType(VarType(a1)) & Chr(13) & _
       "a2 - " & GetVarType(VarType(a2)) & Chr(13) & _
       "a3 - " & GetVarType(VarType(a3))

нуно объявлять так:

Dim a As Integer, b As Integer

но лучше так:

Dim a As Integer
Dim b As Integer

во-вторых интегралы решеются с помощью рядов, а ряды программируются с помощью рекурсивных циклов с проверкой точности (например если достигнута точность до 0,001 происходит выход из цикла. Попробуй сам разобраться с рекурсивными циклами, если не получится - пиши

а...
это у тебя происходит потому, что ты не продекларировал переменную 'n' и она у тебя автоматом стала n=0. чтоб такого небыло (чтобы автоматом ничего не декларировалось) используй Option Explicit
вроде код должен быть такой:

Option Explicit
Private Sub CommandButton1_Click()
    Select Case TextBox1.Text
        Case "x^n"
            Dim n As Byte
            Dim x1 As Byte
            Dim x2 As Byte
            Dim y As Double
            x1 = CByte(TextBox2.Text)
            x2 = CByte(TextBox3.Text)
            n = CByte(TextBox4.Text)
            TextBox5.Text = CSng((x2 ^ (n + 1)) / (n + 1) - (x1 ^ (n + 1)) / (n + 1))
    End Select
End Sub

> Максим
Там используется метод Симпсона для вычисления интеграла. И для четных и нечетных точек используются разные коэффициенты (2 и 4). Поэтому требуется различать четные и нечетные значения N. chet - это значения для четных точек, nechet - для нечетных.

> Oleg
Вам скорее все сюда нужно http://www.sql.ru/forum/actualtopics.aspx?bid=46 даже намека на автокад не вижу ;)

Как определить содержится ли в ячейке формула или она пустая?