王峰炬

英语固定词汇搭配

摘要： a close（narrow）shave 侥幸的脱险 a few 有些，几个 ... 阅读全文

posted @ 2007-12-04 22:19 王峰炬阅读(940) 评论(0) 推荐(0)

Do you know how many combinations to select n numbers from 1 to m with sum of which is mysum?

摘要： Do you know how many combinations to select n numbers from 1 to m with sum of which is sum? Sub getit()Dim m&, n&, mysum&, i&, j&, k&, count()m = ... 阅读全文

posted @ 2007-12-03 00:37 王峰炬阅读(112) 评论(0) 推荐(0)

递归实现数字排列组合

摘要：参考彭希仁的递归算法 Sub macro1()Dim arr() As Stringgetall 9, 3, "", arrDebug.Print Join(arr, ",")End SubSub getall(ByVal m As Byte, ByVal n As Byte, ByRef a A... 阅读全文

posted @ 2007-10-30 16:33 王峰炬阅读(209) 评论(0) 推荐(0)

自动获取美元最新汇率

摘要： Sub MACRO1()With CreateObject("Msxml2.XMLHTTP").Open "GET", "http://www.google.cn/search?&q=1usd%3D%3Frmb", False.SendMsgBox Split(Split(.responseTex... 阅读全文

posted @ 2007-10-11 23:43 王峰炬阅读(126) 评论(0) 推荐(0)

3D历史数据下载

摘要： Sub Macro1()Application.ScreenUpdating = FalseDim temp() As String, n As Long, i As LongWith CreateObject("InternetExplorer.Application").Visible =... 阅读全文

posted @ 2007-10-05 18:42 王峰炬阅读(131) 评论(0) 推荐(0)

Save an userform as an image in EXCEL

摘要： When click a commandbutton in an Excel userform,save the entire userform as an image file in harddisk. Method 1 Private Declare Sub Keybd_Event Lib "... 阅读全文

posted @ 2007-10-04 18:17 王峰炬阅读(126) 评论(0) 推荐(0)

Adding checkbox to mshflexgrid

摘要： Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFlexGrid1.Text))End Sub Private Sub Form_Load() Dim... 阅读全文

posted @ 2007-10-04 02:11 王峰炬阅读(137) 评论(0) 推荐(0)

香辣虾的做法

摘要： 1.虾一份,洗净待用2.准备香料如图: 葱,姜,蒜,干辣椒,花椒3.热油,爆炒花椒,辣椒,一些姜丝(留一点和虾一起炒)4. 做好3之后,倒入虾,葱,姜丝,蒜片一起炒5.按个人口味放盐炒匀. ... 阅读全文

posted @ 2007-10-03 15:09 王峰炬阅读(116) 评论(0) 推荐(0)

美味带鱼的家常做法

摘要：带鱼是最经济美味的食品，现向大家推荐几种带鱼的做法。红烧带鱼红烧带鱼制作： 1.带鱼清洁干净，切6公分左右段，用少许盐，料酒，略腌制15分钟。 2.取一个干净小碗，放入葱，姜，蒜，少许盐，少许糖，料酒，水淀粉待用。 3.取另一个小碗，放入一个鸡蛋搅拌均匀待用。 ... 阅读全文

posted @ 2007-10-03 14:27 王峰炬阅读(138) 评论(0) 推荐(0)

VBA自动登陆163信箱

摘要： Sub Goto163()With CreateObject("InternetExplorer.Application").Visible = True.navigate "http://mail.163.com"Do Until .Readystate = 4DoEventsLoop.Doc... 阅读全文

posted @ 2007-10-01 18:22 王峰炬阅读(218) 评论(0) 推荐(0)