northwolves[狼行天下] 的专栏

How to select n numbers from 1 to m with all of array all and none of array none? Try the following codes,please. Sub getall(ByVal m As Long, ByVal n As Long, ByRef all, ByRef none) Select

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 

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

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 

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

原帖地址（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

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

 汉字-->区位: =TEXT(INT(CODE(A1)/256-160)*100+MOD(CODE(A1),256)-160,"0000")  区位-->汉字: =CHAR((INT(A1/100)+160)*256+MOD(A1,100)+160)

123456789这九个按顺序排列的数，要求在它们之间插入若干个+，-，*，/ ，使其结果正好等于100如： 1*2*3*4+5+6+7*8+9=100 以下代码在http://blog.youkuaiyun.com/northwolves/archive/2004/07/25/51038.aspx基础上修改而成: Sub main() 开始计算getall 100getall 10

A problem provided by me and solved by mathe in bbs.emath.ac.cn(See: http://zdu.spaces.live.com/blog/cns!C95152CB25EF2037!136.entry)    In http://bbs.emath.ac.cn/viewthread.php?tid=49&page

Function PowerPolynomial(ByVal f As String, ByVal n As Long) As String If n = 1 Then power = f: Exit Function Dim a() As Long, b, c(), s() As String, max As Long, i As Long, j As Long, k As

The integer sequence was in : A111133 Seems easy. Sub Calc() Dim n As Long, count(), i As Long n = 500 ReDim count(n) count(0) = 1 For i = 1 To n For j = n To

Its very easy to solve the problem,but maybe useful for elementary students. Sub getall() Dim s(300) As String, v(300) As Long, result As Long, temp As Long, x(1 To 17) As String, t, op

Problem: Suppose integer A,B(A>B) and Double C were satisified A/B=C and all digits(1-9)  each used just once in the all 3 numbers(A,B,C) respectively.  An example:152463798÷123456789＝1.2349

问题1: 周长不大于n，边长为整数的三角形有多少个？解法：     Function p(ByVal n As Long)周长n的三角形的个数If n Mod 2 Then n = n + 3p = Round(n ^ 2 / 48)End FunctionSub Main()Dim i As Long, cFor i = 1 To 10 ^ 6c = c +

Continued Fraction can be find in http://mathworld.wolfram.com/ContinuedFraction.html Function ContinuedFraction(ByVal n As Long)Dim root As Long, p As Long, q As Long, b() As String, temp As Lo

From Wikipedia,Pells equationis any Diophantine equation of the formwhere n is a nonsquare integer and x and y are integers.  We can calculate the x,y for certain n with the followi

http://projecteureka.org/problem/question/814  Problem 814 - Tringles whose perimeter are 12345 Count different Tringles whose all 3 side lengths are integers and perimeter are 12345.Solut

It seems  feasible . Function myweekday(ByVal y As Long, ByVal m As Long, ByVal d As Long) As Long Dim bias As Long If m > 2 Then bias = m - 2 Else bias = 10 + m

http://projecteuler.net/index.php?section=problems&id=125  Problem 12504 August 2006 The palindromic number 595 is interesting because it can be written as the sum of consecutive squares

Problem：       Consider the triangle with sides 6, 8 and 10. It can be seen that the perimeter and the area are both equal to 24. So the area/perimeter ratio is equal to 1.      Consider also the

VBA计算数据组合在全排序组合中的行值

分解质因数

10 digits equations

UDF to show the expression of cell formula

The Four Numbers Game is a mathematical game, as taught by Dr. Paul Sally, Prof. of Mathematics at the University of Chicago. To play this game, draw a square and put a number at each corner, thus: 5_

  QuestionA robot is located at the top-left corner of a 65 x 45  grid (marked Start in the diagram below).The robot can only move either down or right at any point in time. The robot is tryin

递归实现数字的组合 #include  void Combin(int m,int n,int a){    if(m == n){        if(a>0)printf("%d",a);        while(n > 0) printf("%d",n--);        printf("/n");        return;    

Question: Find the smallest number that can be expressed as the sum of 3 consecutive prime numbers, the sum of 11 consecutive prime numbers, the sum of 25 consecutive prime numbers, the sum of 171 con

Reproduced  from  http://www.cs.uwaterloo.ca/journals/JIS/sommars/newtriangle.html     Journal of Integer Sequences, Vol. 1 (1998), Article 98.1.5The Number of Triangles Fo

The idea was Inspirated  from  the following link:  Homogeneous  Square Numbers （Provided by mathe, http://bbs.emath.ac.cn/thread-78-1-1.html） Look at the 10-digit number 9876543210,its the large

A small VBA code to get these numbers: Sub Main()    Dim i&, j&, k&, n&, num&, a(100000000) As Byte, p(1 To 10000000) As Long        num = 1     p(num) = 2    The 1st prime     n = 10

This is a companion piece of  Largest Ten Digit Powers . The codes are almostly same,with a few changes only. Function befit(ByVal s As String, ByVal num As Long) As Boolean tell if a string 

With helps of many friends, the Ten Digit Powers sequence has been  updated  to n=128. More details,see Ten digit numbers  Millions thanks to  无心人,mathe  and  gxqcn. The sequence was showed as

Give an array and a certain number,how to select some of the elements to sums upto the number?The following codes can bring you one or more solutions out:Sub Solve(ByVal Total As Double, B

The main goal of todays lecture is to prove the following theorem. Theorem 1.1   A number  is a sum of two squares if and only if all prime factors of  of the form have even exponent in the prim

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

将n组1-n随机置于n*n的单元格中，使得每行，每列都是1-n的一个全排列 Sub Perm()Dim n As Long, i As Long, j As Long, arr(), brr(), t As Longn = 20ReDim arr(n - 1, n - 1)ReDim brr(n - 1)For i = 0 To n ^ 2 - 1arr(i

 题目地址：http://club.excelhome.net/thread-175411-1-1.html 先看几个数：312132,231213,41312432,23421314         可以看到以上字串有以下特点：   2个1   之间有1个数，2个2   之间有2个数，2个3之间有3个数...     试找出由(1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,