Public h As Long
Private Sub C0_Click()
a = Val(C0.Caption)
fac (a)
End Sub
Private Sub C1_Click()
a = Val(C1.Caption)
fac (a)
End Sub
Private Sub C2_Click()
a = Val(C2.Caption)
fac (a)
End Sub
Private Sub C3_Click()
a = Val(C3.Caption)
fac (a)
End Sub
Private Sub C4_Click()
a = Val(C4.Caption)
fac (a)
End Sub
Private Sub C5_Click()
a = Val(C5.Caption)
fac (a)
End Sub
Private Sub C6_Click()
a = Val(C6.Caption)
fac (a)
End Sub
Private Sub C7_Click()
a = Val(C7.Caption)
fac (a)
End Sub
Private Sub C8_Click()
a = Val(C8.Caption)
fac (a)
End Sub
Private Sub C9_Click()
a = Val(C9.Caption)
fac (a)
End Sub
Private Sub cheng_Click()
js.Caption = cheng.Caption
t1.Enabled = False
End Sub
Private Sub chu_Click()
js.Caption = chu.Caption
t1.Enabled = False
End Sub
Private Sub Command1_Click()
Form4.Hide
End Sub
Private Sub dengyu_Click()
X = Val(t1.Text)
Y = Val(t2.Text)
If js.Caption = "×" Then
s = X * Y
t3.Text = s
ElseIf js.Caption = "+" Then
s = X + Y
t3.Text = s
ElseIf js.Caption = "-" Then
s = X - Y
t3.Text = s
ElseIf js.Caption = "÷" Then
If Y = 0 Then
MsgBox "被除数不能为“0”"
Else
s = X / Y
End If
t3.Text = s
End If
h = Val(t3.Text)
js.Caption = ""
t1.Enabled = True
t1.Text = ""
t2.Text = ""
End Sub
Private Sub Dian_Click()
a = dian.Caption
If t1.Enabled = True Then
t1.Text = t1.Text + a
Else
t2.Text = t2.Text + a
End If
End Sub
Private Sub jia_Click()
js.Caption = jia.Caption
t1.Enabled = False
End Sub
Private Sub jian_Click()
js.Caption = jian.Caption
t1.Enabled = False
End Sub
Function fac(a As Double)
If t1.Enabled = True Then
t1.Text = t1.Text + Trim(a)
Else
t2.Text = t2.Text + Trim(a)
End If
End Function
Public Function DecToBin(dec As Long) As String
DecToBin = ""
Do While dec > 0
DecToBin = (dec Mod 2) & DecToBin
dec = dec \ 2
Loop
End Function
Public Function DecToOct(dec As Long) As String
DecToOct = ""
Do While dec > 0
DecToOct = (dec Mod 8) & DecToOct
dec = dec \ 8
Loop
End Function
Private Sub qc_Click()
t3.Text = ""
t1.Text = ""
t2.Text = ""
End Sub
Private Sub sc_Click()
If t1.Enabled = True Then
t1.Text = Trim(Val(t1.Text) \ 10)
Else
t2.Text = Trim(Val(t2.Text) \ 10)
End If
End Sub
只需确定任何有关这方面的参考资料是和目前资料库里的一样，这样做的话会创建出一套录音，录音里的内容会和SQL所约束的描述一样。 就党那里有些关于这科的书，我很难预测地去认真正确地做但是有些基本的东西可以在个短短的指南中被简化，就如这个。 首先，那里有5个部分关于SQL且你应该去接受的： Command Clauses Predicates Operators Aggregate Functions Create From Distinct AND Avg Drop Where Top OR Count Alter Group By NOT Sum Select Having Between Max Insert
