*博客头图：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

RGB颜色，例如：#AFAFAF

northwolves[狼行天下] 的专栏

• 博客(229)
• 收藏
• 关注

原创 UDF to show the expression of cell formula.

UDF to show the expression of cell formula

2010-12-24 13:49:00 2464

原创 分解质因数

2010-07-06 22:07:00 2561 2

原创 如何计算数据组合在全排序组合中的行值

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

2010-07-06 21:12:00 3038 2

原创 How to arrange 10 digits so that the product of the some of them is equal to a number represented by the remaining digits

10 digits equations

2010-06-17 21:52:00 1464

原创 Get Integer sided triangles for which the area/perimeter ratio is integral

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

2010-05-04 23:19:00 1763

原创 ProjectEuler 125

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

2010-04-30 16:07:00 1999

原创 Continued Fraction of Squareroot

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

2010-02-25 22:42:00 1360 1

原创 整数三角形题目两则

2010-02-23 23:21:00 1675

原创 有感于“等地震”

2010-02-22 17:43:00 1498

原创 VBA获取新浪博客列表

Sub Blogsina() Const url As String = "http://www.google.cn/search?q=site%3Ablog.sina.com.cn/u/&num=100&start=" Dim n As Long, p As Long, s() As String, u() As String, i As Long With Cre

2010-01-25 16:57:00 2321 2

原创 Number of sets of natural numbers less than n which sum to n.

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

2010-01-17 17:07:00 1556

原创 一元多项式的幂

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

2010-01-17 14:23:00 1246

原创 An UDF to calculate weekday

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

2010-01-09 23:50:00 1222

原创 Four dogs in a square with two distinct distances

How many ways can four dogs be arranged in a square so that the six distances between pairs of them  take on only two different values? Its funning(Pictures were provided by wayne   ):

2010-01-04 17:57:00 1205 6

原创 Two math problems in http://projecteureka.org sumitted by me.

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

2010-01-03 13:57:00 1090

原创 Fundamental Solution to Pell's Equation

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

2010-01-03 13:19:00 1740 1

原创 Select n numbers from 1 to m with all of array 'all' and none of array 'none'

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

2009-12-15 22:07:00 1510

原创 Solutions to place plus or minus signs to a non-zero digits sequence 123456789 so that result of thus described arithmetic opera

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

2009-12-06 21:43:00 1466

转载 Complete List of Excel Functions

2009-11-28 08:33:00 843 1

原创 VB获取网页下文字的链接地址

2009-11-24 21:31:00 3372 3

转载 An inequality about sine function

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

2009-11-20 23:54:00 821

原创 Harmonic number sum

Problem1:  Least k such that H(k) >= n, where H(k) is the harmonic number sum_{i=1..k}  1/i.  Sub Harmonic_number_sum()Dim s As Double, i As Long, n As Longn = 1For i = 1 To 300000000s = s

2009-11-20 22:50:00 1344

原创 一道趣味数学题(二)

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

2009-11-20 13:23:00 9762 22

转载 三个和尚没水喝

Everybodys business is nobodys business.      There are 4 people named everybody, somebody, anybody and nobody.There was an important job to be done, and everybody was aske

2009-11-17 22:15:00 1089

原创 VBA从人民银行网站获取5个币种的历史汇率信息

Sub 汇率()Dim url As String, arr, v() As String, i As Long, n As Long, p As Long, html As Stringurl = "http://www.pbc.gov.cn/huobizhengce/huobizhengcegongju/huilvzhengce/renminbihuilvjiaoyishoupanj

2009-11-05 21:30:00 3898 2

原创 VBA代码控制DTPicker控件的下拉日期表显示

DTPicker1控件的下拉按钮请问怎么写代码可以使得DTPicker控件的下拉日期表显示出来呢?!Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hWnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long,

2009-11-05 21:25:00 6804

原创 Select a table of certain webpage

Test the folowing codes,please: Sub Selecttable(ByVal url As String, ByVal n As Long) Dim t, r As Object, i As Long WebBrowser1.Navigate url, False Do While Sheet1.WebBrowser1.read

2009-10-27 19:34:00 1124 4

原创 An example of responseXML.getElementsByTagName

To read nodes of  a certain tagname of an xml file,its easy to access:  Sub Test()Dim http As Object, nod, nod2Set http = CreateObject("Microsoft.XMLHTTP")http.Open "get", "http://www.w3s

2009-10-27 19:24:00 828

原创 Stupid Keyboard

A friend asked me to have a glance at his keybord.When I press some keys to his notepad,something funny appears: When Z button is hit , z`1 appearsWhen X button is hit ,  x2  appearsWhen C b

2009-05-31 17:41:00 1220

原创 Excel 汉字区位互相转换公式

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

2009-05-22 11:18:00 1020

原创 Special Folders

<!-- /* Font Definitions */ @font-face {font-family:SimSun; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variab

2009-05-22 11:09:00 969

原创 Nine Digits Expression

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

2009-02-18 01:31:00 911

原创 Nine-digit Fractions

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

2009-02-17 21:31:00 1533

原创 Ten-digit Fractions

Similar with another article of mine: Nine-digit FractionsProblem: Suppose integer A,B(A>B) and single C were satisified A/B=C and all digits(0-9)  each used just once in the both sides of the

2009-02-11 13:45:00 5373

原创 Nine-digit Fractions(II)

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:

2009-02-11 01:16:00 1895

原创 猴子选大王的四种VB解法

2009-02-10 15:30:00 2321 5

原创 The Recent Ten Years

1+2-3-4^5+6*7*8*9=20001^2/3*4^5*6-7*8+9=20011-2+3-4^5+6*7*8*9=20021^2*3-4^5+6*7*8*9=20031^2+3-4^5+6*7*8*9=20041*2+3-4^5+6*7*8*9=20051+2+3-4^5+6*7*8*9=2006

2009-02-05 16:35:00 759

原创 Draw a cube on Excel Worksheet

A cube is Composed of two squares and two parallelograms: Sub DrawCube() ActiveSheet.Shapes.AddShape(msoShapeParallelogram, [b2].Left, [b2].Top, 4 * [b2].Width, 4 * [b2].Height).Fill.Transpar

2009-02-03 21:49:00 1402

原创 My Sequences on The On-Line Encyclopedia of Integer Sequences

All the links: http://www.research.att.com/~njas/sequences/?q=northwolves&language=english  A154532 a(n) = largest 10-digit number whose nth power contains each digit (0-9) n times

2009-02-03 21:00:00 942

原创 Multi select elements which sums upto a certain number from an array(II)

Give an array and a certain number,how to select some of the elements to sums upto the number? (Also see http://blog.csdn.net/northwolves/archive/2008/11/25/3372338.aspx)The following codes can brin

2009-02-03 20:49:00 1443

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人