本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！
== 本文为word格式，下载后可方便编辑和修改！ ==
excel赛车小游戏
篇一：微软EXCEL201X隐藏3D赛车游戏
微软EXCEL201X隐藏3D赛车游戏
微软的excel 201X中隐藏着一个3d赛车游戏，据可靠消息称，是那些为
office系列软件编写web控件的程序员设计的，具体启动该游戏的方法如下:
1、开启excel之后随便开一新档，选择左上角“文件”，选“另存为”，在“文件类型”中选“WEB页”，再往上看一点，会看到“发布”，按下“发布”后再将“添加交互对象” 或“增加互动功能”打勾，再将档案名称设为
201X.htm后储存（发布）。
2、打开 Internet Explorer，在“文件”中选择“打开”，选“浏览”后到文件201X.htm 将其“打开”，再选择“确定”，你应该会看到电子表格出现
在网页中央。
3、在电子表格中，用“下页”进行翻页，到第201X行、将第201X行整个选取（整行选取的方法就是按201X的灰按键），再利用tab键将第wc列反白
使其处于作用状态下（多按几下tab就会移动到wc列，201X/wc格就会转为白）。
4、最后一步是按住SHIFT +ALT+CTRL 键后，同时将鼠标点击出现在网页中间
表格的左上角——象七巧板式的（四个颜）的OFFICE WEB COMPONENTS图标，停二秒钟左右，页面就会出现赛车游戏啦
5、开始玩了，按ESC可退出.
6、 H键是开灯，如果你觉得那么多的车干扰你，不大爽的话，空格键是开，威力强大。
篇二：赛车游戏代码
Co nst D = 100 '方格的宽度
Const BT = 3000 '跑道底部的y坐标
Dim l1(22) As Integer '每层跑道左边有几个方块
Dim l2(22) As Integer '每层跑道右边有几个方块
Dim cx As Single '赛车的在x轴的位置
Dim cy As Integer
Dim i As Integer
Private Sub Command1_Click()
cx = Width / 2 - 3 * D / 2
cy = Height - D
drawcar
For i = 1 To 20
l1(i) = 0
l2(i) = 0
drawway (i)
Next i
Timer1.Enabled = True
End Sub
Private Sub drawcar()
Line (cx, BT - 100)-Step(3 * D, D), BackColor, BF
Line (cx + D, BT - 200)-Step(D, D), BackColor, BF '先擦 Line (cx, BT - 100)-Step(3 * D, D), RGB(225, 0, 0), BF Line (cx + D, BT - 200)-Step(D, D), RGB(225, 0, 0), BF网页游戏小游戏
End Sub
Private Sub drawway(n)
Line (Width/2-3*D/2-2*D,BT-n*D)-Step(7*D,D),BackColor, BF '先擦后画
Line (Width/2-3*D/2-2*D,BT-n*D)-Step(l1(n)*D, D), ,BF Line (Width/2-3*D/2+5*D,BT-n*D)-Step(-l2(n)*D,D), ,BF
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("a"), Asc("A")
cx = cx - D
Case Asc("s"), Asc("S")
cx = cx + D
End Select
End Sub
Private Sub Timer1_Timer()
Randomize
For i = 1 To 19
l1(i) = l1(i + 1)
l2(i) = l2(i + 1)
drawway (i)
Next i
Do
l1(20) = Int(Rnd * 5)
l2(20) = Int(Rnd * 5)
Loop Until ((l1(20) + l2(20) <= 4) And (l1(20) - l1(19) <= 1) And _ (l2(20) - l2(19) <= 1) And (l1(19) + l2(20) <= 4) And _
(l1(20) + l2(19) <= 4
)) '这里生成新一层跑道，
'注意要筛去玩家不可能通过的情况！
drawway (20)
'以上画出跑道
drawcar
test
End Sub
Private Sub test()
End Sub If 3.5*D-Width/2+cx<l1(1)*D Then Timer1.Enabled=False If
3.5*D-Width/2+cx+D<l1(2)*D Then Timer1.Enabled=False If 3.5*D-
(cx+3*D-Width/2)<l2(1)*D Then Timer1.Enabled=False If 3.5*D-(cx+2*D-Width/2)<l2(2)*D Then Timer1.Enabled=False
篇三：将flash小游戏放入excel表格和取出的方法
将flash小游戏放入excel表格和取出的方法
在办公室上班无聊时，想玩下小游戏，但又怕BOSS发现，肿么办。现教你招在excel表格中玩游戏，你玩的正酣时，老板还以你工作勤劳偷偷乐了。好了，
说正事：
1 第1步首先开启一个空白Excel文件，在上方功能表的空白处按一下鼠标右键，然后点选【控制工具箱】，启用「控制工具箱」工具列。“控制工具箱”有可能你在excel中不到，你选择左上角那个按钮，到最下面那个“excel 选项”，开它，在“在功能区显示“开发工具”选项卡前打√”。然后你就会在工具栏中到“开发工具”选项。
2 第2步出现「控制工具箱」工具列后，在最右边的「其他控制项」按钮上按一下鼠标右键，然后再选单中点选「Shockwave Flash Object」项目，表示等等要插入Flash物件。注意flash的格式为swf。
3 第3步接著，鼠标会变成一个小十字的图案，此时可以在Excel编辑区中划一个大小适中的方框，这个方框就是用来显示Flash动画的内容的。如下图示:
4
5 第4步画好方框后，接著在物件上方按一下鼠标右键并点选功能表中的【属性】，准备设定该物件的属性。
第5步出现「属性」对话框后，在页面中到［Base］、[Movie]、[Embedmovie]这三个项目，填写方法如下：Base：
填写flas件的全名，比如clock20.swf，如果flas件和excel文件不
在相同目录下的话，还要填写flas件的完整路径名称 Movie：填写方法与
上面一致 Embedmovie：是否嵌入flas件，选择true
6 第6步回到Excel编辑页面后，点一下「控制工具箱」工具列最左边的〔结束设计模式〕按钮，恢复一般模式。
7 第7步设定好该物件的属性并回到一般编辑模式后，我们便可看到Excel档案中出现了刚刚贴上的Flash档内容啦，你就可以在表格操作了。
那excel中的flash又怎么弄出来了单独玩了，下面也给你个非常简单的方法，你可以使用Excel表的宏操作来提取：
1 点击菜单栏中的“工具（T） -> 宏（M）-> 宏(M)”，调出“宏”窗口，按照图示，
随便输入一个名字（例如：宏名：milk），然后点击“创建。
2 弹出一个编程界面，在界面的中间有一个小窗口，在窗口中输入下面的程序
语言段。
Sub milk()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office
File(*.doc;*.xls),*.doc;*.xls", , "确定要分析的 Office 档")
If tmpFileName = "False" Then Exit Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。