万仓一黍

前不久，在某人的博客上看到这样的一道题。Public Sub Test()Dim i as Integer For i=0 To 3Dim A as IntegerA=A+1Next Debug.Print AEnd Sub 问最后显示的A的值是多少？答案是出乎意料的，显示是4那人从分析内核的角度来分析这个问题。有兴趣的读者可以去看看。 

  在实际的运用中，我们有时要求能获得一个目录下的所有文件列表，包括子目录下的文件。 在VB2005中有函数My.Computer.FileSystem.GetFiles(Path)。其效用是获得目录下所有文件列表，但是不包括子目录下的文件。My.Computer.FileSystem.GetDirectories(Path)这个函数效用是获得目录下的一级子目录的列表，不包

近日，试着研究24点的算法。觉得穷举法是一种可以接受的解法。利用时下的计算机。就是穷举从1，1，1，1到10，10，10，10的所有数字组合的解法也不过就几秒钟而已。而且，可以将所有的结果保存在文件里，以供日后其他应用时方便调用，加快计算速度。下面将有结果的组合和解法赋予其后，有兴趣的同道之人可以参阅。1,1,1,8   －－－   8×(1＋1＋1)=241,1,2,6   －－－  

在编程的一些算法中，交换函数虽然不起眼，但也是一个不可或缺的组成部分。少了它，很多算法就难以为继。交换函数定义就是交换两个变量的值。有一点编程基础的人都能很快速的写出代码来。        Public Shared Sub SwapNumber(ByRef N1 As Integer, ByRef N2 As Integer)                   Dim I As Int

 在VB2005中，读取文本文件中的文本可以采用的方法是System.IO.File.ReadAllText，这个函数有两个参数，一个是文件的文件名（包含路径）；一个是文本的编码，如果省略，采用系统默认的编码。可是，一般的文本编码有ANSI、Unicode、UTF8等。如果编码的格式选择不对，则读出来是一段乱码。笔者依照网上的资料，编写一个函数，能自动根据判别文本的编码格式，首先是将文本文

本人由于工作关系，需要一段代码，将给定的字符串中的非汉字去除，只保留汉字部分。这个一般用正则表达式比较简单，网上有一些匹配汉字的正则表达式，拿来经过改造就能实现我前面的要求。Public Function OnlyChinese(ByVal mText As String) As String
 Return System.Text.RegularExpressions.Re

日前在网上看到一道算法题。颇有意思，也细细的研究一番。现将该题发布于此，和各位交流一下。同时，本文也是笔者首次使用Office2007的博客功能，看看效果怎么样。 某幢大楼有100层。你手里有两颗一模一样的玻璃珠。当你拿着玻璃珠在某一层往下扔的时候，一定会有两个结果，玻璃珠碎了或者没碎。这幢大楼有个临界楼层。低于它的楼层，往下扔玻璃珠，玻璃珠不会碎，等于或高于它的楼层，扔下玻璃珠，玻璃珠一定会

早两日，在网上看到一张非常有意思的图片。把ASP常用的语法放在一张A4左右的纸上，打印出来，就放在电脑旁。一旦记不住某些语句的时候，就可以瞄上一眼。这个叫做Cheat Sheet。我把地址贴给大家，有兴趣的可以看一下ASP/VBScript Cheat Sheet 感觉上，我经常用的上面没有，于是，自己做了一个，现在贴上来，让大家见笑了。