打开vb6,新建工程,在from1里加入2个文本框,加一个按钮,双击按钮加入下面代码 Private Sub Command1_Click() If IsNumeric(Text1.Text) Then Dim pi As Double pi = Atn(1) * 4 Dim a As Double a = Val(Text1.Text) * pi / 180 Text2.Text = ...
魔都贤先森2024-03-08
cos十二分之七派求值
cos7π/12=-sinπ/12=(√2-√6)/4
福尔萝卜丝2024-03-03
正弦函数十二分之七派
打开vb6,新建工程,在from1里加入2个文本框,加一个按钮,双击按钮加入下面代码 Private Sub Command1_Click() If IsNumeric(Text1.Text) Then Dim pi As Double pi = Atn(1) * 4 Dim a As Double a = Val(Text1.Text) * pi / 180 Text2.Text = ...