2004年05月_iteye_19871

大数阶乘的计算（三）

下面的算法在 http://www.csdn.net/Develop/Edit.asp?id=28308基础上改进，比其至少快10%：Sub calcfactorial(ByVal n As Integer)Dim XYS() As Integer, x() As Integer, y() As Integer, result() As String, i As Long, j As Long...

2004-05-30 17:00:00 88

实现货币金额中文大写转换的程序

今天整理文件时发现了以前写的货币金额中文转换（转换一亿亿元以下数目的货币）的代码，帖出来与大家共享：Function daxie(money As String) As String 'Dim x As String, y As StringConst zimu = ".sbqwsbqysbqwsbq" '定义位置代码Const letter = "0123456789sbqwy.zjf"...

2004-05-30 17:00:00 97

大数阶乘的计算（二）

http://expert.csdn.net/Expert/topic/3105/3105509.xml?temp=.1253168与笔者的另一算法（http://www.csdn.net/Develop/read_article.asp?id=28306）相比，采用下面的方法，阶乘的计算速度快了好几倍！Sub calcfactorial(ByVal n As Integer)Dim ...

2004-05-30 16:58:00 63

大数阶乘的计算（一）

整数n的阶乘指 1*2*3*...*(n-1)*n 的值，在n=171时，计算机一般会出错（“溢出”），本文采用字符串模拟数字乘法运算，使计算10000！成为可能：Function multi(ByVal X As String, ByVal Y As String) As String 'multi of two huge hexnum（两个大数之积）Dim result As Varian...

2004-05-30 16:58:00 94

关于日期的中文转换

下面的代码可以将任意日期（1000-01-01------>9999-12-31）转换为汉字显示：Private Sub Command1_Click()MsgBox datename(Date)End SubFunction datename(ByVal mydate As Date) As StringDim i As Long, d(3) As String, myyear A...

2004-05-28 10:33:00 99

程序员的“素质”是什么？

在CSDN看到一个很有趣的帖子（http://www.csdn.net/develop/article/28/28005.shtm），里面说同一个功能，中、日两国程序员写出的代码天差地别：JAPAN: Dim gridItemIndex As Integer 'comment Dim currentPageIndex As Integer 'comment Dim pageSize As In...

2004-05-22 21:24:00 51

while (n-- > 0) 与 while (--n >= 0)

循环 n 次，除了最常用的 for (int i = 0; i < n; ++i) {...} 之外，还可以写 while (n-- > 0) {...} 和 while (--n >= 0) {...}。这两种写法的区别在于，如果 n 是 unsigned 类型，那么后面那种写法会导致infinite loop。今天就被这只小 bug 咬了一口:) 也怪自己偷懒，不爱写 for...

2004-05-21 11:40:00 358

大学四年总结（一）

获专业一等奖学金次数：0获专业二等奖学金次数：0获专业三等奖学金次数：0获奖学金总次数：0获奖学金总金额：0元获各种荣誉称号：0次。专业课成绩排名：27 of 91英语：两次考6级，均不及格:(下场：被保送北师大电子系读研结论：一次不拿奖学金不难，难的是连续四年连一个三等奖学金都没有拿到，难上加难的是，这样的人居然还获得保送读研的资格，当真是天理不容啊:)...

2004-05-19 23:07:00 72

关于天文数字十进制与十六进制间的转换

对于一般的整型数字，16进制与10进制间的转化可以用CLNG（），HEX（）函数解决，但遇上天文数字，这些函数就无能为力了。下面是笔者写的几个函数，演示了天文数字计算中的一些技巧。Dim largehex As String, largedec As String, start As Long, Y(20) As String'预备函数Function sums(ByVal X As S...

2004-05-17 17:10:00 78

LaTeX 与字体

在我看来，字体是 LaTeX 中最复杂的问题。1. 选择字体　　适合屏幕阅读的字体不一定适合打印，适合CRT显示器的字体不一定适合LCD显示器。例如Windows自带的宋体在屏幕上显示很清晰，而打印出来就比较难看（显得单薄）。正文我一般喜欢用华康简宋或方正书宋简体这两种宋体。英文字体也是如此，在屏幕上我比较喜欢看无衬字体（sans serif）例如 Verdana 和 Arial，而打印到...

2004-05-04 14:45:00 152

LaTeX 常用功能

1. 段首缩进　　中文习惯在段首缩进两格，在LaTeX中，\parindent 表示段首缩进的长度，我们将它设置为当前字号的两个大写字母M的宽度，大约正好是两个汉字的宽度：\setlength{\parindent}{2em}LaTeX 默认每节的第一段的段首不缩进，这不符合中文排版习惯。我们希望正文的每一段都要缩进，使用indentfirst宏包就可办到：\usepackage{...

2004-05-03 01:06:00 139

技术代码资料库