在磁盘上以文件形式建立一个三角函数表，其格式如下：
*      SIN      COS      TAN
0       ?          ?          ?
1       ?          ?          ?
2       ?          ?          ?
3       ?          ?          ?
…      …         …        …
99     ?          ?         ?

解，在窗体上画一个命令按钮，然后编写如下事件过程。

Private Sub Command1_Click()

    Dim sinval, cosval, tanval As Single
    Open "d:\TrigFun.txt" For Output As #1
    Print #1, " *", "SIN", "COS", "TAN"
    Print #1, ""
    For i = 1 To 90
        arg = i * 3.14159 / 180
        sinval = Sin(arg)
        sinval = Format(sinval, "0.000000")
        cosval = Cos(arg)
        cosval = Format(cosval, "0.000000")
        tanval = Tan(arg)
        tanval = Format(tanval, "0.000000")
        Print #1, i, sinval, cosval, "0" & tanval
    Next
    Close #1
   
    MsgBox "已经在d盘根目录里建立了 TrigFun.txt 文件，点“确定”将打开它。"
    Shell "c:\windows\notepad.exe " & "d:\TrigFun.txt", vbNormalFocus

End Sub

******************************
visual basic程序设计教程第四版答案 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_14.6.html