Question

vb怎么制作一个计算器？

Answer 1

控件 名称 Caption 控件 名称 Caption
窗体 Form 1 计算器
按钮 Command 1（0）～Command1（9） Caption 0 ～ 9
按钮 Command6（0） +
按钮 Command 6（1） -
按钮 Command 6（2） *
按钮 Command 6（3） /
按钮 Command 2 退格
按钮 Command 3 清除
按钮 Command 4 .
按钮 Command 5 =

Dim shu1 As Single, shu2 As Single, suanfu As String
'定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符

Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & Command1(Index).Caption
'将command1的单击事件与文本框显示的内容连接

End Sub
Private Sub Command2_Click() '假如输入错误,可每次退后一格
If Text1.Text = "" Then
Exit Sub
End If
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub
Private Sub Command3_Click()
Text1.Text = "" '清除
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "."
If (InStr(Text1.Text, ".") = 1) Then '第一位不能为小数
Text1.Text = ""
End If

If InStr(Text1.Text, ".") < Len(Text1.Text) Then '防止出现两个小数点
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If

End Sub

Private Sub Command5_Click() '开始加减乘除的运算
shu2 = Val(Text1.Text)
Select Case suanfu
Case "+"
Text1.Text = shu1 + shu2
Case "-"
Text1.Text = shu1 - shu2
Case "*"
Text1.Text = shu1 * shu2
Case "/"
If shu2 = 0 Then
Text1.Text = "被除数不可为0"
Else
Text1.Text = shu1 / shu2
End If
End Select
End Sub

Private Sub Command6_Click(Index As Integer)
shu1 = Val(Text1.Text) '将shu1隐藏起来
suanfu = Command6(Index).Caption
Text1.Text = ""
End Sub