数据库编程代码.pdfVIP

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) -