vb编程题，各位高手帮帮忙

显示全部楼层 · 2011-12-9 14:21:48

Private Sub Command1_Click()const PI =3.14159If Option1.Value Then Label4.Caption = Sin(Val(Text1.Text) * PI/180) Else Label4.Caption = Cos(Val(Text1.Text) * PI/180)endifEnd Sub...

千问 · 2011-12-9 14:21:48

Private Sub Command1_Click()Const PI = 3.1415926Dim a As SingleLabel1.AutoSize = Truea = Val(Text1.Text)If Option1.Value = True Then Label1.Caption = Sin(a * PI / 180)...

千问 · 2011-12-9 14:21:48

Private Sub Command1_Click()If Option1.Value Then Label4.Caption = Sin(Val(Text1)) Else Label4.Caption = Cos(Val(Text1))End Sub...

千问 · 2011-12-9 14:21:48

好像要用到eval...