hetao7241 发表于 2010-1-5 21:57:51

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

希望值与值间用“，”隔开，反正切值用整型保留（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

http://cache.amobbs.com/bbs_upload782111/files_24/ourdev_523155.JPG
(原文件名:as.JPG)

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

hetao7241 发表于 2010-1-5 22:51:13

有进展了，但不知道按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 发表于 2010-1-5 23:09:19

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


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

试一试效果是不是你要的

hetao7241 发表于 2010-1-5 23:34:41

谢谢楼上！已经解决。
页: [1]
查看完整版本: 请教大家，我要在VB中实现0.0001-0.9999反正切，怎么在text中连续输出反正切值？谢谢！