一. 在ThisWorkbook中1 Private Sub Workbook_Open()2 '%对应alt键 宏不能加()3 Application.OnKey "%q", "Test"4 End Sub利用open事件触发二. 在Sub中Sub auto_open() ...
分类：
其他好文 时间：
2014-08-27 09:21:57
阅读次数：
208
1.页面：(1)js传参数：location.href="${ctx }/forum/changeCtm.html?ctmId="+id;(2)将内容写在form表单里面，然后用表单提交提交如果需要验证表单，可以在js里面验证之后，然后用 "表单名".submit();来提交function sub...
分类：
编程语言 时间：
2014-08-26 17:17:36
阅读次数：
193
执行apt-getdist-upgrade时出现“E:Sub-process/usr/bin/dpkgreturnedanerrorcode(1)”，新内核就是不能完成设置，解决办法如下：cd/var/lib/dpkg
mvinfoinfobak;mkdirinfo然后重新来过就没问题了。
分类：
其他好文 时间：
2014-08-26 03:00:06
阅读次数：
197
在includes/extend.func.php末尾添加方法：//取第一张图地址function firstimg($str_pic){$str_sub=substr($str_pic,0,-7).".jpg";//删除缩略图字符串最后七位，然后再补上后缀.jpgreturn $str_sub;}...
分类：
其他好文 时间：
2014-08-25 19:07:54
阅读次数：
182
使用快速排序法对一列数字进行排序的过程快速排序使用分治法（Divide and conquer）策略来把一个序列（list）分为两个子序列（sub-lists）。步骤为：从数列中挑出一个元素，称为 "基准"（pivot），重新排序数列，所有元素比基准值小的摆放在基准前面，所有元素比基准值大的摆放在基...
分类：
其他好文 时间：
2014-08-25 03:24:23
阅读次数：
228
题目链接：uva 1400 - "Ray, Pass me the dishes!"
题目大意：给定一个长度为n个整数序列，对m次询问作出回答，对于每次询问(a,b),找到两个下标x，y使得x到y的连续和为区间a，b中最大的连续和，如果存在多解优先x小，然后y小。
解题思路：线段树，对于每个节点维护三个线段值：
max_sub：区间连续最大和max_prefix：区间连续前缀最大...
分类：
其他好文 时间：
2014-08-24 23:52:43
阅读次数：
405
试图切换可以用transitionFromViewController。
步骤：
View Controller中可以添加多个sub view，在需要的时候显示出来；
可以通过viewController(parent)中可以添加多个child viewController;来控制页面中的sub view，降低代码耦合度；
通过切换，可以显示不同的view；，替代之前的ad...
分类：
其他好文 时间：
2014-08-24 09:10:52
阅读次数：
144
快速排序是由东尼·霍尔所发展的一种排序算法。在平均状况下，排序 n 个项目要Ο(n log n)次比较。在最坏状况下则需要Ο(n2)次比较。
快速排序使用分治法（Divide and conquer）策略来把一个串行（list）分为两个子串行（sub-lists）。
步骤为：
从数列中挑出一个元素，称为 "基准"（pivot），重新排序数列，所有元素比基准值小的摆放在基准前面，所有元...
分类：
编程语言 时间：
2014-08-23 23:03:11
阅读次数：
485
A sequence of N positive integers (10 < N < 100 000), each of them less than or equal 10000, and a positive integer S (S < 100 000 000) are given. Write a program to find the minimal length of the sub...
分类：
其他好文 时间：
2014-08-23 11:22:40
阅读次数：
198
环境：OFFICE WORD 2007
打开WORD，在菜单的“视图”->“宏”->“查看宏”->“创建”
Sub 宏1()
Dim MyFile As String
Dim Arr(1000) As String '一次处理最大的文件数量，根据需要修改数字1000改为需要处理的数量
Dim count As Integer
MyFile = Dir("F:\...
分类：
Web程序 时间：
2014-08-22 19:48:19
阅读次数：
304
