Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 360
If i = 90 Or i = 270 Then
Me.List1.AddItem (vbTab & i & vbTab & vbTab & Format(Math.Sin(i * 10 * 3.14 / 180), "0.0000") & vbTab & vbTab & Format(Math.Cos(i * 10 * 3.14 / 180), "0.0000") & vbTab & vbTab & Format(" ~"))
Else
Me.List1.AddItem (vbTab & i & vbTab & vbTab & Format(Math.Sin(i * 10 * 3.14 / 180), "0.0000") & vbTab & vbTab & Format(Math.Cos(i * 10 * 3.14 / 180), "0.0000") & vbTab & vbTab & Format(Math.Tan(i * 10 * 3.14 / 180), "0.0000"))
End If
Next
End Sub
