VB课程设计 计算器程序设计(2)

图2

修改键后，各功能键如图3

图3

5

2.代码编辑

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 Command1_Click(Index As Integer) dian = False 'TEXT1显示的是 chr chr = Val(Index) If Text1.Text = \ Text1.Text = chr Else

Text1.Text = Text1.Text + chr End If

NumbumBuf = Val(Text1.Text) 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 \开平方数不能为负数,你小学白上了啊?\ 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 4 'Inx 运算

Text1.Text = Exp(Val(Text1.Text)) Case 5 '指数运算

If Val(Text1.Text) > 0 Then

6

Text1.Text = Log(Val(Text1.Text)) Else

MsgBox \条件错误\错误\ End If

Case 6 '下面两个都为简单三角函数运算 Text1.Text = Sin(Val(Text1.Text)) Case 7

Text1.Text = Cos(Val(Text1.Text)) End Select End Sub

Private Sub Command3_Click()

If Dianal = False Then '定义小数点的代码 Text1.Text = Text1.Text + \ Dianal = True End If End Sub

Private Sub Command4_Click()

Dianal = False '等号键上的代码，方便下面四则运算 Fuhao = False

Select Case FuhaoZhuangtai Case 0

Text1.Text = Val(FirstNumber) + Val(NumbumBuf) Case 1

Text1.Text = Val(FirstNumber) - Val(NumbumBuf) Case 2

Text1.Text = Val(FirstNumber) * Val(NumbumBuf) Case 3

Text1.Text = Val(FirstNumber) / Val(NumbumBuf) End Select

FirstNumber = Text1.Text dian = False 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

7

Private Sub Command6_Click(Index As Integer) If Fuhao = False Then '关与加减乘除的代码 FuhaoZhuangtai = Index Fuhao = True Dianal = False

FirstNumber = NumbumBuf Text1.Text = \ dian = False End If End Sub

Private Sub Command7_Click(Index As Integer) Select Case Index '清零重置的代码 Case 0

Text1.Text = \ dian = False Case 1

Text1.Text = \ NumbumBuf = \ Dianal = False Fuhao = False FirstNumber = \ dian = False End Select End Sub

Private Sub Form_Load() Text1.Text = \ '窗口描述 End Sub

Private Sub fact(N As Integer, F As Double) Dim Mm As Integer '阶乘运算公式 F = 1

For Mm = 1 To N F = F * Mm Next Mm End Sub

8

三 详细设计

Command1 的caption属性改为1。

Command2 的caption属性跟据 index依次改为：平方，开平方，1/x，N!，指数,Inx ,Sin , Cos.

From1的maxtton属性 改为false ，Moveable 属性改为 true。Startupposito属性改为 2-屏幕中心。 Text1的 dateformat属性改为 通用！

9

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库VB课程设计 计算器程序设计(2)在线全文阅读。