深有同感

《教育对比》:中国:小学累、中学苦、高中拼、大学混。玩耍的年龄被逼学习,学习的年龄只想玩耍。欧美:小学玩、中学混、高中学、大学拼。玩耍的年龄就玩耍,学习的年龄才学习。小、中、高阶段中国学生一般占优,进入大学阶段,欧美学生迅速超越。太看重起点,必将失去终点。...
阅读(823) 评论(2)

UDF to show the expression of cell formula.

UDF to show the expression of cell formula...
阅读(1782) 评论(0)

分解质因数

分解质因数...
阅读(1546) 评论(1)

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

VBA计算数据组合在全排序组合中的行值...
阅读(2201) 评论(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...
阅读(1056) 评论(0)

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 ...
阅读(1385) 评论(0)

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...
阅读(1491) 评论(0)

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...
阅读(1015) 评论(1)

整数三角形题目两则

问题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 +...
阅读(1246) 评论(0)

有感于“等地震”

几百万人大半夜不睡觉在街上游荡,"等地震"。 2010年2月21日(农历正月初八)凌晨,山西太原、晋中、长治、晋城等地市民、村民传播将发生破坏性地震的谣言, 导致各市、各村居民半夜从家里跑到街头、公园躲避灾难。 山西不是汶川,更不是太子港,汶川和太子港的地底下至少是实的,而山西,煤快挖完了,地底下都是空的,一旦地震,...... 一个月前,山西曾有过一次地震谣言,当...
阅读(1169) 评论(0)

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...
阅读(1915) 评论(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...
阅读(1082) 评论(0)

一元多项式的幂

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 ...
阅读(865) 评论(0)

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...
阅读(894) 评论(0)

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   ):   ...
阅读(852) 评论(6)
232条 共16页1 2 3 4 5 ... 下一页 尾页
    个人资料
    • 访问:630757次
    • 积分:8211
    • 等级:
    • 排名:第2405名
    • 原创:205篇
    • 转载:26篇
    • 译文:1篇
    • 评论:213条
    最新评论