Jawaban:

• Buatlah form baru pada VB dan beri nama form tersebut, misalnya "frmIntegrasi".
• Tambahkan dua textbox untuk menerima input nilai batas bawah (misalnya "txtBatasBawah") dan batas atas (misalnya "txtBatasAtas"), serta sebuah textbox untuk menerima input jumlah partisi (misalnya "txtJumlahPartisi").
• Tambahkan sebuah button dan beri nama "btnHitung" untuk memulai proses penghitungan.
• Tambahkan sebuah label untuk menampilkan hasil integrasi numerik (misalnya "lblHasil").Di dalam event handler button "btnHitung", tambahkan kode berikut:

Dim batasBawah As Double, batasAtas As Double, jumlahPartisi As Integer

Dim deltaX As Double, x As Double, fX As Double, integral As Double

' Ambil nilai dari textbox

batasBawah = CDbl(txtBatasBawah.Text)

batasAtas = CDbl(txtBatasAtas.Text)

jumlahPartisi = CInt(txtJumlahPartisi.Text)

' Hitung deltaX

deltaX = (batasAtas - batasBawah) / jumlahPartisi

integral = 0

For i = 1 To jumlahPartisi

x = batasBawah + i * deltaX

fX = x ^ 2 + 2 * x + 1 ' Misalnya fungsi f(x) = x^2 + 2x + 1

integral = integral + fX

Next i

integral = (deltaX / 2) * (2 * integral + (batasBawah ^ 2 + 2 * batasBawah + 1) + (batasAtas ^ 2 + 2 * batasAtas + 1))

lblHasil.Caption = "Hasil integrasi: " & CStr(integral)

• Di dalam kode tersebut, kita menggunakan variabel "batasBawah" dan "batasAtas" untuk menyimpan nilai batas bawah dan batas atas, "jumlahPartisi" untuk menyimpan jumlah partisi, "deltaX" untuk menyimpan lebar setiap partisi, "x" untuk menyimpan nilai x pada setiap partisi, "fX" untuk menyimpan nilai f(x) pada setiap partisi, dan "integral" untuk menyimpan hasil penjumlahan f(x) pada setiap partisi.

• Setelah itu, kita mengambil nilai dari textbox "txtBatasBawah", "txtBatasAtas", dan "txtJumlahPartisi" dan menghitung deltaX dengan cara membagi selisih batas atas dan batas bawah dengan jumlah partisi.

• Selanjutnya, kita menggunakan loop "For" untuk melakukan perulangan sebanyak jumlah partisi. Pada setiap iterasi, kita menghitung nilai x dengan cara menambahkan i dikali deltaX pada batas bawah, dan nilai fX dengan cara menghitung fungsi f(x) pada nilai x tersebut.

• Kita tambahkan nilai fX ke dalam variabel "integral" untuk menghitung hasil penjumlahan f(x) pada setiap partisi.

• Setelah loop selesai, kita menghitung hasil integrasi numerik dengan menggunakan rumus metode trapesium dan menampilkan hasilnya pada label