求vb计算器代码（只要几个，详见下）

来源：百度知道 编辑：UC知道 时间：2024/05/16 17:10:29
1. 删除前一字符（比如数据显示263，按一下此按钮，数据将显示为26，以此类推）

2. 为什么计算结果中大于-1小于1的小数的0显示不出来（比如结果得0.36，则只显示为.36）

3. 开N次方的代码

注意我做的程序中显示框为label2
4. 将小数化为分数

1.
Private Sub Command1_Click()
If Len(Label2.Caption) > 0 Then
Label2.Caption = Left(Label2.Caption, Len(Label2.Caption) - 1)
End If
End Sub
2.
用format格式化数据，下面是保留2为小数
Label2.Caption = Format(Label2.Caption, "0.00")
3.
对a开n次方
a ^ (1 / n)

Option Explicit
Dim flag As Integer
Dim isClickNumLast As Boolean
Dim isClickOkLast As Boolean
Dim s1 As String
Dim s2 As String
Const pi As Double = 3.14

Private Sub Cmdgut_Click()
Form2.Show
End Sub

Private Sub Cmdjuy_Click()
Text1.Text = Sqr(Val(Text1.Text))
End Sub

Private Sub Cmdvgy_Click()
Form3.Show
End Sub

Private Sub Cdmopl_Click(Index As Integer)
Select Case Index
Case 0

Text1.Text = Sin(Val(Text1.Text) * pi / 180)

Case 1

Text1.Text = Cos(Val(Text1.Text) * pi / 180)

Case 2
If Text1.Text = 0 Then