WORD 文档中的艺术字
摘要：
如何判断艺术字的样式,字体,字号？ Sub macro1() Dim myShape As Shape, s(4) As String For Each myShape In ActiveDocument.Shapes If myShape.Type = msoTextE... 阅读全文
posted @ 2007-04-08 15:01 王峰炬 阅读(128) 评论(0) 推荐(0) 编辑
获取EXE文件安装后的路径
摘要：
'WINRAR安装路径
Sub GetWINRARPath()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
MsgBox "WINRAR安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE/Soft... 阅读全文
posted @ 2007-04-08 14:58 王峰炬 阅读(191) 评论(0) 推荐(0) 编辑
最小公倍数
摘要：
“辗转相除法”求解最小公倍数 Function LCM(ParamArray nums()) As Long Dim temp1 As Long, temp2 As Long, I As Long LCM = nums(0) For I = 1 To UBound(nums) temp1 = ... 阅读全文
posted @ 2007-04-08 14:52 王峰炬 阅读(124) 评论(0) 推荐(0) 编辑
按行获取文本文件的内容
摘要：
不知是不是VB里最简单的方法？ Sub getlines(byval filename as string,byref lines() as string)
If Len(Dir(filename)) = 0 Then Exit Sub
Open filename For Input As #1... 阅读全文
posted @ 2007-04-08 14:47 王峰炬 阅读(113) 评论(0) 推荐(0) 编辑
获取光盘序列号
摘要：
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Sub main()Dim driveinfo As String, i As B... 阅读全文
posted @ 2007-02-01 11:11 王峰炬 阅读(162) 评论(0) 推荐(0) 编辑
小数的循环节
摘要：
输入N/D的形式，其中N为分子，D为分母。 如得出的结果小数部分存在循环，就用括号括起来 ，如1/3=0.（3）；22/5=4.4 ；1/7=（142857） Function xunhuan(ByVal N As Long, ByVal D As Long) As String '请依次输... 阅读全文
posted @ 2007-01-17 01:03 王峰炬 阅读(270) 评论(0) 推荐(0) 编辑
常见的统计术语翻译（转帖）
摘要：
Absolute deviation, 绝对离差Absolute number, 绝对数Ab... 阅读全文
posted @ 2006-12-24 01:36 王峰炬 阅读(1045) 评论(0) 推荐(0) 编辑
听力资料
摘要：
Focus Listening 1http://edu.qd.sd.cn/audition/... 阅读全文
posted @ 2006-12-24 01:19 王峰炬 阅读(113) 评论(0) 推荐(0) 编辑
我在CSDN参与的3000个帖子
摘要：
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免... 阅读全文
posted @ 2006-11-17 16:42 王峰炬 阅读(409) 评论(0) 推荐(0) 编辑
多元一次方程组的求解
摘要：
求解多元一次方程组： f(1,1)x1+f(1,2)x2+f(1,3)x3+...=f(1,n) f(2,1)x1+f(2,2)x2+f(2,3)x3+...=f(2,n) f(3,1)x1+f(3,2)x2+f(3,3)x3+...=f(3,n) ...... f(m,1)x1+f(m,2)x2... 阅读全文
posted @ 2006-11-03 20:00 王峰炬 阅读(868) 评论(0) 推荐(0) 编辑
