惠普台式电脑战66,战99,小欧这几款怎么选?台式电脑,惠普,66,99
用VB编一个计算器 给我你的邮箱,我把工程发过去代码Dim pi As DoubleDim temp As DoubleDim j As IntegerDim te As StringDim yf As StringDim m As BooleanDim f As BooleanPrivate Sub Command1_Click(Index As Integer)If f=True Then Text1=\"If Index=10 ThenText1.Text=Text1.Text&\".ElseText1.Text=Text1.Text&IndexEnd Iff=FalseEnd SubPrivate Sub Command2_Click(Index As Integer)Call kltemp=Text1Text1=\"Text1=Command2(Index).Captionf=Trueyf=Command2(Index).CaptionEnd SubPrivate Sub Command3_Click()If m=True ThenCall klElseSelect Case yfCase\"+Text1=temp+Val(Text1)Case\"-Text1=temp-Val(Text1)Case\"*Text1=temp*Val(Text1)Case\"/If Val(Text1)=0 ThenMsgBox\"除数不为0ElseText1=temp/Val(Text1)End IfEnd SelectEnd IfEnd SubSub kl()If m=True Thena=Val(Replace(Text1,te,\"\"))If te=\"sin\"ThenIf Option1.Value=True ThenText1=Sin(a*pi/180)Elsea=Val(Replace(Text1,\"π/\",\"\"))Text1=Sin(pi/a)End IfElseIf te=\"sprt\"ThenText1=Sqr(a)ElseIf te=\"1/x\"ThenText1=1/aElseIf te=\"%\"ThenText1=a*100。
求用VB编写的计算器 加减乘除 我做好了 ,但是正弦 余弦 正切余切不会,求代码 哈哈 这个 很容易的 就用 最基本的函数 sin()cos()tan()余切的话 1/tan()不过这里的角度 要转换为 弧度 的 有疑问再联系我!