下载文档原格式
我用Word做棋盘教学目标：知识与技能：1、认识用表格规划信息的必要性，能够根据需求制作简单的表格，掌握表格的基本修改技术。
2、学会制作表格、调整表格，合并单元格。
过程与方法：利用任务驱动法，演示法，小组合作法学会在word中绘制各种棋盘情感态度与价值观：通过小组合作，增加学生团体协作意识；通过对棋盘的绘制，让学生增加对各种棋类的了解教学重点：1、创建表格。
2、调整表格。
教学难点：调整表格，插入行、列。
教学方法：任务驱动、讲解示范、小组合作探究教学过程：一、情境导入师：老师这里有个字要考考大家。
幻灯片出示“弈”。
师：谁知道这个字念什么？生：yi （很少一部分学生回答）师：那你知道“弈”字是什么意思吗？（看学生反应，有没有能回答上来的）师：看来很少有同学知道它的意思，那么我们一起来看看“弈”字的含义。
幻灯片出示“弈”的意思。
师：弈字最早出现在春秋时期，后来古人下围棋称：对弈，一直延续到今天。
平时也有不少同学经常下棋，大家平时都玩什么棋？生：五子棋，围棋，象棋……师：大家真是多才多艺，会这么多种类的棋，我们下棋首先需要棋盘，今天我们就用word来绘制棋盘。
二、新授1、创建表格师：老师这里有三种大家常玩的棋。
首先，我们来看五子棋，你知道标准的五子棋的棋盘是几行几列吗？（出示五子棋棋盘）生：15行，15列。
师：那我们一起看看如何在word中插入表格吧。
首先，观察word 文档的菜单，有没有有关“表格”的菜单项？生：有。
师：那你看看“表格”菜单里有哪些子菜单？如何插入表格呢？学生尝试操作。
看有没有学生能做出来。
让做出来的学生上机演示。
2、调整表格师：表格成功的插入了，可是它和五子棋的棋盘还并不一样，这个单元格是长方形的，怎么把它拖动成正方形的呢？（可让学生上来尝试操作）学生上前演示操作。
3、认识表格师：表格插入完了，老师这里有个问题想要问问大家（幻灯片展示），你知道横着的红色箭头所指的部分叫什么吗？竖着的箭头所指的部分叫什么？一个格子叫什么？学生回答。
内容：实例棋盘的制作
实例要点：
◆复杂表格的绘制
◆自选图形的绘制及格式设置
实例目的：
通过本例的教学，让学生掌握表格的综合应用：绘制斜线、边框与底纹的设置、自选图形的绘制及格式设置。
制作步骤：
1、表格的制作
步骤1 “表格”→“插入”→“表格”→插入9行8列表格。
步骤2全选→执行“表格”→“表格属性”→指定行高、列宽均为1.8cm。
步骤3 在九宫里画斜线:单击”绘制表格”按钮→顺次将各斜线画毕。
2、调整表格
步骤1 合并单元格：选中欲合并的单元格，单击“合并单元格”按钮，合并单元格。
步骤2 设置外框线：单击“表格与边框”工具栏之“线型”下拉框→选择“外粗内细”线型→单击“外部框线”按钮.
步骤3设置底纹：全选→单击“表格与边框”工具栏之“底纹颜色”下拉框→选择“浅黄”。
3、绘制棋子
步骤1单击“绘图”工具栏上的“椭圆”按钮,同时按住shift键，在编辑区绘制一个圆→复制五个圆→将填充颜色设为：“填充颜色”→“填充效果”→“纹理”设为“栎木”→线条颜色设置：红方设为红色，黑方设为黑色。
步骤2 右击各棋子→“添加文字”：帅、将，车、兵、卒，并转换为繁体→分别设置“字体颜色”为红色与黑色。
步骤3将各棋子的版式设置为“紧密型”→并拖至相应位置。
这样，一副精美的棋盘就算大功告成。
举一反三
本例通过绘制棋盘，将Word中的部分功能很好地综合运用起来。
实际上，生活中绝大多数的案例都可以用Word做出来。
实例效果（附后）。
wps怎么做表格教程WPS是一款常用的办公软件，具有强大的表格功能。
下面将为您详细介绍如何使用WPS做表格。
第一步，打开WPS软件并选择“表格”功能。
在WPS软件界面的左上角，有一个“表格”按钮，点击即可进入表格编辑界面。
第二步，选择合适的表格样式。
WPS提供了多种不同的表格样式供选择，可以根据需求选择合适的样式。
点击“样式”按钮，即可浏览并选择自己喜欢的表格样式。
第三步，设置表格标题。
在表格的第一行，通常是用来设置表格的标题。
可以将鼠标放在第一行的任意一个单元格上，然后输入相应的标题文字。
第四步，填写数据。
在表格的主体部分，可以输入需要展示的数据。
可以通过鼠标点击相应的单元格，然后输入数据，或者直接复制粘贴已有的数据。
第五步，调整表格格式。
在WPS中，可以对表格进行各种格式调整，包括字体样式、字体大小、文字对齐方式等。
选中需要调整的单元格，然后点击“格式”按钮，即可进行相应的调整。
第六步，添加公式和函数。
在表格中，有时候需要进行一些计算，可以使用WPS的公式和函数功能。
在需要进行计算的单元格里，使用等号开始，然后输入公式或者函数表达式。
第七步，插入图表。
WPS也提供了丰富的图表功能，可以在表格中插入各种类型的图表。
选中需要插入图表的数据范围，然后点击“插入”按钮，在弹出的菜单中选择合适的图表类型。
第八步，调整表格布局。
有时候，需要对表格的布局进行调整，可以调整表格的行高、列宽或者合并、拆分单元格。
选中需要调整的行或者列，然后点击“行”或者“列”按钮，在弹出的菜单中选择相应的调整方式。
第九步，保存表格。
在编辑完成后，需要保存表格。
点击界面左上角的“文件”按钮，然后选择“保存”命令，即可把表格保存到指定的位置。
最后，关闭WPS软件。
当不再需要编辑表格时，可以点击界面右上角的“X”按钮，或者选择“文件” - “退出”命令，退出WPS软件。
以上就是使用WPS做表格的基本步骤。
通过这些简单的操作，您可以轻松地创建、编辑和保存自己的表格。
wps工作表格制作教程WPS工作表格是一款功能强大、操作简便的电子表格软件。
它具备多样的功能和工具，可用于制作各种类型的表格，如财务报表、数据统计表、项目进度表等。
下面是一个简单的WPS工作表格制作教程，帮助您快速上手该软件。
首先，在启动WPS软件后，点击新建按钮选择“表格”来创建一个新的工作表格文件。
接下来，在工作表格上设置合适的列宽和行高。
您可以通过拖动列或行的边界来调整它们的大小，或者可以在菜单栏的“格式”选项卡中选择“列宽”或“行高”来精确设置。
然后，在表格的顶部添加标题栏。
将鼠标移动至第一行的任意单元格上，点击右键并选择“插入”，然后在下拉菜单中选择“行”。
此时，会在当前行上方插入一行，作为标题栏。
您可以在这些单元格中输入相应的标题，用于表达每一列的含义。
接着，填充表格内容。
在从第二行开始的每一行中输入或粘贴数据，并在每一列中进行必要的计算。
你可以使用基本的数学运算符（+，-，*，/）进行计算操作。
同时，可以根据需要调整字体、背景颜色、边框样式等来优化表格的外观。
此外，您还可以使用一些高级功能来提高表格的可读性和操作性。
例如，可以使用“数据验证”功能设置某些单元格的输入范围和类型，以防止输入错误。
同时，您可以使用“排序”和“筛选”功能对数据进行排序和筛选，以便更方便地查找和分析数据。
最后，在制作完成后，您可以选择将表格保存为WPS工作表格文件，以便于日后的编辑和使用。
同时，您还可以将表格导出为其他格式，如PDF、Excel等，以便于与他人共享或在其他软件中使用。
综上所述，WPS工作表格提供了丰富的功能和工具，使得表格制作变得简单而灵活。
通过此教程，您可以迅速掌握WPS 工作表格的使用方法，从而更高效地处理和分析数据。
无论是在家庭还是工作场所，WPS工作表格都是一款实用的工具，助您事半功倍。
Excel制作象棋vba源代码' The algorithm of judge and urgentpoint function are exported from one VC program which I downloaded from web.' Sorry I can't remebered the program and the author name.' The original VC program have three options for different level. I simplized it to the hardest one in this VBA sample.'Dim m_Board(17, 17) As IntegerPrivate Type Cpointx As Integery As IntegerEnd TypeDim m_nType As IntegerDim iWho As IntegerPrivate Sub Excelba_Click()End SubPrivate Sub cmdStart_Click()Cells(17, 1) = "Start"Cells(17, 3) = 0 ' total number of stones'clear the boardRange(Cells(17 + 1, 1), Cells(17 + 15, 15)).Value = 0'clear all picture in this sheet except for two orginal pictureFor Each ipic In ActiveSheet.ShapesIf <> "Picture 9" And <> "Picture 10" And Left(, 7) = "Picture" Thenipic.DeleteEnd IfNext'start itIf optComputer.Value = True ThenCall drawit(8, 8, 1)Call setarray(8, 8, 1)Cells(17, 3) = 1End IfEnd SubPrivate Sub optComputer_Click()Cells(17, 1) = ""Cells(17, 2) = 2Cells(17, 3) = 0End SubPrivate Sub optYou_Click()Cells(17, 1) = ""Cells(17, 2) = 1Cells(17, 3) = 0End SubPrivate Function confArray(ix As Integer, iy As Integer) As IntegerconfArray = Cells(17 + ix, iy)End FunctionPrivate Sub setarray(ix As Integer, iy As Integer, iz As Integer)Cells(17 + ix, iy) = izEnd SubPrivate Sub drawit(ix As Integer, iy As Integer, iz As Integer)Dim strP As StringIf ix < 1 Or ix > 15 Or iy < 1 Or iy > 15 Or iz < 1 Or iz > 2 ThenMsgBox "Wrong Entry Number, please check it!", vbCritical, "Wrong Entry"EndEnd IfIf iz = 1 ThenstrP = "Picture 9"ElseIf iz = 2 ThenstrP = "Picture 10"End IfApplication.ScreenUpdating = FalseActiveSheet.Shapes(strP).SelectSelection.CopyCells(16, 4).SelectActiveSheet.Paste-(Selection.Left - Cells(ix, iy).Left) + 1-(Selection.Top - Cells(ix, iy).Top) + 1Cells(17, 4).SelectApplication.ScreenUpdating = TrueEnd SubPrivate Function UrgentPoint(ByVal iz As Integer) As StringDim i, i0, j, j0 As IntegerDim ptUrgent(2025) As CpointDim nGrade1 As IntegerDim nGrade2 As IntegerDim nUrgent1 As IntegerDim nUrgent2 As IntegerDim nUrgent As IntegerDim iEnd As IntegerDim iStep As IntegerDim jEnd As IntegerDim jStep As IntegerFor i = 0 To 2024ptUrgent(i).x = -1ptUrgent(i).y = -1Next iIf ((Rnd() * 32767) Mod 2) = 0 Theni0 = 0Elsei0 = 14End IfIf i0 = 0 TheniEnd = 14iStep = 1ElseiEnd = 0iStep = -1End IfFor i = i0 To iEnd Step iStepIf ((Rnd() * 32767) Mod 2) = 0 Thenj0 = 0Elsej0 = 14End IfIf j0 = 0 ThenjEnd = 14jStep = 1ElsejEnd = 0jStep = -1End IfFor j = j0 To jEnd Step jStepIf (m_Board(i, j) = 0) ThennGrade1 = Judge(i, j, iz)nGrade2 = Judge(i, j, iz + 1)Select Case (nGrade1)Case 0nUrgent1 = 0Case 1nUrgent1 = 2Case 2nUrgent1 = 4Case 3nUrgent1 = 5Case 4nUrgent1 = 8Case 5nUrgent1 = 10Case 6nUrgent1 = 11nUrgent1 = 12 Case 8nUrgent1 = 13 Case 9nUrgent1 = 14 Case 10nUrgent1 = 15 Case 11nUrgent1 = 16 Case 12nUrgent1 = 17 Case 13nUrgent1 = 18 Case 14nUrgent1 = 19 Case 15nUrgent1 = 20 Case 16nUrgent1 = 32 Case 17nUrgent1 = 34 Case 18nUrgent1 = 36 Case 19nUrgent1 = 38 Case 20nUrgent1 = 40 Case ElsenUrgent1 = 40 End SelectSelect Case (nGrade2)Case 0nUrgent2 = 1 Case 1nUrgent2 = 3 Case 2nUrgent2 = 6 Case 3nUrgent2 = 7 Case 4nUrgent2 = 9 Case 5nUrgent2 = 21nUrgent2 = 22Case 7nUrgent2 = 23Case 8nUrgent2 = 24Case 9nUrgent2 = 25Case 10nUrgent2 = 26Case 11nUrgent2 = 27Case 12nUrgent2 = 28Case 13nUrgent2 = 29Case 14nUrgent2 = 30Case 15nUrgent2 = 31Case 16nUrgent2 = 33Case 17nUrgent2 = 35Case 18nUrgent2 = 37Case 19nUrgent2 = 39Case 20nUrgent2 = 41Case ElsenUrgent2 = 41End SelectnUrgent = WorksheetFunction.Min(nUrgent1, nUrgent2) * 45 + WorksheetFunction.Max(nUrgent1, nUrgent2)ptUrgent(nUrgent).x = iptUrgent(nUrgent).y = jEnd IfNext jNext iFor i = 0 To 2024If ((ptUrgent(i).x <> -1) And (ptUrgent(i).y <> -1)) ThenExit ForEnd IfNext iIf (ptUrgent(i).x = -1 And ptUrgent(i).y = -1) ThenMsgBox "Make Draw"End IfUrgentPoint = ptUrgent(i).x & "|" & ptUrgent(i).yEnd FunctionPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Dim ix As IntegerDim iy As IntegerDim iz As IntegerDim ix1 As IntegerDim iy1 As IntegerDim stmp As StringDim i As IntegerDim j As IntegerIf > 1 Or Target.Areas(1).Columns.Count > 1 Or Target.Areas(1).Rows.Count > 1 Then Exit SubEnd Ifix = Target.Areas(1).Rowiy = Target.Areas(1).Columniz = confArray(ix, iy)If ix > 15 Or iy > 15 ThenExit SubEnd IfIf iz <> 1 And iz <> 2 And Cells(17, 1) = "Start" ThenFor i = 0 To 14For j = 0 To 14m_Board(j, i) = Cells(17 + i + 1, j + 1)Next jNext iCall drawit(ix, iy, 2)Call setarray(ix, iy, 2)m_Board(iy - 1, ix - 1) = 2Call Judge(iy - 1, ix - 1, 2)Call ringIf Cells(17, 1) = "Start" Thenstmp = UrgentPoint(1)iy1 = Left(stmp, InStr(1, stmp, "|") - 1)ix1 = Mid(stmp, InStr(1, stmp, "|") + 1)Call drawit(ix1 + 1, iy1 + 1, 1)Call setarray(ix1 + 1, iy1 + 1, 1)m_Board(iy1, ix1) = 1Call Judge(iy1, ix1, 1)Call ringEnd IfEnd IfEnd SubPrivate Function Judge(ByVal nX As Integer, ByVal nY As Integer, ByVal cValue As Integer) As IntegerDim nGrade As IntegerDim i As IntegerDim j As IntegerDim k As IntegerDim l As IntegerDim nXStart As IntegerDim nXEnd As IntegerDim nYStart As IntegerDim nYEnd As IntegerDim nXYStart As IntegerDim nXYEnd As IntegerDim nYXStart As IntegerDim nYXEnd As IntegerDim nXStartAdd As IntegerDim nYStartAdd As IntegerDim nXYStartAdd As IntegerDim nYXStartAdd As IntegerDim nXEndAdd As IntegerDim nYEndAdd As IntegerDim nXYEndAdd As IntegerDim nYXEndAdd As IntegerDim bXStartEmpty As BooleanDim bXEndEmpty As BooleanDim bXStartEmpty1 As BooleanDim bXEndEmpty1 As BooleanDim bYStartEmpty As BooleanDim bYEndEmpty As BooleanDim bYStartEmpty1 As BooleanDim bYEndEmpty1 As BooleanDim bXYStartEmpty As BooleanDim bXYEndEmpty As BooleanDim bXYStartEmpty1 As BooleanDim bXYEndEmpty1 As BooleanDim bYXStartEmpty As BooleanDim bYXEndEmpty As BooleanDim bYXStartEmpty1 As BooleanDim bYXEndEmpty1 As BooleannXStart = nXnXEnd = nXnYStart = nYnYEnd = nYnXYStart = nXnXYEnd = nXnYXStart = nXnYXEnd = nXnXStartAdd = 0nYStartAdd = 0nXYStartAdd = 0nYXStartAdd = 0nXEndAdd = 0nYEndAdd = 0nXYEndAdd = 0nYXEndAdd = 0bXStartEmpty = FalsebYStartEmpty = FalsebXYStartEmpty = FalsebYXStartEmpty = FalsebXEndEmpty = FalsebYEndEmpty = FalsebXYEndEmpty = FalsebYXEndEmpty = FalsebXStartEmpty1 = FalsebYStartEmpty1 = FalsebXYStartEmpty1 = FalsebYXStartEmpty1 = FalsebXEndEmpty1 = FalsebYEndEmpty1 = FalsebXYEndEmpty1 = FalsebYXEndEmpty1 = FalseFor i = nX - 1 To 0 Step -1 ' <-If m_Board(i, nY) = cV alue ThennXStart = iElseIf m_Board(i, nY) = 0 ThenbXStartEmpty = TrueFor j = i - 1 To 0 Step -1 ' <-If m_Board(j, nY) = cValue ThennXStartAdd = i - jElseIf m_Board(j, nY) = 0 ThenbXStartEmpty1 = TrueExit ForElseExit ForEnd IfNext jExit ForElseExit ForEnd IfNext iFor i = nX + 1 To 14 ' ->If m_Board(i, nY) = cV alue ThennXEnd = iElseIf m_Board(i, nY) = 0 ThenbXEndEmpty = TrueFor j = i + 1 To 14 ' ->If m_Board(j, nY) = cValue ThennXEndAdd = j - iElseIf m_Board(j, nY) = 0 ThenbXEndEmpty1 = TrueExit ForElseExit ForEnd IfNext jExit ForElseExit ForEnd IfNext iFor i = nY - 1 To 0 Step -1 ' ^|^If m_Board(nX, i) = cV alue ThennYStart = iElseIf m_Board(nX, i) = 0 ThenbYStartEmpty = TrueFor j = i - 1 To 0 Step -1 ' <-If m_Board(nX, j) = cValue ThennYStartAdd = i - jElseIf m_Board(nX, j) = 0 ThenbYStartEmpty1 = TrueExit ForElseExit ForEnd IfNext jExit ForElseExit ForEnd IfNext iFor i = nY + 1 To 14 ' v|vIf m_Board(nX, i) = cV alue ThennYEnd = iElseIf m_Board(nX, i) = 0 ThenbYEndEmpty = TrueFor j = i + 1 To 14 ' ->If m_Board(nX, j) = cValue ThennYEndAdd = j - iElseIf m_Board(nX, j) = 0 ThenbYEndEmpty1 = TrueExit ForElseExit ForEnd IfNext jExit ForElseExit ForEnd IfNext ii = nX - 1j = nY + 1Do While i >= 0 And j < 15'j++If m_Board(i, j) = cValue ThennXYStart = iElseIf m_Board(i, j) = 0 ThenbXYStartEmpty = Truek = i - 1l = j + 1Do While k >= 0 And l < 15If m_Board(k, l) = cValue ThennXYStartAdd = i - kElseIf m_Board(k, l) = 0 ThenbXYStartEmpty1 = TrueExit DoElseExit DoEnd Ifk = k - 1l = l + 1LoopElseExit DoEnd Ifi = i - 1j = j + 1Loopi = nX + 1j = nY - 1Do While i < 15 And j >= 0'j--If m_Board(i, j) = cValue ThennXYEnd = iElseIf m_Board(i, j) = 0 ThenbXYEndEmpty = Truek = i + 1l = j - 1Do While l >= 0 And k < 15If m_Board(k, l) = cValue ThennXYEndAdd = i - kElseIf m_Board(k, l) = 0 ThenbXYEndEmpty1 = TrueExit DoElseExit DoEnd Ifk = k + 1l = l - 1LoopExit DoElseExit DoEnd Ifi = i + 1j = j - 1Loopi = nX - 1j = nY - 1Do While i >= 0 And j >= 0'j--If m_Board(i, j) = cValue ThennYXStart = iElseIf m_Board(i, j) = 0 ThenbYXStartEmpty = Truel = j - 1Do While l >= 0 And k >= 0If m_Board(k, l) = cValue ThennYXStartAdd = i - kElseIf m_Board(k, l) = 0 ThenbYXStartEmpty1 = TrueExit DoElseExit DoEnd Ifk = k - 1l = l - 1LoopExit DoElseExit DoEnd Ifi = i - 1j = j - 1Loopi = nX + 1j = nY + 1Do While i < 15 And j < 15'j--If m_Board(i, j) = cValue ThennYXEnd = iElseIf m_Board(i, j) = 0 ThenbYXEndEmpty = Truek = i - 1l = j - 1Do While l < 15 And k < 15If m_Board(k, l) = cValue ThennYXEndAdd = i - kElseIf m_Board(k, l) = 0 ThenbYXEndEmpty1 = TrueExit DoElseExit DoEnd Ifk = k + 1l = l + 1LoopExit DoElseExit DoEnd Ifi = i + 1j = j + 1LoopnXStep = nXEnd - nXStart + 1nXStep = nXEnd - nXStart + 1nYStep = nYEnd - nYStart + 1nXYStep = nXYEnd - nXYStart + 1nYXStep = nYXEnd - nYXStart + 1Dim bX_4 As BooleanDim bY_4 As BooleanDim bXY_4 As BooleanDim bYX_4 As BooleanDim bX4 As BooleanDim bY4 As BooleanDim bXY4 As BooleanDim bYX4 As BooleanbX_4 = (nXStep = 4) And (bXStartEmpty And bXEndEmpty)bY_4 = (nYStep = 4) And (bYStartEmpty And bYEndEmpty)bXY_4 = (nXYStep = 4) And (bXYStartEmpty And bXYEndEmpty) bYX_4 = (nYXStep = 4) And (bYXStartEmpty And bYXEndEmpty) bX4 = (nXStep = 4) And (bXStartEmpty Or bXEndEmpty)bY4 = (nYStep = 4) And (bYStartEmpty Or bYEndEmpty)bXY4 = (nXYStep = 4) And (bXYStartEmpty Or bXYEndEmpty) bYX4 = (nYXStep = 4) And (bYXStartEmpty Or bYXEndEmpty) Dim bX_3 As BooleanDim bY_3 As BooleanDim bXY_3 As BooleanDim bYX_3 As BooleanDim bX3 As BooleanDim bY3 As BooleanDim bXY3 As BooleanDim bYX3 As BooleanbX_3 = (nXStep = 3) And (bXStartEmpty And bXEndEmpty)bY_3 = (nYStep = 3) And (bYStartEmpty And bYEndEmpty)bXY_3 = (nXYStep = 3) And (bXYStartEmpty And bXYEndEmpty) bYX_3 = (nYXStep = 3) And (bYXStartEmpty And bYXEndEmpty) bX3 = (nXStep = 3) And (bXStartEmpty Or bXEndEmpty)bY3 = (nYStep = 3) And (bYStartEmpty Or bYEndEmpty)bXY3 = (nXYStep = 3) And (bXYStartEmpty Or bXYEndEmpty) bYX3 = (nYXStep = 3) And (bYXStartEmpty Or bYXEndEmpty) Dim bX_2 As BooleanDim bY_2 As BooleanDim bXY_2 As BooleanDim bYX_2 As BooleanDim bX2 As BooleanDim bY2 As BooleanDim bXY2 As BooleanDim bYX2 As BooleanbX_2 = (nXStep = 2) And (bXStartEmpty And bXEndEmpty)bY_2 = (nYStep = 2) And (bYStartEmpty And bYEndEmpty)bXY_2 = (nXYStep = 2) And (bXYStartEmpty And bXYEndEmpty) bYX_2 = (nYXStep = 2) And (bYXStartEmpty And bYXEndEmpty) bX2 = (nXStep = 2) And (bXStartEmpty Or bXEndEmpty)bY2 = (nYStep = 2) And (bYStartEmpty Or bYEndEmpty)bXY2 = (nXYStep = 2) And (bXYStartEmpty Or bXYEndEmpty) bYX2 = (nYXStep = 2) And (bYXStartEmpty Or bYXEndEmpty) Dim bX_1 As BooleanDim bY_1 As BooleanDim bXY_1 As BooleanDim bYX_1 As BooleanbX_1 = (nXStep = 1) And (bXStartEmpty And bXEndEmpty)bY_1 = (nYStep = 1) And (bYStartEmpty And bYEndEmpty)bXY_1 = (nXYStep = 1) And (bXYStartEmpty And bXYEndEmpty) bYX_1 = (nYXStep = 1) And (bYXStartEmpty And bYXEndEmpty) Dim nXAdd As IntegerDim nYAdd As IntegerDim nXYAdd As IntegerDim nYXAdd As IntegernXAdd = 0nYAdd = 0nXYAdd = 0nYXAdd = 0If nXEndAdd >= nXStartAdd ThennXAdd = nXEndAddbXEndEmpty = bXEndEmpty1ElsenXAdd = nXStartAddbXStartEmpty = bXStartEmpty1End IfIf (nYEndAdd >= nYStartAdd) ThennYAdd = nYEndAddbYEndEmpty = bYEndEmpty1ElsenYAdd = nYStartAddbYStartEmpty = bYStartEmpty1End IfIf (nXYEndAdd >= nXYStartAdd) ThennXYAdd = nXYEndAddbXYEndEmpty = bXYEndEmpty1ElsenXYAdd = nXYStartAddbXYStartEmpty = bXYStartEmpty1End IfIf (nYXEndAdd >= nYXStartAdd) ThennYXAdd = nYXEndAddbYXEndEmpty = bYXEndEmpty1ElsenYXAdd = nYXStartAddbYXStartEmpty = bYXStartEmpty1End IfDim b1X_4 As BooleanDim b1Y_4 As BooleanDim b1XY_4 As BooleanDim b1YX_4 As BooleanDim b1X4 As BooleanDim b1Y4 As BooleanDim b1XY4 As BooleanDim b1YX4 As Booleanb1X_4 = (nXStep + nXAdd >= 4) And (bXStartEmpty And bXEndEmpty)b1Y_4 = (nYStep + nY Add >= 4) And (bYStartEmpty And bYEndEmpty)b1XY_4 = (nXYStep + nXYAdd >= 4) And (bXYStartEmpty And bXYEndEmpty) b1YX_4 = (nYXStep + nYXAdd >= 4) And (bYXStartEmpty And bYXEndEmpty) b1X4 = (nXStep + nXAdd >= 4) And (bXStartEmpty Or bXEndEmpty)b1Y4 = (nYStep + nY Add >= 4) And (bYStartEmpty Or bYEndEmpty)b1XY4 = (nXYStep + nXY Add >= 4) And (bXYStartEmpty Or bXYEndEmpty)b1YX4 = (nYXStep + nYXAdd >= 4) And (bYXStartEmpty Or bYXEndEmpty) Dim b1X_3 As BooleanDim b1Y_3 As BooleanDim b1XY_3 As BooleanDim b1YX_3 As Booleanb1X_3 = (nXStep + nXAdd >= 3) And (bXStartEmpty And bXEndEmpty)b1Y_3 = (nYStep + nY Add >= 3) And (bYStartEmpty And bYEndEmpty)b1XY_3 = (nXYStep + nXYAdd >= 3) And (bXYStartEmpty And bXYEndEmpty) b1YX_3 = (nYXStep + nYXAdd >= 3) And (bYXStartEmpty And bYXEndEmpty) m_nType = -1'////////If (nXStep >= 5) Or (nYStep >= 5) Or (nXYStep >= 5) Or (nYXStep >= 5) Then nGrade = 0m_nType = 0ElseIf (bX_4 Or bY_4 Or bXY_4 Or bYX_4) ThennGrade = 1m_nType = 1ElseIf ((bX4 And (bY4 Or bXY4 Or bYX4 Or b1Y4 Or b1XY4 Or b1YX4)) Or _(bY4 And (bX4 Or bXY4 Or bYX4 Or b1X4 Or b1XY4 Or b1YX4)) Or _(bXY4 And (bY4 Or bX4 Or bYX4 Or b1Y4 Or b1X4 Or b1YX4)) Or _(bYX4 And (bY4 Or bXY4 Or bX4 Or b1Y4 Or b1XY4 Or b1X4)) Or _(b1X4 And (bY4 Or bXY4 Or bYX4 Or b1Y4 Or b1XY4 Or b1YX4)) Or _(b1Y4 And (bX4 Or bXY4 Or bYX4 Or b1X4 Or b1XY4 Or b1YX4)) Or _(b1XY4 And (bY4 Or bX4 Or bYX4 Or b1Y4 Or b1X4 Or bYX4)) Or _(b1YX4 And (bY4 Or bXY4 Or bX4 Or b1Y4 Or b1XY4 Or b1X4))) Then nGrade = 2m_nType = 1ElseIf ((bX4 And (bY_3 Or bXY_3 Or bYX_3 Or b1Y_3 Or b1XY_3 Or b1YX_3)) Or _ (bY4 And (bX_3 Or bXY_3 Or bYX_3 Or b1X_3 Or b1XY_3 Or b1YX_3)) Or _(bXY4 And (bY_3 Or bX_3 Or bYX_3 Or b1Y_3 Or b1X_3 Or b1YX_3)) Or _(bYX4 And (bY_3 Or bXY_3 Or bX_3 Or b1Y_3 Or b1XY_3 Or b1X_3)) Or _(b1X4 And (bY_3 Or bXY_3 Or bYX_3 Or b1Y_3 Or b1XY_3 Or b1YX_3)) Or _(b1Y4 And (bX_3 Or bXY_3 Or bYX_3 Or b1X_3 Or b1XY_3 Or b1YX_3)) Or _(b1XY4 And (bY_3 Or bX_3 Or bYX_3 Or b1Y_3 Or b1X_3 Or b1YX_3)) Or _(b1YX4 And (bY_3 Or bXY_3 Or bX_3 Or b1Y_3 Or b1XY_3 Or b1X_3))) ThennGrade = 3m_nType = 1ElseIf ((bX_3 And (bY_3 Or bXY_3 Or bYX_3 Or b1Y_3 Or b1XY_3 Or b1YX_3)) Or _ (bY_3 And (bX_3 Or bXY_3 Or bYX_3 Or b1X_3 Or b1XY_3 Or b1YX_3)) Or _(bXY_3 And (bY_3 Or bX_3 Or bYX_3 Or b1Y_3 Or b1X_3 Or b1YX_3)) Or _(bYX_3 And (bY_3 Or bXY_3 Or bX_3 Or b1Y_3 Or b1XY_3 Or b1X_3)) Or _(b1X_3 And (bY_3 Or bXY_3 Or bYX_3 Or b1Y_3 Or b1XY_3 Or b1YX_3)) Or _(b1Y_3 And (bX_3 Or bXY_3 Or bYX_3 Or b1X_3 Or b1XY_3 Or b1YX_3)) Or _(b1XY_3 And (bY_3 Or bX_3 Or bYX_3 Or b1Y_3 Or b1X_3 Or b1YX_3)) Or _(b1YX_3 And (bY_3 Or bXY_3 Or bX_3 Or b1Y_3 Or b1XY_3 Or b1X_3))) ThennGrade = 4m_nType = 2ElseIf ((bXY4 And (bYX_2 Or bY_2 Or bX_2)) Or _(bYX4 And (bXY_2 Or bY_2 Or bX_2)) Or _(bX4 And (bXY_2 Or bYX_2 Or bY_2)) Or _(bY4 And (bXY_2 Or bYX_2 Or bX_2))) ThennGrade = 5m_nType = 1ElseIf ((bXY4 And (bYX3 Or bY3 Or bX3)) Or _(bYX4 And (bXY3 Or bY3 Or bX3)) Or _(bX4 And (bXY3 Or bYX3 Or bY3)) Or _(bY4 And (bXY3 Or bYX3 Or bX3))) Then nGrade = 6m_nType = 1ElseIf ((bXY4 And (bYX_1 Or bY_1 Or bX_1)) Or _(bYX4 And (bXY_1 Or bY_1 Or bX_1)) Or _(bX4 And (bXY_1 Or bYX_1 Or bY_1)) Or _(bY4 And (bXY_1 Or bYX_1 Or bX_1))) Then nGrade = 7m_nType = 2ElseIf ((bXY4 And (bYX2 Or bY2 Or bX2)) Or _(bYX4 And (bXY2 Or bY2 Or bX2)) Or _(bX4 And (bXY2 Or bYX2 Or bY2)) Or _(bY4 And (bXY2 Or bYX2 Or bX2))) Then nGrade = 8m_nType = 1ElseIf (bXY4 Or bYX4 Or bX4 Or bY4) ThennGrade = 9m_nType = 1ElseIf ((bXY_3 And (bYX_2 Or bY_2 Or bX_2)) Or _(bYX_3 And (bXY_2 Or bY_2 Or bX_2)) Or _(bX_3 And (bXY_2 Or bYX_2 Or bY_2)) Or _(bY_3 And (bXY_2 Or bYX_2 Or bX_2))) Then nGrade = 10m_nType = 2ElseIf ((bXY_3 And (bYX3 Or bY3 Or bX3)) Or _(bYX_3 And (bXY3 Or bY3 Or bX3)) Or _(bX_3 And (bXY3 Or bYX3 Or bY3)) Or _(bY_3 And (bXY3 Or bYX3 Or bX3))) Then nGrade = 11m_nType = 2ElseIf ((bXY_3 And (bYX_1 Or bY_1 Or bX_1)) Or _(bYX_3 And (bXY_1 Or bY_1 Or bX_1)) Or _(bX_3 And (bXY_1 Or bYX_1 Or bY_1)) Or _(bY_3 And (bXY_1 Or bYX_1 Or bX_1))) Then nGrade = 12m_nType = 2ElseIf ((bXY_3 And (bYX2 Or bY2 Or bX2)) Or _(bYX_3 And (bXY2 Or bY2 Or bX2)) Or _(bX_3 And (bXY2 Or bYX2 Or bY2)) Or _(bY_3 And (bXY2 Or bYX2 Or bX2))) ThennGrade = 13m_nType = 2ElseIf (bXY_3 Or bYX_3 Or bX_3 Or bY_3) ThennGrade = 14m_nType = 2ElseIf (bXY_2 Or bYX_2 Or bX_2 Or bY_2) ThennGrade = 16ElseIf (bXY3 Or bYX3 Or bX3 Or bY3) ThennGrade = 17ElseIf (bXY2 Or bYX2 Or bX2 Or bY2) ThennGrade = 18ElseIf (bXY_1 Or bYX_1 Or bX_1 Or bY_1) ThennGrade = 19ElsenGrade = 20End IfIf (nGrade > 15) ThenIf (((nX - 2) >= 0) And ((nY - 2) >= 0)) ThenIf ((m_Board(nX, nY - 1) = 0 Or m_Board(nX, nY - 1) = cValue) And _(m_Board(nX + 1, nY) = 0 Or m_Board(nX + 1, nY) = cValue) And _(m_Board(nX, nY + 1) = 0 Or m_Board(nX, nY + 1) = cValue) And _(m_Board(nX - 1, nY) = 0 Or m_Board(nX - 1, nY) = cValue) And _((nX + 2 < 15 And nY - 2 >= 0 And (m_Board(nX + 2, nY - 2) = 0 Or m_Board(nX + 2, nY - 2) = cValue) And _m_Board(nX, nY - 2) = cValue And m_Board(nX + 1, nY - 1) = cValue And m_Board(nX + 2, nY) = cValue) Or _(nX + 2 < 15 And nY + 2 < 15 And (m_Board(nX + 2, nY + 2) = 0 Or m_Board(nX + 2, nY + 2) = cValue) And _m_Board(nX, nY + 2) = cV alue And m_Board(nX + 1, nY + 1) = cValue And m_Board(nX + 2, nY) = cValue) Or _(nX - 2 >= 0 And nY + 2 < 15 And (m_Board(nX - 2, nY + 2) = 0 Or m_Board(nX - 2, nY + 2) = cValue) And _m_Board(nX, nY + 2) = cValue And m_Board(nX - 1, nY + 1) = cV alue And m_Board(nX - 2, nY) = cValue) Or _(nX - 2 >= 0 And nY - 2 >= 0 And (m_Board(nX - 2, nY - 2) = 0 Or m_Board(nX - 2, nY - 2) = cValue) And _m_Board(nX, nY - 2) = cV alue And m_Board(nX - 1, nY - 1) = cValue And m_Board(nX - 2, nY) = cValue))) ThennGrade = 15End IfEnd IfEnd IfiWho = cValueJudge = nGradeEnd FunctionPrivate Sub ring()Cells(17, 3) = Cells(17, 3) + 1If m_nType = 0 ThenIf iWho = 2 ThenIf Cells(17, 3) < 16 ThenMsgBox "Congratulation!! You win by only total " & Cells(17, 3) & " stones, you are cool!"ElseMsgBox "Congratulation!! You win by total " & Cells(17, 3) & " stones, still OK!"End IfElseIf Cells(17, 3) < 16 ThenMsgBox "Sorry!! Computer win by only total " & Cells(17, 3) & " stones, you are bad player!"ElseMsgBox "Sorry!! Computer win by total " & Cells(17, 3) & " stones, you need more practices!"End IfEnd IfCells(17, 1) = ""Cells(17, 3) = 0Range(Cells(17 + 1, 1), Cells(17 + 15, 15)).Value = 0EndEnd IfEnd Sub。
表格的设计与制作—棋盘篇一、指导思想信息技术已经走进人们的日常生活，渗透到社会生活的每一个角落。
新课程理念下的信息技术教育具备了一定的时代性、基础性、创造性、开放性，同时还具有一定的人文性、文化性，强调培养学生的信息素养。
因此，信息技术教学不仅要注重学生知识的主动探究，还应注重学生能力素质的培养；同时更应关注提高学生利用信息技术解决现实生活中各类问题的能力，所以，信息技术教师应该注重结合学生生活中具体的、生动的人生体验和案例开展教学。
本课例的设计主要依据广东省初级中学课本《信息技术》第一册（上）第二章第三节《表格的设计与制作》内容。
二、教学目标设计(一)知识与技能1.理解表格中的行、列、表头、单元格的概念；2.了解运用表格整理信息的过程，能绘制简单的表格；3.能根据需求修饰表格。
(二）过程与方法1.通过“中国象棋棋盘”的制作，让学生逐渐掌握各种表格制作和装饰的工具，逐渐感悟制作表格的一般规律和步骤；2.学生通过自主探究学习，在根据“轮船时刻通告”等原始材料转换成表格的设计、制作过程中，学会如何根据应用需求，对信息进行加工处理、设计表格，体验信息技术在生活中的具体应用；3.能够发表观点、交流思想、开展协作。
（三）情感态度与价值观1.通过制作和设计表格，逐步培养学生利用信息技术解决生活问题的能力。
2.通过了解表格的作用，能够自觉在生活中利用表格方式整理、分析数据，表达观点。
三、教学内容设计（一）教学内容设定1．Word2003软件中创建表格、修改表格的方法；2．Word2003软件中修饰表格的方法。
3．Word2003软件中输入文字，设置表格内文字对齐方式的方法。
（二）教学内容分析本节课教学内容涉及到Word2003文档中插入表格、编辑表格和修饰表格，通过“中国象棋盘”、“航船时刻表”两个表格的制作和创作活动，既避免了单纯的技能操作教学，又让学生领悟到表格的优点和作用，逐步形成利用表格整理、分析数据的意识和习惯。
word绘制中国象棋棋盘[整理版] word绘制中国象棋棋盘
注:本文涉及版权，不得用于商业用途，仅供参考。
用Word就可以轻松绘制出美观、实用的中国象棋棋盘。
一、设置页面
运行Word，点“文件”?“页面设置”，打开“页面设置”对话框。
切换到“纸型”标签卡，在下拉列表中选择或自定义一种纸型。
(选择自定义，宽度设为30厘米，高度设为33厘米，其它选项默认。
二、绘制棋盘
1.插入表格:点击“表格”?“插入表格”，打开“插入表格”对话框，因为中国象棋的棋盘从整体上看是一个9行8列的表格，所以在“列数”一栏的文本框中输入8，“行数”一栏的文本框中输入9，单击“确定”，在Word工作窗口中插入一张9行8列的表格;
2.调整大小:选中刚才插入的整张表格，单击鼠标右键，在弹出的快捷菜单中选择“表格属性”命令，打开“表格属性”对话框，将表格的行高和列宽都设置为3厘米;
3.细节处理:点击“表格”?“绘制表格”，调出“表格和边框”工具栏，利用绘制表格工具，在棋盘上下两端将、帅的活动区域画出“米”字格。
选中表格的第五行，单击右键，在快捷菜单中选择“合并单元格”，将表格第五行的所有单元格合并，这样一张中国象棋棋盘的外形就绘制完成了。
三、修饰棋盘
1.设置边框:选中整张表格，单击鼠标右键，在弹出的快捷菜单选择“表格属性”命令，打开“表格属性”对话框，单击“边框和底纹”按钮，打开“边框和底纹”窗口，根据自己的喜好，对表格的边框和页面边框的线型、粗细、颜色进行设置。
2.添加文字:将光标定位到表格的第五行，输入“楚河汉界”四个字，并根据需要调整文字的字体、大小、颜色和位置。
一张美观、实用的中国象棋棋盘就制作好了，只要联上打印机打印一张就行了。
[表格的制作方法]办公表格制作方法篇一：办公表格制作方法建立表格：表格的建立方式有三种：菜单方式、工具栏按钮方式和自由制表方式。
注意表格建立的位置是在文档关表所在的位置。
下面先逐个进行表格建立方式练习：① 用菜单方式建立表格打开“表格"菜单，指向"表格"，选择"插入"项;在对话框中进行必要的设置选择(建议行和列的设置适中)，然后按"确定"。
观察产生的表格情况。
② 直接点击工具栏上的"插入表格"按钮，用鼠标在出现的表格框内选择合适的行和列，然后点击鼠标左键;观察建立的表格。
③ 点击工具栏上的"表格和边框"，或在工具栏上右击鼠标，在工具菜单中选择"表格和边框"，打开"表格和边框"工具栏;在此工具栏上选择适当的线条后，再点击工具栏最左边的画笔按钮，则鼠标的标志转换成画笔形式，这时，就可以在文档中自由绘制表格。
绘制方法是：按住鼠标左键移动鼠标，然后再放开鼠标，就可得到一条矩形框或一个直线。
线条可以选择粗细，还可选择"无边框"线条格式(画出线条为灰色，打印时无色)。
画错的线条可以用"擦除"按钮方式擦除。
文字表格多是在WORD或WPS中制作的，涉及计算的表格最好在EXCEL中制作。
EXCEL也可以制作文字表格，看你个人的爱好了。
具体使用方法请下载相关的教程，或从网上找说明文章。
不是在这里一两句话可以讲明白的。
打个比方,你如果是搞工资结算的,一个单位几百个人,你每个月都要统计所有的人的应发工资,扣除工资,实际工资等数据,而一年有12个月,也就是12张表格.然后有一天突然领导要求你把1-12个月的数据统一做成一个新的表格形式,而这个总表格和每个月的表格不完全相同(但有一定的相似性),也就是说你不能直接复制到总表格中去,而要一个姓名,一个工资数据的复制到总表格里,面对这种重复,单调,简单,大规模的手工操作,是不是觉得很无奈吧.我研究的这个办公室数据自动化软件就是针对这种情况的,它能自动寻找相关数据,根据设计好的步骤自动填数据,可以在软件里计算公式,还有一定的智能判断功能. 每个月的考核表格,进出人不同,这些东西都要反映到工资表格里,我做的脚本,能自动填这些东西.再举一个例子,假如你有两份相近的很多数据的表格,你的工作是找出这两份表格中不同的数据,根据一定情况做出相应的处理步骤,在这种情况下,也可以利用办公室数据自动化软件,让软件根据先前的设计来自动处理这份工作.你在旁边轻松喝着茶就行了。
