Private Sub Form_Click()
 Dim iheight As Integer
 Dim i As Integer
 
     iheight = Form1.Height / 2 - 50
     For i = 0 To Form1.Width
       CurrentX = i
       CurrentY = iheight - iheight * Sin(i * 3.14 / 180 * 0.1)
       Print "*"
    Next i
   
End Sub

CurrentX,CurrentY 输出“*”坐标x,y，即在这个坐标画“*”。sin函数用的是弧度。角度要换成弧度。sin(i * 3.14 / 180 * 0.1)实际是1/10角度增长,不要忘记i是个+1的变量.

多用多思考，生活中我的理解是在0到1的范围内，根据最后的值我就能大概知道这个角度是多少了。那么实际中在高等数学中，角度的书写和应用实在太底层了，最后的求解结果也不一定是数值了，可能就是sinx之类的，如果用角度去表示就太麻烦了，that's all