用Visual Basic编写一个过程，计算 S=1+1/2十1/3+...+1/n。

以下是使用 Visual Basic 编写的计算S的过程：

Function CalculateS(n As Integer) As Double
    Dim s As Double = 0
    For i As Integer = 1 To n
        s += 1 / CDbl(i)
    Next
    Return s
End Function

该过程接受一个整数参数n，返回计算得到的S的值。在主程序中调用该过程并输出结果即可。例如：

Dim n As Integer = 10
Dim s As Double = CalculateS(n)
Console.WriteLine("S = {0}", s)

这段代码将计算n=10时的S的值，并输出结果。