創建三個單選按鈕, 壹個文本,和壹個標簽,,復制以下代碼
'sin cos tan
Private Sub Form_Load()
Text1.Text = "1"
Label1.Caption = ""
Option1.Caption = "sin"
Option2.Caption = "cos"
Option3.Caption = "tan"
Me.Caption = "請輸入角度"
End Sub
Private Sub Option1_Click()
Label1.Caption = "sin值" & Format(Sin(Text1.Text), "0.000")
End Sub
Private Sub Option2_Click()
Label1.Caption = "cos值" & Format(Cos(Text1.Text), "0.000")
End Sub
Private Sub Option3_Click()
Label1.Caption = "tan值" & Format(Tan(Text1.Text), "0.000")
End Sub