天下一家·MJ

博客园 首页 新随笔 联系 订阅 管理

#

摘要: 后缀表达式转中缀表达式代码如下:Public Function TrueBackToMid(ByVal strBack As String) As String Dim i As Long Dim opCode() As String' Stop Dim ops1 As String, ops2 As String, opC As String '计算符表示,【保留】 '初始化堆栈 WorkStack.Clear '保留 '堆栈初始化结束 opCode = Split(strBack, ",")' Stop For i = 0 阅读全文
posted @ 2013-04-30 15:10 天下一家·MJ 阅读(331) 评论(0) 推荐(0) 编辑

摘要: 根据老师上课讲的方法,完成了这些代码:下面代码基于StackClass.cls这个堆栈类,具体内容参见本博客其他博文。代码如下:Public WorkStack As New StackClassPublic Function CalcStringEx(ByVal numStr As String) As String '完成 Dim i As Long Dim opCode() As String' Stop Dim ops1 As String, ops2 As String, opC As String '计算符表示,【保留】 '初始化堆栈 W... 阅读全文
posted @ 2013-04-30 15:06 天下一家·MJ 阅读(542) 评论(0) 推荐(0) 编辑

#

摘要: 有问题的话,欢迎留言。类文件代码如下:Private ContentString As StringPrivate ItemCount As LongPrivate Nodes() As NodePrivate Type Node preID As Long leftID As Long leftValue As Long rightID As Long rightValue As Long selfValue As Long selfContent As Integer visited As Integer ... 阅读全文
posted @ 2013-04-27 12:45 天下一家·MJ 阅读(308) 评论(0) 推荐(0) 编辑

#

摘要: 这个抽象算法早已为人所知,只不过在VB的公开文档中鲜见示例代码。于是,为了提高自己的程序设计水平,锻炼自己的能力,我写了如下代码。【VB代码版权所有,允许转载修改用作学习目的,转载必须注明来源】【求大家看完后留言啊!】堆栈类的实现: 1 Private Stack() As String 2 Private itemCount As Long 3 Private Sub Class_Initialize() 4 ReDim Stack(0) 5 Stack(0) = "#" 6 End Sub 7 Public Sub Push(ByVal inString As Stri 阅读全文
posted @ 2013-04-23 11:18 天下一家·MJ 阅读(1187) 评论(0) 推荐(0) 编辑

2020年7月31日 #

摘要: 随着技术带来的生产力爆发越来越猛烈,有人提出是不是有必要保留一些落后的生产工艺及相关岗位,以避免社会动荡。 我的答案:不用。但是要改变社会对于不劳而获的态度:我们对于生活资料的不劳而获持接受的态度,但是生产资料依然需要市场化的竞争。 不劳而获从前可耻,是因为社会生产不足的情况下,具备生产能力的人却不 阅读全文
posted @ 2020-07-31 17:41 天下一家·MJ 阅读(72) 评论(0) 推荐(0) 编辑

2018年7月26日 #

摘要: 来源:http://www.cnblogs.com/peida/archive/2012/10/23/2734829.html 因原文章格式不优美及内容有疏漏,特此修改 ls命令是linux下最常用的命令。ls命令就是list的缩写。缺省下ls用来打印出当前目录的清单,如果ls指定其他目录,那么就会 阅读全文
posted @ 2018-07-26 23:09 天下一家·MJ 阅读(254) 评论(0) 推荐(0) 编辑

2016年8月29日 #

摘要: 基本参照此:http://www.gulpjs.com.cn/docs/getting-started/ 1、电脑需要安装好nodejs,安装好的时候会自带npm 2、在命令行中执行命令安装gulp 3、安装sass进行scss文件的编译(请注意,需要先安装ruby) 4、在网站根目录建立一个gul 阅读全文
posted @ 2016-08-29 17:22 天下一家·MJ 阅读(219) 评论(0) 推荐(0) 编辑

2016年8月25日 #

摘要: DELETE FROM tasks ALTER TABLE tasks ALTER COLUMN id COUNTER(1,1) 阅读全文
posted @ 2016-08-25 16:42 天下一家·MJ 阅读(989) 评论(0) 推荐(0) 编辑

摘要: 打印效果 阅读全文
posted @ 2016-08-25 16:40 天下一家·MJ 阅读(739) 评论(0) 推荐(0) 编辑

2016年8月16日 #

摘要: 首先,设置OLEDropMode OLEDropMode = 1 然后插入代码 然后插入事件处理的代码 拖放的信息都获取到了,接下来就做你爱做的事情吧。 阅读全文
posted @ 2016-08-16 16:11 天下一家·MJ 阅读(1215) 评论(0) 推荐(0) 编辑

2016年6月3日 #

摘要: Option Explicit Private WithEvents k As vbRichClient5.cWebServer Private Sub Command1_Click() Set k = New cWebServer k.Listen "localhost", "127.0.0.1", 8891 End Sub Private Sub k_ConnAccepted(... 阅读全文
posted @ 2016-06-03 22:48 天下一家·MJ 阅读(1432) 评论(0) 推荐(0) 编辑

2016年3月24日 #

摘要: 1、将ilasm.exe和fusion.dll用everything找出来,然后复制到system32文件夹 2、执行:ilasm /res:code.res code.il /out:code.exe 3、即可得到code.exe,运行后正常。 阅读全文
posted @ 2016-03-24 15:30 天下一家·MJ 阅读(444) 评论(0) 推荐(0) 编辑

2015年6月7日 #

摘要: 使用VB6创建和访问Dom树关键字:VB,DOM,HTML,爬虫,IHTMLDocument我们知道,在VB中一般大家会用WebBrowser来获取和操作dom对象。但是,有这样一种情形,却让我们纠结不已:我们需要做爬虫,然后爬虫不需要太高的效率,但是我们被复杂的正则表达式给弄的头晕眼花。不知道何去... 阅读全文
posted @ 2015-06-07 21:19 天下一家·MJ 阅读(2608) 评论(0) 推荐(0) 编辑

2015年5月1日 #

摘要: 我选择的日期控件是:bootstrap-datepicker(下载路径:https://github.com/Aymkdn/Datepicker-for-Bootstrap)比较方便,实用。原来是英文的,我将它稍微改造了一下,替换了里面的英文,现在适合中国人用了。网页中引用: 被绑定的... 阅读全文
posted @ 2015-05-01 16:43 天下一家·MJ 阅读(217) 评论(0) 推荐(0) 编辑

友情链接Tkin的技术博客