northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

Export selection of word document as an image file(2)

Option ExplicitPrivate Declare Function EmptyClipboard Lib "user32" () As LongPrivate Declare Function OpenClipboard Lib "user32"...

2008-10-25 15:53:00

阅读数:1530

评论数:0

Export selection of word document as an image file

 原文地址:http://www.spotlight-wissen.de/archiv/message/1665077.htmlOption Explicit (c) Désirée und Wolfram, 3/2005 Modifiziert: 11/2007 - Bilder mit run...

2008-10-25 15:43:00

阅读数:1674

评论数:0

递归列举从数组b()中选出某些元素(允许重复)使其和等于num的所有组合

Dim mycount As Long, s(1 To 65536, 1 To 1), num As LongSub main()Dim a, bnum = 45b = Array(10, 9, 8, 7, 6, 5, 4, 3, 2, 1)ReDim a(num)a(0) = b(0)searc...

2008-10-24 19:37:00

阅读数:1045

评论数:0

双色球中奖查询程序

 Sub Chaxun()Const mycaipiao = "01 03 05 07 09 15 29 24 27 33+02 07 09 13 16"jisuan "08119", mycaipiaoEnd SubSub jiangjin(a, b, c...

2008-10-10 11:11:00

阅读数:5571

评论数:1

提示
确定要删除当前文章?
取消 删除
关闭
关闭