用vb编写图形
VB用Picture控件绘制图形并保存
Co4;bmp"
'设置或返回对话框的默认文件扩展名
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Rem 由绝对路径变相对路径 CurPath = App.Path AbsPath = CommonDialog1.FileName RPath = Replace(AbsPath, CurPath, vbNullString)
CommonDialog1.InitDir = App.Path CommonDialog1.FileName = "abcp"
'设置默认路径
CommonDialog1.DialogTitle = "请选择的模板文件名"
CommonDialog1.Filter = "位图文件(*.bmp)|*.bmp"
y = Sin(x * 3.1415926 / 180) Picture1.PSet (x, y) Next
Picture1.CurrentX = 10 Picture1.CurrentY = 0 Picture1.Font = "黑体" Picture1.FontSize = 20 Picture1.ForeColor = 16777215 Picture1.Print "ABCDF中国"
End Sub Rem 绘曲线图 Private Sub Command1_Click()
Dim x As Integer Dim y As Single
Picture1.AutoRedraw = True Picture1.Cls Picture1.Scale (0, 1.2)-(360, -1.2) Picture1.Line (0, 0)-(360, 0) For x = 0 To 360
利用VB实现AutoCAD二次开发中参数化绘图
利用VB实现AutoCAD二次开发中参数化绘图作者：陈炜来源：《中国新技术新产品》2014年第13期摘要：通过参数化绘图的背景分析和AutoCAD二次开发五种常用工具的分析比较，利用VB对AutoCAD二次开发实现参数化绘图是可行的。
再利用弹簧绘制为例详细描述了VB实现参数化绘图的具体步骤。
更加确定了VB实现AutoCAD二次开发中参数化绘图是具有优势的，它缩短绘图操作时间，提高工作效率。
关键字：参数化绘图；AutoCAD ；二次开发；VB中图分类号：TP39 文献标识码：A一、实现参数化绘图的背景AutoCAD作为一款工程方面非常出色的软件，因其优秀图形处理能力和通用性而得到广泛普及与应用，正因为该软件通用性很强，从而在进行具体图形绘制和数据处理综合应用的时候自身所具有的功能就显得相形见绌。
比如在机械制图时，如螺母、垫圈、轴承、弹簧、齿轮等一些标准件、常用件的设计和绘制，都需要用户逐一绘制，这些标准件都会有大量数据，用户绘图时必须查找各种标准，不仅费时而且容易出错。
为了解决上述问题，尽可能的不重复劳动，提高设计效率，减少设计开发周期，因此我们想到了实现图形的自动绘制方法。
根据机械制图中各种标准件结构特点，同一个系列内，它们基本结构相似，仅是尺寸上有些变化。
对于齿轮、弹簧等常用件，尽管不能像螺栓、螺母那样完全实现标准化，但可以实现部分结构标准化。
比如弹簧，我们只需输入起始半径、垂直增量、水平增量、圈数、分段数等参数，即可编程实现该二维或三维图形的自动绘制。
二、VB实现参数化绘图的优势为了使重复性较大的计算绘图工作量减小和更加规范准确，AutoCAD提供了二次开发的功能接口。
进行其二次开发的常用工具目前大体有五种，分别是ADS、ObjectARX、AutoLISP、.NET、VBA。
其中，ADS是AutoCAD的C语言开发系统，直接利用C语言编译器，因涉及到C语言的编程它的开发不易上手并且难度较大；ObjectARX的功能强大，效率较高，但是开发人员必须掌握VC++，难度很大，而且开发效率不高，容易出现内存泄漏；AutoLISP语言虽然其语法规则简单、灵活，但是缺乏综合性的开发环境，综合能力差；.NET 是微软新一代技术平台，功能强大，但对开发环境要求较高，而且可供学习参考的资料较少；VBA即McrosoftOffice中的Visual Basic（简称VB） for Applications开发环境，被集成到AutoCAD中，从AutoCADR14版本以后，就增加了 ActiveX Automation 自动化服务的功能。
用VB制作李萨如图形动态演示程序
1 引⾔ 李萨如图形是⼀个质点的运动轨迹[1]，该质点在两个垂直⽅向的分运动都是简谐运动。
李萨如图形是物理学的重要内容之⼀，在⼯程技术领域也有很重要的应⽤。
利⽤李萨如图形可以测量未知振动的频率和初相位，掌握李萨如图形的形成过程有很重要的意义。
因⽽动态显⽰李萨如可以深⼊理解其形成过程。
2 李萨如图形的形成 假定形成李萨如图形的两个简谐运动，⼀个在X轴上，⼀个在Y轴上， 它们的运动⽅程为（假设它们的振幅相等）：它们的合运动轨迹就是李萨如图形。
为了能够形象地描述李萨如图形的形成过程，⼀般是把X轴和Y轴上的简谐运动分别⽤旋转⽮量图来描述，如图1所⽰。
由上式计算出不同时刻的质点的坐标（x，y），依次连接这些点，得到的图形就是李萨如图形。
图1 李萨如图形的形成过程 3 李萨如图形动态演⽰的制作原理 为了动态演⽰李萨如图形的形成过程，需要把描述两个简谐运动的旋转⽮量的运动过程和它们的合运动过程动态地画出来。
具体的做法是： （1）画出描述X、Y⽅向简谐运动的旋转⽮量的参考图，分别由两条垂直的直线，⼀个圆构成； （2）通过计算，分别画出从圆⼼出发的代表X、Y⽅向简谐运动旋转⽮量位置的直线； （3）画出合运动的定位线，得到属于李萨如图形的点的坐标，如果是第⼀个点，则直接描点；否则与前⼀点相连，得到质点的运动轨迹； （4）擦去两个旋转⽮量和合运动定位线； （5）继续计算下⼀点的坐标，再回到第2步重复进⾏； （6）直到暂停或终⽌程序运⾏。
按照以上的算法，⽤VB6.0编制程序[2, 3]。
运⾏程序，发现在擦去合运动的定位线的同时，把X、Y⽅向简谐运动的旋转⽮量图和李萨如图形也擦去了⼀部分。
例如图1中的A、B、C、D和E点等都被擦去，经过⼀段时间以后，X、Y⽅向简谐运动的旋转⽮量图和李萨如图形都变成了虚线图，不再是⼀幅完整的图形。
为了得到良好的视觉效果，应该使上述被擦掉的部分能够及时补画上。
对于X、Y⽅向简谐运动的旋转⽮量图，由于它是由规则的直线和圆画出的，因⽽再次重画相应的直线和圆即可。
vb3D绘图示范代码
Visual Basic 3D 绘图示例
以下是 Visual Basic 中绘制 3D 线的示例代码：
在这段代码中，定义了一个 Form1 类，该类重写了 Paint 事件处理程序。
在事件处理程序中，它创建了一个 3D 矩阵，并使用它将两个 Imports Public Class
Private Sub As Object As Handles Me
Dim As New
305040100200300
Dim As New 000
Dim As New 100100100
Dim As Dim As
Dim As
End Sub
Private Function As As Dim As Integer CInt Me Dim As Integer CInt Me Return New
End Function End Class
Public Class
3D 点转换并投影到 2D 平面上。
然后，它使用Graphics对象的DrawLine方法连接这两个点。
请注意，这只是一个简单的示例，旨在演示 Visual Basic 中 3D 绘图的基本概念。
通常，一个完整的 3D 图形系统会包括额外的类和函数，用于更高级的 3D 操作，例如照明、阴影和透视投影。
vb图形控件和图形方法
二.AutoSize 属性（逻辑类型）
➢ AutoSize属性值为Ture时，图片框的边界会 随着所装入图片的大小变化而变化。此时在设 计窗体过程中就应该特别小心，图片将不考虑 窗体上其他控件而自动调整大小，可能导致意 想不到的后果，如覆盖其他控件等。所以应慎 用，以免影响窗体界面的完整性。
三.Align属性(整数0～4)
二.Stretch属性（逻辑类型）
➢影响框控件Stretch属性设置为Fakse（默认值）时，可 根据图片的大小手工调整控件的大小，以达到满意的显 示效果；当设置为True时，将根据控件的大小来自动调 整图片的大小，这时若调整影像框的大小，可能会使图 片变形，影响图像的真实显示。
阶段2 影像框控件常用事件
任务2 图片框控件
阶段1 图片框控件常用属性 阶段2 图片框控件常用方法
阶段1 图片框控件常用属性
一.Picture 属性（字符串类型）
⑴ 设计时选取：在界面设计时，选中该图片框控件属性 窗口中该属性，在弹出的Load_Picture对话框中选择所 要显示的图片文件，相应的图片随之被加载到图片框中。 ⑵ 运行时装入：程序运行时，可用LoadPicture函数装 入图片到图片框控件中。
ScaleWidth属性：该属性值为容器自身的宽度值。 ScaleHeight属性：该属性值为容器自身的高度值。 CurrentX、CurrentY属性：分别表示当前点在容器内
的横坐标、纵坐标。
阶段2 改变容器坐标系的Scale方法
➢容器坐标系中，坐标系刻度单位的默认值为 “缇”（1缇≈0.01764毫米），容器的最小坐 标值为左上角坐标，容器的最大坐标值为右下 角坐标。 ➢利用Scale方法可以改变原点的坐标并随之改 变最大坐标值。 格式：容器名.Scale (x1,y1)-(x2,y2)
vb动态爱心代码
vb动态爱心代码VB动态爱心代码是一种在Visual Basic程序开发中常用的代码技术，它可以通过编写一定的代码实现爱心动态效果的展示。
这种技术常常被应用于网页制作、软件UI 设计和图形动画等领域中，达到提升用户体验、增强视觉效果等诸多效果。
下面，本文将对VB动态爱心代码进行详细阐述。
一、VB动态爱心代码的基础原理VB动态爱心代码其实是基于数学图形学的基础原理实现的。
具体来说，就是通过矢量、二维变换等于一系列的计算，将爱心的形状固定在一个特定的坐标轴上，并且在此基础上完成了一些重要属性的变化，如颜色、大小等，从而实现了爱心的动态展示。
二、VB动态爱心代码的编写过程1、新建VB程序首先，在Visual Basic开发环境中，需要新建一个VB窗体程序，并且添加相应的控件和属性。
2、编写相应代码在VB窗体程序中，需要通过编写相应的代码，实现爱心的动态展示。
由于本文的主要重点是VB动态爱心代码的编写，因此以下将对部分核心代码进行详细说明。
Dim X, Y, a, b, T, m As Single m = 50 a = 5 'a表示心形图纸上的横向半轴长 b = 4 'b表示心形图纸上的纵向半轴长 T = 0.1 随着上述初始值的赋值，心形图就可以顺利地生成。
3、实现效果最后，在编写完相应的代码之后，就可以完成VB动态爱心代码的应用，并且实现特定效果的展示，使爱心形状呈现出不同的运动轨迹和颜色特效，同时提升动态效果的视觉效果。
三、VB动态爱心代码的应用范围VB动态爱心代码广泛应用于软件开发、网页设计、图形动画等领域，具有良好的可移植性和易用性，在这些领域中，VB动态爱心代码的应用有以下优点：1、提升用户体验通过VB动态爱心代码的应用，可以给用户带来非常好的视觉体验，特别是在软件UI界面设计和网页设计中，可以增强产品、品牌的代表性。
2、增强视觉效果VB动态爱心代码具有较强的可视化效果，通过灵活组合不同颜色，形状等要素，可以展示出丰富的图形视觉效果，提升软件、网页等产品在用户中的美感和可读性。
VB_绘图_直线_圆_矩形_自由绘图_实例
VB 绘图要求：在VB窗口中，添加一个Picture控件，在该控件中任意点击，拖拽画图画直线Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (a, b)-(x, y)End IfEnd Sub画矩形Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (a, b)-(a, y)Picture1.Line (a, b)-(x, b)Picture1.Line (x, b)-(x, y)Picture1.Line (a, y)-(x, y)End IfEnd Sub画圆Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.ClsPicture1.Circle (a, b), Sqr((x - a) ^ 2 + (y - b) ^ 2)End IfEnd Sub自由绘图Dim a As IntegerDim b As IntegerPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 Thena = xb = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 1 ThenPicture1.PSet (x, y)End IfEnd Sub实例：设计一个窗口，效果如下图，要求设置四个单选框，分别为画直线、画圆、画矩形、自由绘图，选中任意一项，便可在左侧的picture控件中任意地方拖拽出相应的图形。
VB6绘图
13
计算控件的大小代码
图片框控件： pyh = Picture1.Height pxw = Picture1.Width Print "pxw="; pxw, "pyh="; pyh 窗体控件： yh = Form1.Height xw = Form1.Width Print xw, yh
2014-9-28
华南理工学化学与化工学院方利国开发
26
椭圆绘制
命令：Circle (10000, 5000), 3000, vbRed, 0, 0, 2 Circle (10000, 5000), 3000, vbBlue, 0, 0, 0.5
2014-9-28
华南理工学化学与化工学院方利国开发
Picture1.Line (1000, 1000)-(1000, 5000), RGB(0, 0, 255)’颜色设置蓝 Picture1.Line (1000, 1000)-(9000, 1000), RGB(0, 255, 0)’颜色设置绿 Picture1.Line (1000, 5000)-(9000, 1000), RGB(255, 0, 0) ’颜色设置红 得下图3。
VB6.0 绘图基础
华南理工大学化学与化工学院方利国
2014-9-28
华南理工学化学与化工学院方利国开发
1
1、绘图空间的设置
在VB6.0中绘图其实和手工在图纸上绘图 是相当的，手工绘制需要的一些准备工作， 如图纸、铅笔、橡皮擦、三角板、圆规等 工具对应成计算中的各种设置和命令，绘 图时要做的第一件事是准备好图纸。在 VB6.0中常用的图纸是窗体及图片框控件， 当然其它能存放其他控件的控件均可以。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
来个房子的吧：Private Sub Command1_Click()Dim i As Integer, n As IntegerClsn = 5For i = 1 To 3Print String(4 - i, " ") & String(2 * i - 1, "*") & String(10, "*")NextFor i = 1 To 4Print " * *" & String(9, " ") & "*"NextPrint " " & String(15, "*")End SubVB 填充封闭区间Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As LongPrivate Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As LongPrivate Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As LongPrivate Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPrivate Sub Command1_Click()Dim hBrush As LongDim OldhBrush As LonghBrush = CreateSolidBrush(RGB(0, 0, 255))'要填充的颜色OldhBrush = SelectObject(Me.hdc, hBrush)Me.Line (10, 10)-(100, 100), RGB(255, 0, 0), BFloodFill Me.hdc, 20, 20, RGB(255, 0, 0)'区间边界颜色SelectObject Me.hdc, OldhBrushDeleteObject hBrushEnd Sub用VB做的俄罗斯方块的论文怎么写浏览次数：3200次悬赏分：30 |解决时间：2007-3-6 18:51 |提问者：高程我在论文的时候用VB编写了一个俄罗斯方块游戏,但不知道论文该怎么写,有人知道的告诉下,或者在网站上看到相关的资料给我说下,先谢谢大家了!~!~!~，必有重谢最佳答案前言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows 系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户在繁忙的日程工作中得到放松,于是出现了各种各样的休闲软件,如聊天工具,游戏等等。
于是我们小组着手设计开始一个这样的游戏软件。
通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在牛荣和李鹏等老师的指导下动手用Visual Basic编写俄罗斯方块游戏。
我们之所以选择开发俄罗斯方块游戏，无可争议，《俄罗斯方块》是有史以来最伟大的游戏之一。
在曾经发布过的所有游戏中，《俄罗斯方块》还被认为是仅有的一个能够真正吸引广泛人群的作品。
谁能说清楚，迄今为止人们究竟花了多少万个小时在这个游戏上？也许这些时间本来可以被花在更具生产力的活动上。
某些批评家也许会声称，《俄罗斯方块》要比过去二十年间出现的任何东西都要浪费人们的时间。
至于我们，则要欣然提名它为GameSpot评选出的历史上最伟大游戏之一。
为了怀念经典，也为了能够给大多的计算机用户在工作之余找到一个休闲、娱乐的一个方式，我们小组开始着手用VB语言开发一个经典的俄罗斯方块游戏。
工程概况2.1 项目名称俄罗斯方块游戏2.2 设计平台VB 全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。
Vb是microsoft公司于1991年退出的windows应用程序开发工具visual意思是“可视化的”。
在它刚推出来时，自身还存在一些缺陷，功能也相对少一些。
但是经过多年的开发研究。
最近microsoft公司又推出了VB6.0版本VB6.0运行环境：硬件，要求486以上的处理器、16MB以上内存，50MB 以上的硬盘，cd-rom驱动器，鼠标。
软件：要求windows 95以上版本。
2.3程序设计思想游戏是用来给大家娱乐的，所以要能在使用的过程中给大家带来快乐，消除大家的疲劳，所以我们在游戏中添加了漂亮的场景和动听的音乐，设置了过关升级的功能，激发大家的娱乐激情。
从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，我们在设计中在一个图片框中构造了一个4*4的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此我们总共设计了7中造型，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个欲览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是有时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if 语句对分数判断，达到一定的积分就可以升级到下一个档次。
俄罗斯方块游戏设计的主要步骤为以下10个方面：（1）游戏界面的设计。
（2）俄罗斯方块的造型。
（3）俄罗斯方块的旋转。
（4）俄罗斯方块的运动情况（包括向左，向右和向下）。
（5）俄罗斯方块的自动消行功能。
（6）游戏级别的自由选择。
（7）游戏速度的自由选择。
（8）游戏得分的计算。
（9）游戏菜单选项的设计及功能实现。
（10）游戏的背景音乐及特效。
2.4运用的控件和主要对象我们在设计过程中主要用到的控件有:command控件，image控件，picture控件，label控件，timer控件，text控件，windows media player控件等等。
2.5主要实现的功能我们开发的俄罗斯方块游戏，主要实现了以下几种功能：1.可以灵活控制方块在图形框中运动。
2.游戏过程中方块可以自由旋转。
3.当某一行的方块排列满时，将自动将这一行方块消除，然后将上面所有方块向下移动，可以支持连续消行。
4.游戏前可以选择游戏的速度和游戏的等级，游戏速度既为方块下落速度，游戏等级为初始游戏时在基层随机生成一定行数的无规律方块，生成的行数由你来选择，每行至少产生5个以上的无规律方块，这样增加了游戏难度，对于游戏高手来说，无疑不是一个新的挑战。
5.游戏的得分支持积分，并且按照公式：得分= 原来分数+ 100 * (2 ^ 同时消除的行数-1)这样，你同一时间消除的行数越多，你的得分也就越高，当游戏积分到了一定时可以自动升级，这个升级指速度升级。
6.游戏中提供了一个漂亮的场景和动听的音乐，给你带来无限激情。
2.6开发人员由于这次课程设计所选的题目太复杂，而时间又比较紧张，指导老师建议和同学分工完成。
我们小组成员包括组长孙磊周，副组长邹海星，此游戏由我们两个人共同开发而成。
正文3.1游戏设计的具体实现在我们两个人共同努力下，此次设计，终于能够圆满完成。
由于时间的紧促，在设计中，也许会有一些考虑不周之处，但其功能已经能够满足大多用户的需求，相信假以时日，一定能做出一个更经典，更完美的俄罗斯方块游戏，下面我们将对每一步的具体如何实现展示给大家。
3.1.1游戏界面的设计和背景音乐及特效的实现俄罗斯方块游戏主要由两个界面构成，登陆界面和开始游戏界面，在登陆界面中我们可以首先看到圣诞节的晚上飘梅花的场景，梅花从窗体顶部做函数曲线的下落运动，在窗体中定义一个Image控件组，在通用中定义梅花X坐标变量动态数组，Y坐标变量动态数组，步距X的变量动态数组，步距Y的变量动态数组，以及振幅变量动态数组。
然后在窗体form_load中可以定义梅花的数量，利用随机函数产生随机的梅花坐标，步距和振幅，Image控件在运行时候就调用梅花图片，Image控件就可以由时钟控件控制下落速度，可以自由调节，梅花按snow(i).Left = xp(i) + am(i) * Sin(dx(i))函数在做纵向的正玄函数轨迹运动，竖直方向上为自由下落运动，，有am(i)来控制梅花的左右移动振幅。
因此，我们就可以看到一个梅花在空中自由飘舞的画面了。
背景画面是用photoshop软件处理的漂亮图案，原本画面中的动画效果都是由Image控件制作的，还有点击进入游戏的按钮是由Label控件实现的，因为Image 控件没有置前置后功能，不能将下雪的场景体现完整性，所以将这些图案全部放在背景上，不影响雪花飘落的效果，当点击画面的时候一样可以进入游戏界面。
游戏的背景音乐是由一段代码调用系统播放器Windows Player播放背景音乐，由于本次设计主要是针对游戏如何设计的，所以在这里就不对播放背景音乐的功能做介绍了。
3.1.2俄罗斯方块的造型相信朋友们都玩过俄罗斯方块，对这个游戏的玩法和方块形状都比较熟悉。
我们这个游戏只选择了最基本的7中造型，包括长条型，正方型，正S型，反S型，正7型，反7型，T型。
如果需要我们可以添加更多的造型。
将游戏界面的游戏区图片框分割成10*20的小块，每个小块放置一个command控件，预览区图片框按同样比例分割成4*4的小块，同样有command控件构成，我们可以把预览区图片框看作是从游戏区图片框中选取的一个部分，游戏区的小方块编号和欲览区编号如下图：0 1 2 3 4 5 6 7 8 9… … … … … … … … … …… … … … … … … … … …90 91 92 93 94 95 96 97 98 993 4 5 613 14 15 1623 24 25 2633 34 35 36游戏区编号欲览区编号利用Select将方块的7中造型列出，比如长条型的设计，在欲览区中分别有3.4.5.6和5.15.25.35四个方块构成两中形态，用数组为：m(0) = 3: m(1) = 4: m(2) = 5: m(3) = 6: situation2 = 0m(0) = 5: m(1) = 15: m(2) = 25: m(3) = 35: situation2 = 1将它的形状编号为0和1，在后面方便调用，其他的方块造型同样的方法。