《宋书》是一部纪传体断代史著，记述南朝刘宋王朝自刘裕建基至刘准首尾六十年的史实，为沈约所撰。全书一百卷，纪十卷，志三十卷，列传六十卷。作者根据何承天、徐爱等所著宋史旧本，旁采注纪，撰续成书。
纪传部分成于南齐永明六年，诸志当成于隆昌元年之后。全书以资料繁富而著称于史林，为研究刘宋一代历史的基本史料。
各志工程巨大，内容详备，篇幅几占全书之半。志前有《志序》，详述前代修志情况，并上溯各志所记制度源流，可为考补前史缺志之助。《州郡志》记三国以来地理沿革并及东晋以来侨州郡县情况，有补于史事考证。《律历志》全载景初、元嘉、大明三历文字，为历法学的珍贵资料。
《乐志》记叙汉魏及两晋乐府情况，乐府诗章有分类开录，并保存有汉魏以来大量乐府诗篇及乐舞文辞，其中“古辞”多为汉代遗篇，是研究乐府及诗史的重要文献。纪传叙事详密，列目入载二百三十余人。纪传中收录的大量诏令、奏疏、书札及文章，虽冗长，但有多方面的史料价值。
《宋书》的作者沈约，是南朝著名史学家、文学家、声律学家，字休文，吴兴武康人。父沈璞，刘宋时为淮南太守，元嘉末年于皇族争权夺位之乱中被害，沈约时年十三岁。少年时代，沈约横遭家难，潜窜流寓，家境孤贫。他笃志好学，读书昼夜不倦，遂博通群籍，善属诗文。天监十二年卒，年七十三岁，谥曰“隐”，后世亦称“隐侯”。
作者： 老王
AutoCAD 的表(Table)
‘绑定 AutoCAD
Dim I As Integer, J As Integer
Dim oAutoCAD As Object
Call BindAutoCAD(True)
‘打开并绑定文件 D:/Test.dwg
Dim oDraw As Object ‘AutoCAD 多文档之一
Set oDraw = oAutoCAD.Application.Documents.Open(“D:/Test.dwg”)
‘插入表格
Dim oTable As Object
Dim dInsertPoint(2) As Double
dInsertPoint(0) = 12
dInsertPoint(1) = 12
dInsertPoint(2) = 0
Set oTable = oDraw.ModelSpace.AddTable(dInsertPoint, 6, 7, 10, 50) ‘插入点,行列数,单元格高宽
‘调整字体
Call AddTextStyle(“Standard”)
‘填充表格
oTable.SetText 0, 0, “LOAD LIST”
oTable.SetText 1, 0, “Load”
oTable.SetText 2, 0, “Rating(kW)”
oTable.SetText 3, 0, “Factor”
oTable.SetText 4, 0, “Voltage(kV)”
oTable.SetText 5, 0, “Current(A)”
oTable.SetText 1, 1, “潜污泵 A”
oTable.SetText 2, 1, “22”
oTable.SetText 3, 1, “0.8”
oTable.SetText 4, 1, “0.38”
oTable.SetText 5, 1, “=B3/(1.732×B4×B5)” ‘× 改为合法的六星乘号
oTable.SetText 1, 2, “循环泵”
oTable.SetText 2, 2, “37”
oTable.SetText 3, 2, “0.8”
oTable.SetText 4, 2, “0.38”
oTable.SetText 5, 2, “=C3/(1.732×C4×C5)” ‘× 改为合法的六星乘号
oTable.SetText 1, 3, “外输泵”
oTable.SetText 2, 3, “45”
oTable.SetText 3, 3, “0.8”
oTable.SetText 4, 3, “0.38”
oTable.SetText 5, 3, “=D3/(1.732×D4×D5)” ‘× 改为合法的六星乘号
oTable.SetText 1, 4, “管道泵”
oTable.SetText 2, 4, “18.5”
oTable.SetText 3, 4, “0.8”
oTable.SetText 4, 4, “0.38”
oTable.SetText 5, 4, “=E3/(1.732×E4×E5)” ‘× 改为合法的六星乘号
oTable.SetText 1, 5, “潜污泵 B”
oTable.SetText 2, 5, “22”
oTable.SetText 3, 5, “0.8”
oTable.SetText 4, 5, “0.38”
oTable.SetText 5, 5, “=F3/(1.732×F4×F5)” ‘× 改为合法的六星乘号
oTable.SetText 1, 6, “照明箱”
oTable.SetText 2, 6, “20”
oTable.SetText 3, 6, “0.8”
oTable.SetText 4, 6, “0.38”
oTable.SetText 5, 6, “=G3/(1.732×G4×G5)” ‘× 改为合法的六星乘号
‘获取第4行第5列的文字
Debug.Print oTable.GetText(3, 4) ‘单元格序号基于 0
二十四史简介——晋书
《晋书》一百三十卷，包括帝纪十卷，志二十卷，列传七十卷，载记三十卷，记载了从司马懿开始到晋恭帝元熙二年为止，包括西晋和东晋的历史，并用“载记”的形式兼述了十六国割据政权的兴亡。
唐太宗是一位有所作为的君主，他非常重视史书的撰修工作，而在唐太宗以前，有关晋代的史料，没有一家令人满意的。唐太宗在修晋书诏中对各家史著逐一进行了批评。撰写一部系统、完整、旨趣较高的晋史，是唐太宗的一大心愿。贞观二十年他下诏让房玄龄、褚遂良、许敬宗担任监修，组织编写《晋书》。
众人撰写《晋书》，从受命到成书，仅历时两三年。成书时间之所以较短，主要有两个原因，一是《晋书》由于有政府作后盾，人力、物力、财力和图书档案资料都有保证，这些条件，是私人修史无法比拟的。
二是有多种晋史著述可供参考。
由于有蓝本作为依据，成书自然较为容易。
AutoCAD 的块(Block)
‘绑定 AutoCAD
Dim I As Integer, J As Integer
Dim oAutoCAD As Object
Call BindAutoCAD(True)
‘打开并绑定文件 D:/Test.dwg
Dim oDraw As Object ‘AutoCAD 多文档之一
Set oDraw = oAutoCAD.Application.Documents.Open(“D:/Test.dwg”)
‘ 生成块定义
Dim oBlockDef As Object
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
Set oBlockDef = oDraw.Blocks.Add(insertionPnt, “TestBlock”)
‘ 块内添加圆
Dim oCircle As Object
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 0: center(1) = 0: center(2) = 0
radius = 12
Set oCircle = oBlockDef.AddCircle(center, radius)
Debug.Print “Entity Name: ” & oCircle.EntityName
Debug.Print oCircle.Handle
‘ 块内添加单行文字
Dim startPoint(0 To 2) As Double
Dim height As Double
Dim textString As String
Dim oText As Object
startPoint(0) = 15
startPoint(1) = 5
startPoint(2) = 0
height = 6
textString = “A block demo.”
Set oText = oBlockDef.AddText(textString, startPoint, height)
Debug.Print “Entity Name: ” & oText.EntityName
Debug.Print oText.Handle
‘ 插入块(块的实例化)
Dim oBlockRef As Object
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
Set oBlockRef = oDraw.ModelSpace.InsertBlock(insertionPnt, “TestBlock”, 1#, 1#, 1#, 0)
‘ 缩放块实例
Dim basePoint(0 To 2) As Double
Dim scaleFactor As Double
basePoint(0) = 0#
basePoint(1) = 0#
basePoint(2) = 0#
scaleFactor = 10#
Call oBlockRef.ScaleEntity(basePoint, scaleFactor)
‘ 旋转块实例
Dim rotationAngle As Double
basePoint(0) = 0#
basePoint(1) = 0#
basePoint(2) = 0#
rotationAngle = 1.57 ‘弧度
Call oBlockRef.Rotate(basePoint, rotationAngle)
‘ 分解块实例
Dim oSet As Variant
oSet = oBlockRef.Explode()
For I = LBound(oSet) To UBound(oSet)
Debug.Print “Entity Name: ” & oSet(I).EntityName
Debug.Print oSet(I).Handle
Next
‘ 执行 AutoCAD 命令 Zoomextents
oAutoCAD.Zoomextents
二十四史简介——三国志
《三国志》，六十五卷，包括《魏书》三十卷，《蜀书》十五卷，《吴书》二十卷，主要记载魏、蜀、吴三国鼎立时期的历史。
作者陈寿，字承祚，巴西安汉人，生于汉后主刘禅建兴十一年，死于晋惠帝元康七年。他在蜀汉做过官，三十岁时，蜀汉政权灭亡，入晋后做过晋平令、著作郎。
陈寿写《三国志》以前，已出现一些有关魏、吴的史作，如王沈的《魏书》，鱼豢（换）的《魏略》，韦昭的《吴书》等。《三国志》中的《魏书》、《吴书》，主要取材于这些史书。蜀政权没有设置史官，无专人负责搜集材料，编写蜀史。《蜀书》的材料是由陈寿采集和编次的。陈寿写书的时代靠近三国，可资利用的他人成果并不多，加上他是私人著述，没有条件获得大量的文献档案。我们阅读《三国志》时，就会发现陈寿有史料不足的困难，内容显得不够充实。陈寿没有编写志。我们要了解三国时代的典章制度，只好借助于《晋书》。
《三国志》善于叙事，文笔简洁，剪裁得当，当时就受到赞许。与陈寿同时的夏侯湛写作《魏书》，看到《三国志》，认为没有另写新史的必要，就毁弃了自己的著作。后人更是推崇备至，认为在记载三国历史的史书中，独有陈书可以同《史记》、《汉书》相媲美。因此，其他各家的三国史相继泯灭无闻，只有《三国志》一直流传到现在。