在本节我们介绍一般变量、数组元素、数组名作为函数参数的几种情况。输入并运行以下代码：Subfun(aAsLong)a+=1PrintaEndSubSub游戏执行过程(hWndFormAshWnd)DimxAsLong=1Printxfun(x)PrintxEndSub程序运行后输出：121程序从主函数开始运行，首先定义变量x并初始化为1，printx输出1。接着执行fun(x)进入fun()函数，…

鼠标点击位置的坐标为(m.x,m.y)，根据图8-3中5行5列小圆圈的坐标设置（代码8-1-2.cpp），被鼠标点中的小圆圈在二维数组rounds中的行、列序号为：Dimclicked_iAsLong=Int(ps.y-45)/45Dimclicked_jAsLong=int(ps.x-45)/45被点中的小圆圈需要顺时针旋转90度，如图8-6所示。只需要将其angleNum值依次+90即可：Ro…

回顾7.4节中讲解的键盘交互处理函数：SubupdateWithInput(moveDirectionAsString)'和输入有关的更新IfIsKeyPress(&H57)ThenmoveDirection="上"ElseIfIsKeyPress(&H53)ThenmoveDirection="下"ElseIfIsKeyPress(&H41)ThenmoveDirection="左"ElseIf…

图8-1中的绘制单元由一个白色圆圈、一个红色指针组成。记录白色圆圈的信息需要定义3个变量：DimAsLongx,y'小圆圈的圆心坐标DimAsLongr'小圆圈半径红色指针起点在圆心，长度为圆半径，其角度只能有0、90、180、270这4种可能。定义取值范围为的整型变量angleNumDimAsLongangleNum'对应的角度种类，只能是0、1、2、3，表示对应的4个角度值要记录图8-1中的5…

在本章我们将探讨如何编写“十步万度”游戏，效果如图8-1所示。用鼠标点击任意一个小圆圈，其指针顺时针旋转90度，后续被指向的圆圈指针也依次旋转，所有圆圈的旋转度数累积。玩家点击10次，尝试得到尽量高的旋转度数。本章首先介绍了结构体的概念，并展示利用结构体数组存储所有小圆圈信息；然后讲解了鼠标交互的方法，以及如何实现被鼠标点中的小圆圈的旋转；接着讲解了数组作为函数的参数，以及如何实现旋转的迭代传播；…

添加全局变量记录食物的位置：DimSharedAsLongfood_i,food_j'食物的位置在startup()函数中初始化食物的位置：Substartup(ggAsyGDI)'初始化函数Randomizefood_i=Rnd*(BLOCK_HEIGHT-5)+2'初始化随机食物位置Randomizefood_j=Rnd*(BLOCK_WIDTH-5)+2在show()函数中在食物位置处绘制一…

定义全局变量isFailure表示游戏是否失败，初始化为0：DimSharedisFailureAsLong'是否游戏失败当小蛇碰到画面边界时，则认为游戏失败。由于每次只有蛇头是新生成的位置，所以在moveSnake()函数中只需判断蛇头是否越过边界：IfnewHead_i>=BLOCK_HEIGHTOrnewHead_i=BLOCK_WIDTHOrnewHead_j0ThenisFailure=…

之前代码通过在updateWithoutInput()函数中调用Sleep()函数来降低小蛇的移动速度。然而Sleep()函数运行时，整个程序都会暂停，包括用户输入模块。用户会感觉到卡顿，明明按了键，小蛇却没有反应。为了解决这一问题，这一节介绍动态变量、静态变量的概念。输入并运行以下代码：Subfun()DimmAsLongm+=1PrintmEndSubSub游戏执行过程(hWndFormAsh…

变量oldHead_i、oldHead_j存储移动前的蛇头位置（对应元素在二维数组中的行号、列号），newHead_i、newHead_j存储移动后的蛇头位置。小蛇向上移动，只需把新蛇头的坐标设为旧蛇头的上方即可，如图7-6所示。在7-3代码的基础上修改代码就可以让小蛇向上移动：newHead_i=oldTail_j-1'向上移动进一步，我们让玩家用键盘控制小蛇的移动。除了上、下、左、右键外，很多…

实现小蛇的移动功能是“贪吃蛇”游戏的开发难点，图7-4列出了小蛇向右移动前后二维数组的元素值，虚线框内为对应代码的实现步骤：假设小蛇初始元素值为54321，其中1为蛇头、5432为蛇身、最大值5为蛇尾。首先将二维数组中所有大于0的元素加1，得到65432；然后将最大值6变为0，即去除了原来的蛇尾；最后将2右边的元素由0变成1，即实现了小蛇向右移动。定义函数moveSnake()处理小蛇移动的相关操…