Question

这是我用VB写的计算器计算三角函数，以下是代码，求高手帮忙 急！！！要交作业

Private Sub Command5_Click(Index As Integer) '三角函数的计算
Select Case Index
Case 0
Text1.Text = CStr(Sin(ang * (Text1.Text)))

Case 1
Text1.Text = CStr(Cos(ang * (Text1.Text)))

Case 2
If (Cos(Text1.Text)) <> 0 Then
Text1.Text = CStr(Sin(ang * (Text1.Text)) / Cos(ang * (Text1.Text)))
Else
MsgBox ("illegal,divide by zero")
End If

Case 5
Text1.Text = CStr((Atn(ang * (Text1.Text))) / ang)
End Select

End If
点击按钮时 是无效的 怎么回事呀 ang 应该怎么定义
或者帮忙写一下源程序 谢谢

Answer 1

通用里面
Public ang As Double

Private Sub Form_Load() 里面
ang = 3.1415926 / 180

Answer 2

不知道额，你