请教大家，我要在VB中实现0.0001-0.9999反正切，怎么在text中连续输出反正切值？谢谢！

hetao7241

希望值与值间用“，”隔开，反正切值用整型保留（0000-4500），实际就是用于查表，谢谢！

我写的程序，不能连续输出：

Private Sub Command1_Click()
    Dim x As Single
    Dim y As Single
   
    For i = 1 To 9999 Step 1
        x = i * 0.0001
        y = Atn(x) * 180 / 3.1415926
        Text2.Text = y
      
         
        
    Next
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub


(原文件名:as.JPG)

点击此处下载 ourdev_523157.rar(文件大小:2K) (原文件名:反正切连续计算.rar)

hetao7241

有进展了，但不知道按50个或100个数据怎么提行。

Private Sub Command1_Click()
    Dim z As String
   
    Dim x As Single
    Dim y As Single
   
    For i = 1 To 1000 Step 1
        x = i * 0.0001
        y = Atn(x) * 180 / 3.1415926
        y = Fix(y * 100)
        z = z + Str(y) & ","
      
         
        
    Next
    Text2.Text = z
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

1105284241

回复【1楼】hetao7241
-----------------------------------------------------------------------


点击此处下载 ourdev_523197.rar(文件大小:2K) (原文件名:反正切连续计算.rar)
点击此处下载 ourdev_523198.rar(文件大小:2K) (原文件名:反正切连续计算2.rar)

试一试效果是不是你要的

hetao7241

谢谢楼上！已经解决。