王峰炬

摘要：参考彭希仁的递归算法 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... 阅读全文

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

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

摘要：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 "... 阅读全文

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

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

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

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

摘要：用1到16构成一个四阶幻方,要求任意相邻两个方格中的数字之各均为素数? (原帖见:http://topic.csdn.net/u/20070830/18/1f1957c1-5e66-4c3b-8883-d7eef64c8da1.html) NowCan 网友的解法: 直接递归搜，4阶很快的。以下... 阅读全文