Question

我对编程课程有疑问。

问题：创建一个显示以下内容的表：

函数正弦从0到2 * pi，步长为0.1。

我是这样做的：

Option Explicit
Sub main()
Dim s As Double
Dim ret As String
Const pi = 3.14159265
For s = 0 To 2 Step 0.1
    ret = ret + Chr(10) + Str(Sin(s) * pi)
Next s
MsgBox ret
End Sub

我觉得这不对。我不知道在哪里放置Pi所以它创造了他们想要的东西。我只允许使用Excel。

Answer 1

由于SIN()函数已经预期弧度，因此不需要转换。我建议：

Option Explicit

Sub main()
    Dim s As Double
    Dim ret As String
    Const pi = 3.14159265

    For s = 0 To 2 * pi Step 0.1
        ret = ret & Chr(10) & Str(Sin(s))
    Next s

    MsgBox ret
End Sub

我还建议将结果放在单元格中，而不是使用MsgBox，因为它们很多。
我还建议使用 ＆amp; < / strong>而不是 + 来构建ret字符串。
我还建议使用缩进和空格来使代码更容易理解。

正弦函数从0到2 * pi，步长为0.1

1 个答案: