vb作业,多功能计算器,有程序的.docVIP

设计思路 刚开始设计时预计制作一个简单的计算器，可以运行简单的加减乘除即可。可慢慢随着时间的推移以及自己对VB的更加深入了解，越发的感觉VB的妙用以及其功能的强大，于是渐渐深入，查阅资料，一步步的完善和添加计算器的各项功能，另外还附带了一些非计算器的属性，属于点缀吧。 一睹为快 功能简介 多功能计算器在的基础上增加了，支持计算，为了更好的让“”为您服务，请在使用前花分钟浏览。绿色软件，不会在您的系统中留下任何垃圾。软件可以免费使用。Form-1 Dim chr As String Dim Dianal As Boolean Dim Fuhao As Boolean Dim FuhaoZhuangtai As String Dim dian As Boolean Dim F As Double Dim FirstNumber, NumbumBuf As Double Private Sub Form_Load() Text1.Text = 0 End Sub Private Sub Command1_Click(Index As Integer) 输入数据 dian = False chr = Val(Index) If Text1.Text = 0 Then Text1.Text = chr Else Text1.Text = Text1.Text + chr End If NumbumBuf = Val(Text1.Text) End Sub Private Sub Command3_Click() 输入小数点 If Dianal = False Then Text1.Text = Text1.Text + . Dianal = True End If End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 求平方数 Text1.Text = Val(Text1.Text) * Val(Text1.Text) Case 1 开平方 If Text1.Text 0 Then Text1.Text = Sqr(Val(Text1.Text)) Else MsgBox 开平方数不能为负数, , 64 + vbOK End If Case 2 求倒数 If Text1.Text 0 Then Text1.Text = 1 / Val(Text1.Text) Exit Sub Case 3 求阶乘 If Text1.Text 0 Then Call fact(Text1.Text, F) Text1.Text = F Else Exit Sub End If Case 5 求自然对数 If Val(Text1.Text) 0 Then Text1.Text = Log(Val(Text1.Text)) Else MsgBox 条件错误, vbInformation + vbYes, 错误 End If Case 6 求正弦 Text1.Text = Sin((Val(Text1.Text)) * 3.1415926 / 180) Case 7 求余弦 Text1.Text = Cos((Val(Text1.Text)) * 3.1415926 / 180) End Select End Sub Private Sub Command5_Click() 删除一个字符 If dian = False Then dian = True Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) Else dian = False Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End If End Sub Private Sub Command6_Click(Index As Integer) 输入运算符号 If Fuhao = False Then FuhaoZhuangtai = Index Fuhao = True Dianal = False FirstNumber = NumbumBuf Text1.Text = 0 dian = False End If