Abs 函数 Filter函数 LBound 函数 Shell 函数 Array 函数 Int、Fix 函数 LCase 函数 Sin 函数 Asc 函数 Format 函数 Left 函数 SLN 函数 Atn 函数 FormatCurrency函数 Len 函数 Space 函数 。。。。。。

'//ACCESS合成数据 Private Sub Command14_Click() '导入男生体育成绩 On Error Resume Next Dim strfilename As String Dim myCat As New ADOX.Catalog Dim strsql As String Dim mytable As String '指定外部数据库 strfilename = GetFileName("选择mdb文件", "*.mdb", "mdb") Me.MYBOOKPATH = strfilename mytable = "studs" '指定外部库中数据表 strsql = "INSERT INTO 体育" strsql = strsql + " SELECT * " strsql = strsql + " FROM " & mytable & " in '" & strfilename strsql = strsql + "' WHERE sex='男';" Me.Text11 = strsql '将指定外部库中指定表中的数据追加到 [体育] 表中 DoCmd.RunSQL strsql Me.List6.Requery End Sub ......

学生成绩管理ACCESS版 能管理并分析学生入学以来各次考试成绩 记录学生的学习历史，为对学生个别辅导 提供依据。