9个text，6个farm布置如图 代码如下 Private Sub Form_LoadText1Text = quot100quot #39我方剩余士兵 Text2Text = quot170quot #39对方剩余士兵 Text3Text = quot180quot #39对方；主要代码定义nub，为下面的球体复制做准备var numNumber = 0定义xian，此处设置的目的为当球下落到一定程序的时候即超出屏幕的范围的时候，运行后面的程序，此方法的目的是为了让系统不会因为复制太多球体；利用随机数猜大小，如下1代码的第一行，是一个include语句没有它我们的程序会编译不过有了它就是告诉编译器在对代码进行编译之前，必须要包含程序需要的文件这里的stdioh就是我们需要的头文件2代码第二行是；includeltstdioh includeltstdlibh include char str1010=0int n，i=0，j=0，k=1main fori=0ilt10i++ forj=0jlt10j++strij=#39#39 srandunsigned timeNULLi；这是一个显示方格的小程序，小方格可一左右移动的，可以按A键D键方向键，按n 时则退出程序这个程序整体很简单你看一会就能明白了，上下移动还没弄好includeltstdioh void main int i，keyCount=0。