该怎么写程序代码啊？跪求大神指教😵😵😵

该怎么写程序代码啊？跪求大神指教😵😵😵

Public Class Form1    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        HScrollBar1.Minimum = 1        HScrollBar1.Maximum = 30    End Sub    Private Function jisuan(ByVal n As Integer) As Double        Dim result As Double        For i = 1 To n            result = 1 / (n * (2 * n + 1))        Next        Return result    End Function    Private Sub HScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged        Dim n As Integer = HScrollBar1.Value        TextBox1.Text = "表达式的值为：" + Math.Round(jisuan(n), 3).ToString    End SubEnd Class