class Program
{
delegate float MathOperationDelegate(float x,float y);
static float Add(float x,float y)
{
return x+y;
}
static float Sub(float...
首先把所有的数字录入（或者导出为）井号+数字的格式，比如“#3333333323424234234234”，然后运行下面的宏：Sub Num2Text() If Not TypeOf Application.Selection Is Range Then MsgBox "You ...
分类：
其他好文 时间：
2015-03-14 18:15:27
阅读次数：
150
http://bbs.chinaunix.net/thread-1916415-1-1.htmllinux源码的顶级Makefile中有这么一句$(filter-out _all sub-make $(CURDIR)/Makefile, $(MAKECMDGOALS)) _all: sub-make...
分类：
其他好文 时间：
2015-03-14 16:39:25
阅读次数：
300
记录背景：需要在excel中查询出组合码，对应的唯一标识码。举例组合码：4+5+6+9+1*2标识码：A1界面随意输入组合码：1*2+4+5+6+9输出标识码：A1VBA实现：Private Sub CommandButton1_Click() TextBox2.Value = "" Dim str...
分类：
编程语言 时间：
2015-03-13 14:01:31
阅读次数：
158
Problem DescriptionGiven a string containing only 'A' - 'Z', we could encode it using the following method:1. Each sub-string containing k same charac...
分类：
其他好文 时间：
2015-03-11 22:54:26
阅读次数：
135
1 VB开发WPS插件的步骤1.1 启动程序1.1.1 网络上的示例代码Option ExplicitImplements IDTExtensibility2Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object,...
分类：
其他好文 时间：
2015-03-11 16:43:19
阅读次数：
174
vb中包括text、buttonPrivate Sub Form_Load()WebBrowser1.Navigate "localhost/getwebtable/"End SubPrivate Sub Command1_Click() Set vDos = WebBrowser1.Documen...
分类：
Web程序 时间：
2015-03-10 22:53:30
阅读次数：
221
Sub RenameSheet()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("A1").Value
Next
End Sub...
分类：
编程语言 时间：
2015-03-10 21:35:25
阅读次数：
281
问题：如上图所示，按lon，lat分组，再进行转置。
Sub admin()
Dim conn, xRs, xFd
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;" & _
"Extended Properties=...
分类：
编程语言 时间：
2015-03-10 21:34:29
阅读次数：
677
Class?Circle Public?r Private?mArea Public?Sub?Init(a) r=a End?Sub Public?Function?Area() If?mArea=""?Then ...
分类：
其他好文 时间：
2015-03-10 18:59:33
阅读次数：
170
