用Visual Basic编写一个过程，计算 S=1+1/2十1/3+...+1/n。其中;n由键盘输人。

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

Sub CalculateS()
    Console.Write("请输入n的值：")
    Dim n As Integer = Integer.Parse(Console.ReadLine())
    Dim s As Double = 0
    For i As Integer = 1 To n
        s += 1 / CDbl(i)
    Next
    Console.WriteLine("S = {0}", s)
End Sub

在主程序中调用该过程即可计算S的值。