Excel实现岩层
在计算机中实现区域岩层倾角
计算的新方法
完成单位：生产技术科
主要完成人员：王东方谢让丑刘平史建设
杨根发达国志牛佳胜李刚刚史东瑞
完成时间：2014.9.25
华亭煤业集团公司东峡煤矿
职工科研论文、科技成果、“五小”成果申报表
在计算机中实现区域岩层倾角计算的新方法
摘要：本文主要介绍了基于EXCEL软件计算沉积地层倾角的方法，此方法科学严谨，实用性强操作方便，能实现自动化管理，适合大区域范围内岩层倾角的控制和批量处理，在煤田巷道设计中发挥巨大作用。
关键词：地层产状煤田地质 EXCEL
1、引言
自然界的煤层几乎都是由沉积作用形成，具有典型的层状结构，煤田开采时巷道的设计也基本都是紧紧围绕煤层这一特殊结构展开。弄清煤层的产状在煤田开采设计中举足轻重。产状测定的传统方法是罗盘法，此法局限性大，只能体现出和罗盘面大小范围内的局部岩层产状，和大范围内的煤层的产状大相径庭，误差在5°-10°之间，造成的水平距离误差在6-13m左右，不能指导煤矿的实际生产。后来人们慢慢尝试用几何方法来结算巷道内岩层的倾角，其基本思想是，利用某一层标志层的地界为计算基础，用钢卷尺测量其在巷道内出露的水平距离和垂直距离，然后用三角函数反算此层的倾角，这基本解决了某一巷道内岩层的倾角的问题，具有一定的适用价值。并且专门研发了依次为基础的专用测量工具。但这个尺度也往往只体现了上下10m范围内岩层的特征。后来，人们为了得到更大尺度岩层的产状，就开始选用上下顺槽揭露的煤层底板的几何位置和上面提到的三角函数基础来计算煤层的产状，这也是目前应用最为广泛的推测岩层产状的方法，其优点是控制范围大，垂直可达55m左右，在沿同一倾向的方向层发挥巨大作用，然而这里有一个前提假设，即这些计算参数均采自垂直走向的方向，这对于计算的参数的选取有了一定局限性，使用不方便，不能实现计算机自动出成果。
本文提出一种全新的计算理念，即将现有的实体煤层假象为解析几何中的一无限大平面，其具有平面所具有的一切特征，当然也就存在平面的解析方程式。本法通过采用同一标志层底板三维数据求解此平面的特征方程式，进而就可以求解其法向量。岩层倾角的核心实质是其所在平面和假象水平面的夹角，即两平面的法线的夹角，然后通过解析几何的方法计算这个夹角。这一系列计算都是通过计算机自动
实现。
2、计算流程及函数表达式
2.1 基础数据采集
在上下顺槽取三个点的坐标，一般上顺槽取一个点，下顺槽取两个点。注意保持这三个点在同一层稳定的标志层的底板，并保证测量数据的精准，或可以利用众数方法来降低数据的偶然性。本文计算选取如下参数：
2.2 岩层所在平面方程的计算
利用2.1所采集的标准三点的坐标反算煤层或岩层所在平面的平面解析方程，其数学模型可表达为：
AX1+BY1+CZ1=-1 (1)
AX2+BY2+CZ2=-1 (2)
AX3+BY3+CZ3=-1 (3)
将2.1中所采集的三点坐标带入上面线性方程组，得到平面方程的特征表达式。其计算表达式如下：
D= MDETERM（B4：D6）= 1.14E+09 （2.1线性表达式的特征值）
D1=MDETERM（G4：I6）= -219.438 (2.1中第一列变换为-1时线性表达式的特征
值)
D2= MDETERM（K4：M6）= -750.55 (2.1中第二列变换为-1时线性表达式的特征值) D3= MDETERM（O4：Q6）= 953.7575 (2.1中第三列变换为-1时线性表达式的特征值)（1）则煤层平面方程X的系数A= D1/D；B=D2/D；C=D3/D。表达式为：
AX+BY+CZ=-1
（2）理想水平面表达式为：Z=0
2.3 岩层所在平面和水平面夹角计算
1、倾角计算表达式分母M=ABS(D6*D7+E6*E7+F6*F7)
2、倾角计算表达式分子
N
1
=（SQRT(POWER(B8,2)+POWER(C8,2)+POWER(D8,2))
N
2
=SQRT(POWER(D7,2)+POWER(E7,2)+POWER(F7,2))
3、 cosα=M/ N
1/ N
2
α为岩层的倾角；
4、α=arccos （M/ N
1/ N
2
）
5、角度α=DEGREES(G14)=DEGREES(G16)=INT(H16)&"度
"&INT(MOD(H16*60,60))&"分"&INT(MOD(H16*3600,60))&"秒"
2.4 计算流程的EXCEL表达形式
3、结论
本实例的计算数据为18号面2-3分层顺槽南段数据，计算结果为39度20分52秒，实际揭露为39度（巷道几何法），在我矿其它所有区域地段均得到证实。实践表明此法准确可靠，只要一次输入计算程序，以后计算就简单易操作，实现自动化，可以批量计算，大规模采样对比，为巷道设计提供基础保障，值得在层状矿床范围内推广使用。
基于Excel VBA的讲课竞赛抽签系统设计与实现
龙源期刊网 https://www.360docs.net/doc/b4842542.html, 基于Excel VBA的讲课竞赛抽签系统设计与实现 作者：周志军窦志强朱春晓 来源：《中国管理信息化》2016年第11期 [摘要] 通过组织讲课竞赛等形式不断提高青年教师教学能力，是高等院校确保人才培养 质量稳步提升的重要保证。在高校讲课竞赛等活动中，需要以公正、快捷、直观的方式对参加人员、讲课题目进行抽签，文章通过实例介绍基于Excel VBA设计讲课竞赛抽签系统的实现方法。 [关键词] VBA；讲课竞赛；抽签系统；洗牌算法 doi ： 10 . 3969 / j . issn . 1673 - 0194 . 2016. 11. 112 [中图分类号] TP317.3 [文献标识码] A [文章编号] 1673 - 0194（2016）11- 0187- 04 1 引言 在高等院校中，提高青年教师教学能力是不断提升人才培养质量的重要保证。组织以老带新、岗位练兵、讲课竞赛等形式的教学实践活动成为促进青年教师提高教学能力的有效手段。在讲课竞赛活动中，如何保证分组抽签环节的公开、公正、透明，成为参赛人员关注的焦点。由于通用抽签软件无法满足特定的抽签规则，对抽签数据格式和内容的具体需求存在差异，在解放军信息工程大学校2014年组织的青年教员讲课竞赛活动中，为了高效、公正、透明地进行抽签，自行开发了讲课竞赛抽签系统。在全年度的竞赛活动中，抽签系统发挥了重要作用。 2 需求分析 在比赛前，按照竞赛规则，全校各教研室所有符合条件的青年教员均列入参赛备选人员名单，每人准备数个讲课题目。按照学科类别，将所有教研室分为4个大组，全年组织多轮次讲课比赛，每轮次从每组人员中抽取相同数量的选手参赛，讲课题目和出场顺序随机确定。同时，为了确保青年教员广泛参与，需要实现全年每个教研室青年教员参赛比例和覆盖面基本相当。在此规则下，抽签系统既要保证公平、公开，又须符合各项比例要求。系统需要实现以下功能： （1）按组别抽选参赛选手和讲课题目。 （2）按教研室人员比例进行抽选。 （3）参赛人员和讲课题目随机选定。
用excel实现随机抽签
用excel实现随机抽签 先看看程序运行情况：将数据复制粘贴进去，点开始开始生成数据，停止产生结果。 实现代码 '''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 程序制作：江西生物科技职业学院' ' 真随风' ' 2011-10-18 ' '''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim i, j, k As Integer Dim Flag As Boolean Dim str$ Sub 按钮1_Click() Flag = False If Cells(1, 1) = "准备就绪" Then Cells(1, 1) = "正在生成" Do Until Flag Call dornd DoEvents Loop End If End Sub Sub dornd() i = getcell
For j = 1 To i Cells(j + 2, 1) = "" Next j = 1 Do Until j > i Or j = 10000 k = Int(Rnd(j / 10) * (i) * 10) If k < i And Cells(k + 3, 1) = "" Then Cells(k + 3, 1) = j j = j + 1 End If Loop End Sub Function getcell() i = 3 Do While (Cells(i, 2)) <> "" i = i + 1 Loop getcell = i - 3 End Function Sub 按钮11_Click() Cells(1, 1) = "准备就绪" Flag = True MsgBox ("已确定随机顺序") str = "A2:Z" & getcell + 2 & "" Range(str).Select 'excel 2003 Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal 'excel 2007 'ActiveWindow.SmallScroll Down:=-18 'ActiveWorkbook.Worksheets("excel程序随机抽签").Sort.SortFields.Clear 'ActiveWorkbook.Worksheets("excel程序随机抽签").Sort.SortFields.Add Key:=Range("A2") _
如何利用Excel软件进行快速随机分班
如何利用Excel软件进行快速随机分班 在中小学招生新生时，分班是学校的一项重要工作。学校领导和教师希望各班知识能力水平基本一致，以便以后可以通过比较班级均分，来分析不同任课教师的教学质量和效果有无明显差异，哪位教师的教学效果较好，哪位教师教学效果较差。对于如何分班，许多学校也探索了一些方法，尽管也可以达到同样的目的，但分班过程比较复杂、烦琐。笔者探索了一种比较快捷的Excel分班方法，希望对中小学的分班工作有所帮助，提高分班的效率和效果。下面我们以某校263 一、Excel分班步骤 第一步：将新生的姓名、性别、入学考试成绩录入计算机，建立Excel文件，例如“某校263名新生入学成绩” 第二步：计算出每个学生的各科入学成绩的总均分； 第三步：将Excel文件中的信息按入学成绩总均分由高到低排序，然后一定的成绩等级标准为每个学生的总均分指派相应的成绩等级。例如，263名学生入学成绩总均分的最低分为62分，最高分为111分，我们可以按照60～69、70～79、80～89、90～99、100～111的成绩分组方法，分别指派1、2、3、4、5的等级。 第四步：为每个学生指派一个随机数字。具体方法是：先在表中第一个学生成绩等级后的单元格内粘贴函数RAND()（如图2所示），使产生一个随机数字，然后再用鼠标选中该单元格，利用自动套用格式的操作方法，使每个学生的成绩等级后都有一个随机数字（如图3所示）。
第五步：用鼠标选中表中所有信息，利用Excel“数据”菜单中的排序程序，按照主要关键字为“性别”、次要关键字为“成绩等级”、第三关键字为“随机数字”的排序准则（如图3所示）对表中信息重新排序。这样就会使男、女生中各个成绩等级层次内的总均分的排序失去规律，变为随机顺序。 第六步：在随机数字栏后一列单元格内依次输入班级编号“1、2、3、4、5、6”，然后将“1、2、3、4、5、6”不断复制到下面的单元格内，直至最后一名学生。
excel随机变量方法
例子：怎么在excel中编设变量－10到＋10之间随机变量公式，“＋”还要显示保留两位小数。 任意单元格输入 =TEXT(RAND()*20-10,"[>0]+0.00;-0.00") excel 2007随机函数（RAND()）的使用方法. 求教:我的电子表格中rand()函数的取值范围是-1到1,如何改回1到0 回答：有两种修改办法： 是[1－rand()]/2， 或[1＋rand()]/2。 效果是一样的，都可生成0到1之间的随机数 电子表格中RAND()函数的取值范围是0到1，公式如下： =RAND() 如果取值范围是1到2，公式如下： =RAND()*(2-1)+1 RAND( ) 注解： 若要生成a与b之间的随机实数： =RAND()*(b-a)+a 如果要使用函数RAND生成一随机数，并且使之不随单元格计算而改变，可以在编辑栏中输入“=RAND()”，保持编辑状态，然后按F9，将公式永久性地改为随机数。 示例 RAND()介于0到1之间的一个随机数（变量） =RAND()*100大于等于0但小于100的一个随机数（变量） excel产生60-70随机数公式
=RAND()*10+60 要取整可以用=int(RAND()*10+60) 我想用excel在B1单元个里创建一个50-80的随机数且这个随机数要大于A1 单元个里的数值，请教大家如何编写公式！ 整数：=ROUND(RAND()*(80-MAX(50,A1+1))+MAX(50,A1+1),0) 无需取整数：=RAND()*(80-MAX(50,A1))+MAX(50,A1) 要求: 1,小数保留0.12,1000-1100范围3,不要出现重复 =LEFT(RAND()*100+1000,6) 至于不许重复 你可以设置数据有效性 在数据-有效性设 =countif(a:a,a1)=1 选中a列设有效性就好了 其他列耶可以 急求excel随机生成数字的公式，取值要在38.90-44.03之间，不允许重复出现，保留两位小数，不允许变藏 =round(RAND()*5+38.9,2) 公式下拉 Excel随机数 Excel具有强大的函数功能，使用Excel函数，可以轻松在Excel表格产生一系列随机数。 1、产生一个小于100的两位数的整数，输入公式=ROUNDUP(RAND()*100,0)。 RAND()这是一个随机函数，它的返回值是一个大于0且小于1的随机小数。ROUNDUP函数是向上舍入数字，公式的意义就是将小数向上舍入到最接近的整数，再扩大100倍。 2、产生一个四位数N到M的随机数，输入公式=INT(RAND()*(M-N+1))+N。 这个公式中，INT函数是将数值向下取整为最接近的整数；因为四位数的随
EXCEL随机数据生成方法
求教:我的电子表格中rand()函数的取值范围是-1到1,如何改回1到0 回答：有两种修改办法： 是[1－rand()]/2， 或[1＋rand()]/2。 效果是一样的，都可生成0到1之间的随机数 电子表格中RAND()函数的取值范围是0到1，公式如下： =RAND() 如果取值范围是1到2，公式如下： =RAND()*(2-1)+1 RAND( ) 注解： 若要生成a 与b 之间的随机实数： =RAND()*(b-a)+a 如果要使用函数RAND 生成一随机数，并且使之不随单元格计算而改变，可以在编辑栏中输入“=RAND()”，保持编辑状态，然后按F9，将公式永久性地改为随机数。 示例 RAND() 介于0 到1 之间的一个随机数（变量） =RAND()*100 大于等于0 但小于100 的一个随机数（变量） excel产生60-70随机数公式 =RAND()*10+60 要取整可以用=int(RAND()*10+60) 我想用excel在B1单元个里创建一个50-80的随机数且这个随机数要大于A1单元个里的数值，请教大家如何编写公式！ 整数：=ROUND(RAND()*(80-MAX(50,A1+1))+MAX(50,A1+1),0) 无需取整数：=RAND()*(80-MAX(50,A1))+MAX(50,A1)
要求: 1,小数保留0.1 2,1000-1100范围 3,不要出现重复 =LEFT(RAND()*100+1000,6) 至于不许重复 你可以设置数据有效性 在数据-有效性设 =countif(a:a,a1)=1 选中a列设有效性就好了 其他列耶可以 急求excel随机生成数字的公式，取值要在38.90-44.03之间，不允许重复出现，保留两位小数，不允许变藏 =round(RAND()*5+38.9,2) 公式下拉 Excel随机数 Excel具有强大的函数功能，使用Excel函数，可以轻松在Excel表格产生一系列随机数。 1、产生一个小于100的两位数的整数，输入公式=ROUNDUP(RAND()*100,0)。 RAND()这是一个随机函数，它的返回值是一个大于0且小于1的随机小数。ROUNDUP 函数是向上舍入数字，公式的意义就是将小数向上舍入到最接近的整数，再扩大100倍。 2、产生一个四位数N到M的随机数，输入公式=INT(RAND()*(M-N+1))+N。 这个公式中，INT函数是将数值向下取整为最接近的整数；因为四位数的随机数就是指从1000到9999之间的任一随机数，所以M为9999，N为1000。RAND()的值是一个大于0且小于1的随机小数，M-N+1是9000，乘以这个数就是将RAND()的值对其放大，用INT 函数取整后，再加上1000就可以得到这个范围内的随机数。[公式=INT(RAND()*(9999-1000+1))+1000] 3、Excel函数RANDBETWEEN是返回位于两个指定数之间的一个随机数。使用这一个函数来完成上面的问题就更为简单了。要使用这个函数，可能出现函数不可用，并返回错误值#NAME?。 选择"工具"菜单，单击"加载宏"，在"可用加载宏"列表中，勾选"分析工具库"，再单击"确定"。接下来系统将会安装并加载，可能会弹出提示需要安装源，也就是office安装盘。放入光盘，点击"确定"，完成安装。 现在可以在单元格输入公式=RANDBETWEEN(1000,9999)。 最后，你可以将公式复制到所有需要产生随机数的单元格，每一次打开工作表，数据都会自动随机更新。在打开的工作表，也可以执行功能键F9，每按下一次，数据就会自动随机更新了。
基于Excel VBA抽签程序的设计与实现
66 ?电子技术与软件工程 Electronic Technology & Software Engineering 软件应用 ? Software Application 【关键词】Excel VBA 抽签程序 1 引言 某卫生学校学生在护理技能操作模拟考试前先要进行抽签，根据学校规定的考试项目及题库试题数目抽取相应的题号进行操作考试，这项工作往年都是采用人工抽签，需要耗费很多的人力和时间，然而在抽签过程中难免会出现很多问题。随着信息化技术的不断普及，学校工作也进入了由信息技术替代人工操作的改革性阶段，实现抽签过程信息化、自动化工作迫在眉睫，为此利用Excel 对数据的便捷性，VBA 对数据的交互性设计并实现了该抽签程序。 2 VBA技术 Visual Basic for Applications(VBA)是Visual Basic 的一种新一代标准宏语言，与传统的宏语言不同，传统的宏语言不具有高级语言特征，没有面向对象的程序设计概念和方法，VBA 是以伪代码的形式运行的，它的功能主要通过模块来实现，同其他面向对象的编程语言一样，VBA 中也有对象、属性、方法和事件。VBA 易于学习，可以使用宏记录用户的操作，并将其转换为VBA 程序代码，是工作自动化。 3 需求分析 某卫生学校在期末进行护理技能操作考试前，每位参加考试的学生需要根据四项考试中题库的总数量随机抽取相应的题号，由于每项操作考试题库数都不相同，而每个班的学生数与总题库数也不相同，学生在随机抽取完一 基于Excel VBA 抽签程序的设计与实现 文/任宇宁 项操作考试的总题库试题后，该题库重新开始 轮询，需要实现前后两名学生生成的四组题号不能完全相同。 4 抽签程序设计与实现 根据需求分析结果，考虑到该抽签程序的实用性和简洁性，使用Excel VBA 实现，分为前台界面和后台代码，前台界面上有抽签按钮，可使用鼠标点击抽签。为方便学生抽签，也可以使用键盘上的空格键完成抽签。前台界面上有清除按钮，实现将生成的题号清空的功能。4.1 前台界面 根据需求分析，前台界面所有按钮将在A1—G6单元格区域中显示，而其余单元格隐藏。因此可以单击选中H 列，按住键盘上 shift 键，在水平滚动条上单击鼠标左键即可将水平滚动条拖动到最后一列，点击选择最后一列，按鼠标右键选中隐藏按钮，将选中的列隐藏。单击选中第7行，按住键盘上shift 键，在垂直滚动条上单击鼠标左键即可将垂直滚动条拖动到最后一行，按鼠标右键选中隐藏按钮，将选中的行隐藏。 选中B1—F1区域单元格，点击菜单栏上的“合并及居中”按钮，输入程序名称“护理技能操作考试抽签程序”。在名称前面点击菜单栏上“插入”-“图片”按钮，找到并插入一个医院的logo 图片。选中B2—F5单元格区域添加显示所有框线，输入对应的内容，将生成题号一行文字设置为红色。在G 列相应位置处插入一个矩形，并且添加文字“抽签”设置其文字格式。4.2 后台代码 按键盘上的ALT+F11按键，打开ABE 编辑框，在左侧的工程区域可以看到Excel 对象，在空白位置处点击鼠标右键选择插入按钮添加两个模块窗口。 打开模块1窗口输入以下代码，并将前台“医院logo ”图标指定宏到该段代码，该代码可以实现当点击图标时，生成题号将置为0，抽签次数与题库总数相同，即C4-F4单元格内容与C3-F3相同。 打开模块2输入以下代码，并将前台抽签按钮指定宏到该段代码，当点击开始抽签后，抽签次数累计增加，随机生成题号，当某一项 操作抽签次数和题库数相同时，表明该项操作题库已被抽取一轮，然后重置为1，进行下一轮的抽取。 Sub ren() If [c4] < [c3] Then [c4] = [c4] + 1 Else [c4] = 1: [h3].Resize([c3]) = GetRnd([c3]) If [d4] < [d3] Then [d4] = [d4] + 1 Else [d4] = 1: [i3].Resize([d3]) = GetRnd([d3]) If [e4] < [e3] Then [e4] = [e4] + 1 Else [e4] = 1: [j3].Resize([e3]) = GetRnd([e3]) If [f4] < [f3] Then [f4] = [f4] + 1 Else [f4] = 1: [k3].Resize([f3]) = GetRnd([f3]) [b7].CurrentRegion.Offset(2) = [b7].CurrentRegion.Offset(1).Value [b8] = [b8] + 1: [c8] = [c5]: [d8] = [d5]: [e8] = [e5]: [f8] = [f5] End Sub 4.3 保存程序 在选择保存的文件类型时应该选择“Excel 启用宏的工作簿（.xlsm ）”选项，这样再打开文档的时候，宏功能才会启用，否则程序将不能正常运行。 5 总结 随着计算机技术的普及，我们对于Excel 的应用不应仅仅局限于设置单元格格式，插入公式进行计算等基本操作，在遇到需要进行人机交互操作等高级应用时，也可以利用Excel 的高级应用，如本文中的VBA 技术进行处理。 该抽签程序满足学校对学生抽签过程的信息化和便捷化，提升了工作效率，在设计现实过程中也存在一定的缺陷，如没有用到动态数据库，将生成的数据保存起来，对于数据量比较大的情况可能会导致Excel 程序出错、闪退等现象未进行考虑，待以后的设计中加以完善。 参考文献 [1]蒋勇,刘耸,熊彦,朱婧,徐悦.基于 Excel VBA 护士执业考试模拟系统的设计[J].计算机光盘软件与应用,2015(01). 作者单位 山西省吕梁市卫生学校 山西省吕梁市 033000
基于Excel VBA的讲课竞赛抽签系统设计与实现
基于Excel VBA的讲课竞赛抽签系统设计与实现 [摘要] 通过组织讲课竞赛等形式不断提高青年教师教学能力，是高等院校确保人才培养质量稳步提升的重要保证。在高校讲课竞赛等活动中，需要以公正、快捷、直观的方式对参加人员、讲课题目进行抽签，文章通过实例介绍基于Excel VBA设计讲课竞赛抽签系统的实现方法。 [关键词] VBA；讲课竞赛；抽签系统；洗牌算法 doi ：10 . 3969 / j . issn . 1673 - 0194 . 2016. 11. 112 [中图分类号] TP317.3 [文献标识码] A [文章编号] 1673 - 0194（2016）11- 0187- 04 1 引言 在高等院校中，提高青年教师教学能力是不断提升人才培养质量的重要保证。组织以老带新、岗位练兵、讲课竞赛等形式的教学实践活动成为促进青年教师提高教学能力的 有效手段。在讲课竞赛活动中，如何保证分组抽签环节的公开、公正、透明，成为参赛人员关注的焦点。由于通用抽签软件无法满足特定的抽签规则，对抽签数据格式和内容的具体需求存在差异，在解放军信息工程大学校2014年组织的青年教员讲课竞赛活动中，为了高效、公正、透明地进行抽签，自行开发了讲课竞赛抽签系统。在全年度的竞赛活动中，
抽签系统发挥了重要作用。 2 需求分析 在比赛前，按照竞赛规则，全校各教研室所有符合条件的青年教员均列入参赛备选人员名单，每人准备数个讲课题目。按照学科类别，将所有教研室分为4个大组，全年组织多轮次讲课比赛，每轮次从每组人员中抽取相同数量的选手参赛，讲课题目和出场顺序随机确定。同时，为了确保青年教员广泛参与，需要实现全年每个教研室青年教员参赛比例和覆盖面基本相当。在此规则下，抽签系统既要保证公平、公开，又须符合各项比例要求。系统需要实现以下功能：（1）按组别抽选参赛选手和讲课题目。 （2）按教研室人员比例进行抽选。 （3）参赛人员和讲课题目随机选定。 （4）抽中人员出场顺序随机确定。 （5）抽选结果填入表格即时打印。 （6）生成各组参赛选手基本信息表用于讲课竞赛工作用表。 3 设计思路 VBA是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化（OLE）任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程序视觉化的Basic 脚本。
笛卡尔积
笛卡尔（Descartes）乘积又叫直积。假设集合A={a,b}，集合B={0,1,2}，则两个集合的笛卡尔积为{(a,0),(a,1),(a,2),(b,0),(b,1), (b,2)}。可以扩展到多个集合的情况。类似的例子有，如果A表示某学校学生的集合，B表示该学校所有课程的集合，则A与B的笛卡尔积表示所有可能的选课情况。 在日常生活中，有许多事物是成对出现的，而且这种成对出现的事物，具有一定的顺序。例如，上，下；左，右；3〈4；张华高于李明；中国地处亚洲；平面上点的坐标等。一般地说，两个具有固定次序的客体组成一个序偶，它常常表达两个客体之间的关系。记作〈x，y〉。上述各例可分别表示为〈上，下〉；〈左，右〉；〈3，4〉；〈张华，李明〉；〈中国，亚洲〉；〈a，b〉等。 序偶可以看作是具有两个元素的集合。但它与一般集合不同的是序偶具有确定的次序。在集合中{a，b}={b，a}，但对序偶〈a，b〉≠〈b，a〉。 设x，y为任意对象，称集合{{x},{x,y}}为二元有序组，或序偶（ordered pairs），简记为
笛卡尔积、等值连接、自然连接的联系与区别
笛卡尔积、等值连接、自然连接的联系与区别虽然naturaljoin(自然连接)实际上的用的比较少，但实际上这个连接是非常有用的，若能经常使用一下，实际上是非常方便的。 自然连接是在两张表中寻找那些数据类型和列名都相同的字段，然后自动地将他们连接起来，并返回所有符合条件按的结果。 来看一下自然连接的例子。 Selectemp.ename,dept.dname Fromempnaturaljoindept; 这里我们并没有指定连接的条件，实际上oracle为我们自作主张的将，emp 中的deptno和dept中的deptno做了连接。 也就是实际上相当于 Selectemp.ename,dept.dname Fromempjoindeptonemp.deptno=dept.deptno; 因为这两张表的这两个字段deptno的类型个名称完全相同。所以使用naturaljoin时被自然的连接在一起了。 另外： 1.如果做自然连接的两个表的有多个字段都满足有相同名称个类型，那么他们会被作为自然连接的条件。 2.如果自然连接的两个表仅是字段名称相同，但数据类型不同，那么将会返回一个错误。 3.由于oracle中可以进行这种非常简单的naturaljoin，我们在设计表时，应该尽量在不同表中具有相同含义的字段使用相同的名字和数据类型。以方便以后使用naturaljoin 最后我们在前面举的例子都得到以下的结果： SQL>Selectemp.ename,dept.dname 2Fromempnaturaljoindept; ENAMEDNAME ——————–—————- SMITHRESEARCH ALLENSALES WARDSALES JONESRESEARCH MARTINSALES BLAKESALES CLARKACCOUNTING SCOTTRESEARCH KINGACCOUNTING TURNERSALES ADAMSRESEARCH JAMESSALES FORDRESEARCH MILLERACCOUNTING 内连接与等值连接是一回事情。 经常有人会问到selecta.id,https://www.360docs.net/doc/b4842542.html,froma,bwherea.id=b.pid
用excel表格软件抽签
就是用excel表格软件抽签,其实很简单。 第一步,在表格A列写好特殊职业,如: 警察1 警察2 警察3 杀手1 杀手2 杀手3 医生 规则中规定了多少特殊职业,就在第一列写多少个. 第二步,在职业这一列相邻的B列里输入玩家名字。注意，可以把玩家名字在写字板里写好，每个名字占一行，复制到excel表格里，就自动填好了。填好的excel表格现在是这样： A列| B列 警察1 | 玩家1 警察2 | 玩家2 警察3 | 玩家3 杀手1 | 玩家4 杀手2 | 玩家5 杀手3 | 玩家6 医生| 玩家7 | 玩家8 | 玩家9 | 玩家10 第三步，在B列右侧的C列，每个格都输入"=rand()" （没有引号） 这样会在c列生成一组随机数，如下： A列| B列| C列 警察1 | 玩家1 | 0.004173352 警察2 | 玩家2 | 0.920830701 警察3 | 玩家3 | 0.867086295 杀手1 | 玩家4 | 0.895571743 杀手2 | 玩家5 | 0.869936504 杀手3 | 玩家6 | 0.280459797 医生| 玩家7 | 0.687502351 | 玩家8 | 0.303730142 | 玩家9 | 0.669669861 | 玩家10 | 0.395552728 第四步，选中B列和C列，从excel主菜单选中：数据->排序，然后在弹出窗口的“主要关键字”一栏选中“C列”，这时B列就会随机排序： 警察1 | 玩家7 | 0.550782691 警察2 | 玩家10 | 0.721722402 警察3 | 玩家1 | 0.070583544 杀手1 | 玩家6 | 0.995225162 杀手2 | 玩家4 | 0.870708875 杀手3 | 玩家2 | 0.97881172 医生| 玩家8 | 0.061810005 | 玩家5 | 0.848890808
广义笛卡尔积
广义笛卡尔积 假设集合A={a,b}，集合B={0,1,2}，则两个集合的笛卡尔积为 {(a,0),(a,1),(a,2),(b,0),(b,1),(b,2)}。可以扩展到多个集合的情况。类似的例子有，如果A表示某学校学生的集合，B表示该学校所有课程的集合，则A与B的笛卡尔积表示所有可能的选课情况。 数据库求广域笛卡尔积问题 R： A B C S: A B C a 3 d b 1 f b 4 t r 3 e r 3 e d 3 t 求R×S A B C A B C A B C b 1 f A B C r 3 e A B C d 3 t a 3 d A B C a 3 d b 1 f a 3 d r 3 e a 3 d d 3 t b 4 t A B C b 4 t b 1 f b 4 t r 3 e b 4 t d 3 t r 3 e A B C r 3 e b 1 f r 3 e r 3 e r 3 e d 3 t (1) 选择（Selection） 在给定关系R中选择满足条件的元组。记为： 其中F表示选择条件，是一个逻辑表达式，它的值为“真”或“假”。 逻辑表达式是由属性名、常量、简单函数和比较运算符、逻辑运算符组成的有意义的式子。通常情况下，逻辑表达式是由逻辑运算符连接由比较运算符组成的比较关系式而成。即通过逻辑运算符将比较关系式XqY连接起来组成逻辑表
达式。当然单独的比较关系式也是一个逻辑表达式。 （2）投影（Projection） 在给定关系R(U)中选择若干属性列组成的新关系。记为： 其中A为R中属性组，且AíU。在关系二维表中，选择是一种水平操作，它针对二维表中行，而投影是一种垂直操作，它针对二维表中的属性列。 （3）连接（Join） 连接也称为条件连接，它从两个关系的笛卡儿积中选择满足条件的元组。记 为： 其中A和B分别是关系R和S上度数相同且可比属性组，q为比较运算符。 在连接中有三种最常见的连接，一种是等值连接，一种是自然连接，还有半连接。 ①等值连接（equijoin） 当比较运算符q为“=”时的连接称为等值连接，其结果是从关系R和S的笛卡儿积中选取属性组A和B值相等的元组。记为： ②自然连接（Natural join） 自然连接是一种特殊的等值连接。当关系R和S有相同的属性组B，且该属性组的值相等时的连接称为自然连接。结果关系的属性集合为R的属性并上S 减去属性B后的属性集合，即Att(R)∪(Att(S)-B)。其中Att( R )为关系R的属性集。R和S的自然连接记为： 自然连接与等值连接的区别是： ａ）自然连接要求两个关系中进行比较的属性或属性组必须同名和相同值域，而等值连接只要求比较属性有相同的值域。 ｂ）自然连接的结果中，同名的属性只保留一个。 ③半连接（half join） 半连接是一种特殊的自然连接。它与自然连接的区别在于其结果只保留R 的属性。当关系R和S有相同的属性组B，且该属性组的值相等时进行连接，其结果只保留R的属性，这种连接称为半连接。记为： （４）商（Division） 设关系R（X，Y）和S（Y，Z），其中X，Y，Z是属性集合，R中的Y
求两个关系的笛卡尔积
//求两个关系的笛卡尔积 #include