用vb编写图形

来个房子的吧：

Private Sub Command1_Click()

Dim i As Integer, n As Integer

Cls

n = 5

For i = 1 To 3

Print String(4 - i, " ") & String(2 * i - 1, "*") & String(10, "*")

Next

For i = 1 To 4

Print " * *" & String(9, " ") & "*"

Next

Print " " & String(15, "*")

End Sub

VB 填充封闭区间

Private Declare Function FloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub Command1_Click()

Dim hBrush As Long

Dim OldhBrush As Long

hBrush = CreateSolidBrush(RGB(0, 0, 255))'要填充的颜色

OldhBrush = SelectObject(Me.hdc, hBrush)

Me.Line (10, 10)-(100, 100), RGB(255, 0, 0), B

FloodFill Me.hdc, 20, 20, RGB(255, 0, 0)'区间边界颜色

SelectObject Me.hdc, OldhBrush

DeleteObject hBrush

End 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个以上的无规律方块，这样增加了游戏难度，对于游戏高手来说，无疑不是一个新的挑战。