week_yyy

VB简单弹球游戏源代码,有需要的就下载吧，很好的参考。(VB simple pinball game source code, there is need to download it, very good reference.)

这是使用 visual basic 控制及模拟 7seg ， 从电脑输出到project board 上面( 请把inpout32.dll放进system32 里面）(This is the use of visual basic control and Analog 7seg, from the computer output to project board above (please put into inpout32.dll inside system32))

用MFC编写的拼图游戏，可以在VC++6.0环境下编译成功(Written with MFC jigsaw puzzle, can be in vc++ 6.0 compiled under the environment of success)

一个简单的四则运算考核小程序,采用VB开发。(A simple arithmetic evaluation applet development using VB.)

LED快速开发入门，LED接口调用协议。(LED AA bb cc dd eee fff gggg kkkk ccc)

24系列模块 应用程序 内附电路图 吐血贡献(24-series modules containing circuit hematemesis contribution applications)

经典游戏俄罗斯方块的一种简单实现，支持玩家信息的保存和统计。(A classic game of Tetris simple implementation, support the players the preservation of information and statistics.)

遍历堆，可以对一个堆编立，复制，采用函数的递归调用来实现的(Traverse the heap, the recursive call to compile a heap legislation, copy, use the function)

使用暴力方法，寻找并输出一定范围内的amicable pair.(Violent methods used to find and output a range of amicable pair.)

以G列分成多个工作表(以宏运行VBA) (Sub aa() Dim a As Integer, b As Integer, c As Integer, sh As Worksheet For a = 2 To [g65536].End(3).Row If Cells(a, 7) <> Cells(a- 1, 7) Then b = a End If c = Range("g:g").Find(Cells(a, 7), , , , , xlPrevious).Row Set sh = Sheets.Add(, Sheets(Sheets.Count)) sh.Name = Sheets("sheet1").Cells(a, 7).Value With Sheets("Sheet1") Sheets("Sheet1").Range(.Cells(b, 1), .Cells(c, 10)).Copy Destination:=sh.[a2] Sheets("Sheet1").Range("a1:j1").Copy Destination:=sh.[a1] a = c End With Sheets("Sheet1").Select Next End Sub )