2008年12月_northwolves

原创 About Google Treasure Hunt 2008

今天比较高兴，一口气做完了四道题目。看来VB6 仍有用武之地，尽管速度着实令人失望。 Thank you for entering the Treasure Hunt! Here are the first correct entries we received for the email address northwolves@gmail.com: Questi

2008-12-30 15:37:00 969

原创 An UDF to Get LanguageSettings of Office's Application

Use Application.LanguageSettings.LanguageID to to get LanguageSettings of Offices Application The codes：Sub ShowLanguage() Dim Lan(-100 To 25000) As String Init Lan Deb

2008-12-29 00:31:00 1424

原创 Get prime numbers nearby a number less than 10^10

For any given number less than 10^10,you can get prime numbers from 10000 numbers nearby it by the following codes: Private Sub Command1_Click()Debug.Print primes10000(987654321)End Sub

2008-12-28 20:32:00 1138

转载 C++ 实现"1234567"的全排列

原帖地址（http://starlancer.org/~is2004/mini/test/read.cgi/gen/1085476446/）方法1:#include char c[9];int x,j,k;int main(int i){for(i=35280;i--;)if(j=i%7,c[j+1]=j+49,!j){for(x=7,j=720;x-1;j

2008-12-24 16:05:00 1760

原创使用动态规划解决有关数字组合的问题

题目：在SHEET2中列出SHEET1表中重量不超过170，体积不超过200的所有组合(http://club.excelhome.net/viewthread.php?tid=382466&page=1#pid2435030) Sheet1 序号重量体积1253022631327324

2008-12-20 13:43:00 1840 2

原创 Get the Degree of Angle Between Hour and Minute Hand of a Clock at Anytime

We need to calculate Degree of angle between hour and minute hand Sometimes.So I wrote a function to solve it: Function Hourhandminute(ByVal mytime As Date) As StringDim t As Single, h As

2008-12-14 00:21:00 1114

原创 Draw an egg(3)

Use 4 arcs to compose an egg shape:Private Sub Form_Click()Me.Caption = "Draw an egg"Dim pi As Single, X As Singlepi = 4 * Atn(1)Me.Scale (-2, -4)-(4, 4)Me.Circle (2, 0), 1, vbCyan, 3

2008-12-12 01:00:00 917

原创 Draw an egg(2)

Its also easy to draw an egg with the curve y^2=(sin(x)*(1+cos(x)/π)). Private Sub Form_Click()Me.Caption = "Draw an egg"Dim pi As Single, X As Singlepi = 4 * Atn(1)Me.Scale (-1, -2)-

2008-12-12 00:23:00 941

原创 Draw an egg

Its very easy to draw an egg with the curve y^2=(x^2-1)*(x-π)Private Sub Form_Click()Me.Caption = "Draw an egg"Dim X As DoubleMe.Scale (-1.5, -3)-(1.5, 3)For X = -1 To 1 Step 0.0005Me

2008-12-11 23:54:00 1062

原创动态规划一例

题目（http://topic.csdn.net/u/20081208/16/672693a2-ce8e-462a-ba07-a70ff2f0c5a2.html?seed=2109433475）：有一个蛋糕，被切成了100份，现将这个100份装到12个盘子中，要求每个盘子中的份数不能为0，并且份数中必须还有数字3，不论个位或者十位，例如13份，37份等。请给出每个盘子中各装多少份的所有答案。

2008-12-08 22:45:00 2548

原创 How Rich Are You in the World?

HOW RICH ARE YOU? Use the codes below ,you can find where you sit in the richest people list in world. Sub Showhowrichyouare()Getit InputBox("Please enter

2008-12-08 20:18:00 1601

原创 Erf

ERF 返回误差函数在上下限之间的积分。如果该函数不可用，并返回错误值 #NAME?，请安装并加载“分析工具库”加载宏。在“工具”菜单上，单击“加载宏”。在“可用加载宏”列表中，选中“分析工具库”框，再单击“确定”。如果必要，请遵循安装程序中的指示。语法ERF(lower_limit,up

2008-12-08 14:27:00 1436

northwolves[狼行天下] 的专栏