数据库编程代码

1、我的第一个VBA程序 Option Compare Database Private Sub qingchu_Click() wenben.SetFocus wenben.Text = "" End Sub Private Sub xianshi_Click() wenben.SetFocus wenben.Text = "欢迎你,工商管理班的同学!" End Sub 2、简单计算器 Option Compare Database Option Explicit Dim X, Y As Single Dim Op As String Dim MsgResult As Integer Private Sub cmd000_Click() Textxianshi.SetFocus '让显示文本框获得焦点 If Left(Textxianshi.Text, 1) = "0" Then '利用Left函数判断最左边的数是否为零 Textxianshi.Text = Right(Textxianshi.Text, Len(Textxianshi.Text) - 1) + "0" Else Textxianshi.Text = Textxianshi.Text + "0" End If End Sub Private Sub cmd001_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "1" End Sub Private Sub cmd002_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "2" End Sub Private Sub cmd003_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "3" End Sub Private Sub cmd004_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "4" End Sub Private Sub cmd005_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "5" End Sub Private Sub cmd006_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "6" End Sub Private Sub cmd007_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "7" End Sub Private Sub cmd008_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "8" End Sub Private Sub cmd009_Click() Textxianshi.SetFocus Textxianshi.Text = Textxianshi.Text + "9" End Sub Private Sub cmd00C_Click() Textxianshi.SetFocus Textxianshi.Text = "" End Sub Private Sub cmdcheng_Click() Textxianshi.SetFocus X = CSng(Textxianshi.Text) Textxianshi.Text = "" Op = "*" End Sub Private Sub cmdchu_Click() Textxianshi.SetFocus X = CSng(Textxianshi.Text) Textxianshi.Text = "" Op = "/" End Sub Private Sub cmddeng_Click() Textxianshi.SetFocus Y = CSng(Textxianshi.Text) '记录下第2次所按的数，赋值给Y If Op = "+" Then '判断若按的是加号，则执行加法运算 Textxianshi.Text = CStr(X + Y) End If If Op = "-" Then '判断若按的是减号，则执行加法运算 Textxianshi.Text = CStr(X - Y) End If If Op = "*" Then '判断若按的是乘号，则执行加法运算 Textxianshi.Text = CStr(X * Y) End If If Op = "/" Then '判断若按的是除号，则执行加法运算 If Y <> 0 Then '判断Y是否为零 Textxianshi.Text = CStr(X / Y) 'Y不为零时直接进行计算 Else 'Y为零时的代码，弹出一个对话框提示用户错误 MsgResult = MsgBox("除数为零，不能计算！", vbOKCancel + vbInformation, "警告") End If '上述可选用vbOKonly + vbCritical End If End Sub Private Sub cmddian_Click() Textxianshi.SetFocus If InStr(1, Textxianshi.Text, ".") = 0 Then '判断在显示文本框中是否出现过"." Textxianshi.Text = Textxianshi.Text + "." End If End Sub Private Sub cmdjia_Click() Textxianshi.SetFocus X = CSng(Textxianshi.Text) Textxianshi.Text = "" Op = "+" End Sub Private Sub cmdjian_Click() Textxianshi.SetFocus X = CSng(Textxianshi.Text) Textxianshi.Text = "" Op = "-" End Sub Private Sub Form_Load() Me.Caption = "计算器" End Sub 3、求组合数 Option Compare Database Dim x1 As Integer Dim x2 As Integer Dim x3 As Integer Dim n1 As Integer Dim n2 As Integer Dim n3 As Integer Dim fz As Integer Dim fm As Integer Dim fm1 As Integer Dim fm2 As Integer Dim fm3 As Integer Dim jieguo As Single Private Sub cmd001_Click() Txt001.SetFocus x1 = CInt(Txt001.Text) Txt002.SetFocus x2 = CInt(Txt002.Text) If x1 >= 1 Then fz = 1 For n1 = 1 To x1 Step 1 fz = fz * n1 Next n1 ElseIf x1 = 0 Then fz = 0 Else MsgResult = MsgBox("请输入一个大于或等于零的整数！", vbOKCancel + vbInformation, "警告") End If If x2 < x1 Then fm1 = 1 For n2 = 1 To x2 Step 1 fm1 = fm1 * n2 Next n2 Else MsgResult = MsgBox("你输入的数不符合 规定 关于下班后关闭电源的规定党章中关于入党时间的规定公务员考核规定下载规定办法文件下载宁波关于闷顶的规定 ！", vbOKCancel + vbInformation, "警告") End If x3 = x1 - x2 fm3 = 1 For n3 = 1 To x3 Step 1 fm3 = fm3 * n3 Next n3 If fm1 > 0 And fm3 > 0 Then jieguo = fz / (fm1 * fm3) End If Txt003.SetFocus Txt003.Text = CStr(jieguo) End Sub Private Sub cmd002_Click() Txt001.SetFocus Txt001.Text = "" Txt002.SetFocus Txt002.Text = "" Txt003.SetFocus Txt003.Text = "" End Sub 4、求解一元二次方程 Option Compare Database Dim a As Single Dim b As Single Dim c As Single Dim x1 As Single Dim x2 As Single Private Sub jisuan_Click() txtxishu01.SetFocus a = CSng(txtxishu01.Text) txtxishu02.SetFocus b = CSng(txtxishu02.Text) txtxishu03.SetFocus c = CSng(txtxishu03.Text) If a = 0 Then MsgResult = MsgBox("第一个系数为0不能计算！", vbOKCancel + vbInformation, "警告") ElseIf b * b - 4 * a * c < 0 Then MsgResult = MsgBox("所求方程无解！", vbOKCancel + vbInformation, "警告") ElseIf b * b - 4 * a * c = 0 Then x1 = 0 x2 = 0 Else x1 = (-b + Sqr(b * b - 4 * a * c)) / (2 * a) x2 = (-b - Sqr(b * b - 4 * a * c)) / (2 * a) End If txtjieguo01.SetFocus txtjieguo01.Text = CStr(x1) txtjieguo02.SetFocus txtjieguo02.Text = CStr(x2) End Sub Private Sub qingchu_Click() txtxishu01.SetFocus txtxishu01.Text = "" txtxishu02.SetFocus txtxishu02.Text = "" txtxishu03.SetFocus txtxishu03.Text = "" txtjieguo01.SetFocus txtjieguo01.Text = "" txtjieguo02.SetFocus txtjieguo02.Text = "" End Sub 5、运费 Option Compare Database Dim a As Single Dim b As Single Private Sub cmdjisuan_Click() txtluchen.SetFocus a = CSng(txtluchen.Text) txtdanjia.SetFocus b = CSng(txtdanjia.Text) If a < 0 Then MsgResult = MsgBox("请输入一个大于或等于0的数！", vbOKCancel + vbInformation, "警告") ElseIf a = 0 Then txtyunfei.SetFocus txtyunfei.Text = "0" txtzhekou.SetFocus txtzhekou.Text = "0" ElseIf a > 0 And a < 250 Then txtyunfei.SetFocus txtyunfei.Text = CStr(a * b) txtzhekou.SetFocus txtzhekou.Text = "0" ElseIf a >= 250 And a < 500 Then txtyunfei.SetFocus txtyunfei.Text = CStr(a * b * (1 - 0.02)) txtzhekou.SetFocus txtzhekou.Text = "2" ElseIf a >= 500 And a < 1000 Then txtyunfei.SetFocus txtyunfei.Text = CStr(a * b * (1 - 0.05)) txtzhekou.SetFocus txtzhekou.Text = "5" ElseIf a >= 1000 And a < 2000 Then txtyunfei.SetFocus txtyunfei.Text = CStr(a * b * (1 - 0.08)) txtzhekou.SetFocus txtzhekou.Text = "8" ElseIf a >= 2000 And a < 3000 Then txtyunfei.SetFocus txtyunfei.Text = CStr(a * b * (1 - 0.1)) txtzhekou.SetFocus txtzhekou.Text = "10" Else txtyunfei.SetFocus txtyunfei.Text = CStr(a * b * (1 - 0.15)) txtzhekou.SetFocus txtzhekou.Text = "15" End If txtluchen.SetFocus End Sub Private Sub cmdqingchu_Click() txtluchen.SetFocus txtluchen.Text = "" txtyunfei.SetFocus txtyunfei.Text = "" txtdanjia.SetFocus txtdanjia.Text = "" txtzhekou.SetFocus txtzhekou.Text = "" End Sub