northwolves[狼行天下] 的专栏

UDF to show the expression of cell formula

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

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

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

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

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

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

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

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

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 

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

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

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

10 digits equations

分解质因数

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

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

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

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://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

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

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

问题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 +

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 

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

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

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

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

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 

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

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

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

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

递归实现数字的组合 #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;    

  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

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

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_

Problem: Insert + ,-,*,/ signs as necessary in the string 123456789 to form an expression that evaluates to a certain number. Answer: Sub test() getall 2009, 1 getall 2009, 2En

Problem: Suppose integer A,B(A>B) and single C were satisified A/B=C and all digits(1-9)  each used just once in the both sides of the equality respectively. Try to get all solutions. Answer: