Private Function xn(a As Single, m As Integer)
    Dim i As Integer
    tmp = 1
    For i = 1 To m
    '    tmp = ?
    Next
    'xn = ?
End Function
Private Sub Command1_Click()
    Dim n As Integer
    Dim i As Integer
    Dim t As Single
    Dim s, x As Single
    n = Val(Text1.Text)
    x = Val(Text2.Text)
    z = 0
    For i = 2 To n
        t = x + i
    '    z = z +?
    Next
    'Label1.Caption = ?
    Call SaveResult
End Sub
Private Sub SaveResult()
    Open App.Path & "\out4.dat" For Output As #1
    Print #1, Label1.Caption
    Close #1
End Sub