- 博客(4)
- 收藏
- 关注
原创 用vb实现魔术棒功能
获得图象的像素高和宽Private Declare Function GetObject()Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long创建兼容DC的函数Private Declare Funct
2008-03-20 15:31:00 1295 2
原创 vb学习递归的典型例子
1。阶乘 ‘写个简单的例子,所谓阶乘的递归 Private Sub Command1_Click()Sub Command1_Click() Debug.Print dg(7) End Sub Function dg()Function dg(n) If n = 0 Then dg = 1 Else dg = dg(n - 1)
2008-03-13 09:49:00 8207
原创 vb正整数排序法
Private Sub Command1_Click()Dim c(100000) As LongDim b() As LongDim i As LongFor i = 0 To UBound(c)c(i) = Fix(Rnd * 100000)Next longSort c, bFor i = 0 To UBound(b)Print b(i)NextEnd Sub=============
2008-03-12 17:05:00 1006
原创 vb应用--快速排序-法实现二维数组的指定列排序
演示部分在窗口加一个command按钮启动后把窗体最大化,方便观看.****************************************Private Sub Command1_Click()Sub Command1_Click()这里不妨用10000个元素,事实上在窗体打出的第一个数字时,排序就已经完成了!!.可以不用再考虑排序的效率了Dim myAy(100
2008-03-09 17:58:00 6266 1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人