Question

看图编写VB绘制余弦曲线

看图编写VB绘制余弦曲线

Answer 1

Sub main()
    Dim y#, x%, m%
    For y = 1 To -1 Step -0.1
        m = WorksheetFunction.Acos(y) * 10
        For x = 0 To 62
            If x = m Or x = 62 - m Then Debug.Print "*"; Else Debug.Print " ";
        Next
        Debug.Print
    Next
End Sub