介绍一个VB小的有趣的程序代码

'万花筒程序

'粘贴下面代码即可, 不用添加任何控件

Private WithEvents Timer1 As Timer

Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#

Private Sub Form_Load()

      Me.Width = 4500: Me.Height = 4500

      Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

      Me.AutoRedraw = True

      Me.Caption = "CBM666的万花筒"

      Set Timer1 = Controls.Add("vb.timer", "Timer1")

      Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

      Randomize

      r = 340 * Rnd

      If r <> 0 Then

         r1 = 500

         s = r * Rnd

         b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

         For t = 1 To 10000

            a1 = t * 3.1415926 / 180

            a2 = (r1 / r) * a1

            xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4

            yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4

            Me.PSet (xb, yb), b

         Next t

      End If

End Sub

学习“推箱子”C语言编码：

#include <stdio.h>

#include <conio.h>

#include<stdlib.h>

#include<windows.h>

int m =0  //m代表第几关

struct maps{short a[9][11]}

struct maps map[5]={ 0,0,0,0,0,0,0,0,0,0,0,  //共5关,每关9行

              0,1,1,1,1,1,1,1,0,0,0,

              0,1,0,0,0,0,0,1,1,1,0,

              1,1,4,1,1,1,0,0,0,1,0,  //0空地,1墙

               1,5,0,0,4,0,0,4,0,1,0,  //4是箱子,5是人

              1,0,3,3,1,0,4,0,1,1,0,  //3是目的地

              1,1,3,3,1,0,0,0,1,0,0,  //7是箱子在目的地(4+3)

              0,1,1,1,1,1,1,1,1,0,0,  //8是人在目的地(5+3)

                0,0,0,0,0,0,0,0,0,0,0,

                0,0,0,0,0,0,0,0,0,0,0,

              0,0,1,1,1,1,0,0,0,0,0,

              0,0,1,5,0,1,1,1,0,0,0,

              0,0,1,0,4,0,0,1,0,0,0,

               0,1,1,1,0,1,0,1,1,0,0,

              0,1,3,1,0,1,0,0,1,0,0,

              0,1,3,4,0,0,1,0,1,0,0,

              0,1,3,0,0,0,4,0,1,0,0,

                0,1,1,1,1,1,1,1,1,0,0,

                0,0,0,0,0,0,0,0,0,0,0,

              0,0,0,1,1,1,1,1,1,1,0,

              0,0,1,1,0,0,1,0,5,1,0,

              0,0,1,0,0,0,1,0,0,1,0,

               0,0,1,4,0,4,0,4,0,1,0,

              0,0,1,0,4,1,1,0,0,1,0,

              1,1,1,0,4,0,1,0,1,1,0,

              1,3,3,3,3,3,0,0,1,0,0,

                1,1,1,1,1,1,1,1,1,0,0,

                0,1,1,1,1,1,1,1,1,1,0,

              0,1,0,0,1,1,0,0,0,1,0,

              0,1,0,0,0,4,0,0,0,1,0,

              0,1,4,0,1,1,1,0,4,1,0,

               0,1,0,1,3,3,3,1,0,1,0,

              1,1,0,1,3,3,3,1,0,1,1,

              1,0,4,0,0,4,0,0,4,0,1,

              1,0,0,0,0,0,1,0,5,0,1,

                1,1,1,1,1,1,1,1,1,1,1,

                0,0,0,0,0,0,0,0,0,0,0,

              0,0,0,1,1,1,1,1,1,0,0,

              0,1,1,1,0,0,0,0,1,0,0,

              1,1,3,0,4,1,1,0,1,1,0,

               1,3,3,4,0,4,0,0,5,1,0,

              1,3,3,0,4,0,4,0,1,1,0,

              1,1,1,1,1,1,0,0,1,0,0,

              0,0,0,0,0,1,1,1,1,0,0,

                0,0,0,0,0,0,0,0,0,0,0 }

void DrMap( )  //绘制地图

{ CONSOLE_CURSOR_INFO cursor_info={1,0}   //隐藏光标的设置

SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE),&cursor_info)

printf("\n\n \t\t\b推箱子")

printf("\n \t")

for (int i = 0i <9i++)

{for (int j = 0j <11j++)

{switch (map[m].a[i][j])

{case 0:  printf("  ")break

case 1:  printf("■")break

      case 3:  printf("◎")break

case 4:  printf("□")break

case 5:  printf("♀")break  //5是人

case 7:  printf("□")break //4 + 3箱子在目的地中

case 8:  printf("♀")break   // 5 + 3人在目的地中

}

}

printf("\n\t")

}

}

void gtxy(int x, int y)  //控制光标位置的函数

{ COORD coord

coord.X = x

coord.Y = y

SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), coord)

}

void start( )  //开始游戏

{ int r, c   //r，c用于记录人的下标

for (int i = 0i <9i++)

{ for (int j = 0j <11j++)

     {if (map[m].a[i][j] == 5||map[m].a[i][j]==8) { r = i c = j} } //i j 人的下标

}

char key

key = getch( )

switch (key)

{case 'W':

case 'w':

case 72:

if (map[m]. a[r - 1][c] == 0|| map[m]. a [r - 1][c] == 3)

{ gtxy(2*c+8,r-1+3)printf("♀")  // gtxy(2*c+8,r-1+3)是到指定位置输出字符

        if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

       if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

       map[m]. a [r - 1][c] += 5 map[m]. a [r][c] -= 5}

else  if (map[m]. a [r - 1][c] == 4 || map[m]. a [r - 1][c] == 7)

       { if (map[m]. a [r - 2][c] == 0 || map[m]. a [r - 2][c] == 3)

{ gtxy(2*c+8,r-2+3)printf("□")gtxy(2*c+8,r-1+3)printf("♀")

           if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

           if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

           map[m]. a [r - 2][c] += 4 map[m]. a [r - 1][c] += 1

 map[m]. a [r][c] -= 5}

} break

case 'S':

case 's':

case 80:

if (map[m]. a [r + 1][c] == 0 || map[m]. a [r + 1][c] == 3)

 { gtxy(2*c+8,r+1+3)printf("♀")

         if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

        if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

        map[m]. a [r + 1][c] += 5 map[m]. a [r][c] -= 5}

     else if (map[m]. a [r + 1][c] == 4 || map[m]. a [r+ 1][c] == 7)

         { if (map[m]. a [r + 2][c] == 0 || map[m]. a [r + 2][c] == 3)

           { gtxy(2*c+8,r+2+3)printf("□")gtxy(2*c+8,r+1+3)printf("♀")

             if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

            if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

            map[m]. a [r + 2][c] += 4map[m]. a [r + 1][c] += 1

map[m]. a [r][c] -= 5}

  }break

case 'A':

case 'a':

case 75:

if (map[m]. a [r ][c - 1] == 0 || map[m]. a [r ][c - 1] == 3)

        { gtxy(2*(c-1)+8,r+3)printf("♀")

         if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

        if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

         map[m]. a [r ][c - 1] += 5map[m]. a [r][c] -= 5}

     else if (map[m]. a [r][c - 1] == 4 || map[m]. a [r][c - 1] == 7)

        {if (map[m]. a [r ][c - 2] == 0 || map[m]. a [r ][c - 2] == 3)

{ gtxy(2*(c-2)+8,r+3)printf("□")gtxy(2*(c-1)+8,r+3)printf("♀")

            if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

            if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

            map[m]. a [r ][c - 2] += 4map[m]. a [r ][c - 1] += 1

            map[m]. a [r][c] -= 5}

 }break

case 'D':

case 'd':

case 77:

if (map[m]. a [r][c + 1] == 0 || map[m]. a [r][c + 1] == 3)

 { gtxy(2*(c+1)+8,r+3)printf("♀")

         if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

         if(map[m]. a[r ][c] == 8) {gtxy(2*c+8,r+3)printf("◎")}

        map[m]. a [r][c + 1] += 5 map[m]. a [r][c] -= 5}

    else if (map[m]. a [r][c + 1] == 4 || map[m]. a [r][c + 1] == 7)

        { if (map[m]. a [r][c + 2] == 0 || map[m]. a [r][c + 2] == 3)

{ gtxy(2*(c+2)+8,r+3)printf("□")gtxy(2*(c+1)+8,r+3)printf("♀")

            if(map[m]. a[r ][c] == 5){gtxy(2*c+8,r+3)printf("  ")}

           if(map[m]. a[r ][c] == 8){gtxy(2*c+8,r+3)printf("◎")}

           map[m]. a [r][c + 2] += 4map[m]. a [r][c + 1] += 1

           map[m]. a [r][c] -= 5}

 }break

  }

}

int ifwan( )  //是否完成(1是0否)

{ if(m==0){if(map[m].a[5][2]==7&&map[m].a[5][3]==7&&

                map[m].a[6][2]==7&&map[m].a[6][3]==7) return 1}

if(m==1){if(map[m].a[5][2]==7&&map[m].a[6][2]==7&&

                map[m].a[7][2]==7) return 1}

if(m==2){if(map[m].a[7][1]==7&&map[m].a[7][2]==7&&map[m].a[7][3]==7&&

               map[m].a[7][4]==7&&map[m].a[7][5]==7) return 1}

if(m==3){if(map[m].a[4][4]==7&&map[m].a[4][5]==7&&map[m].a[4][6]==7&&

      map[m].a[5][4]==7&&map[m].a[5][5]==7&&map[m].a[5][6]==7) return 1}

if(m==4){if(map[m].a[3][2]==7&&map[m].a[4][1]==7&&map[m].a[4][2]==7&&

              map[m].a[5][1]==7&&map[m].a[5][2]==7) return 1}

return 0

}

int main( )  //主函数

{ while (1)

     { system("cls")

       DrMap( )

       while (1)

           { start( )

             if(ifwan()){printf("          }7")break} //完成后响铃

       m+=1

    }

  return 0

}

---