王峰炬

摘要： 如何判断艺术字的样式,字体,字号？ Sub macro1() Dim myShape As Shape, s(4) As String For Each myShape In ActiveDocument.Shapes If myShape.Type = msoTextE... 阅读全文

摘要： 'WINRAR安装路径 Sub GetWINRARPath() Dim WSH As Object Set WSH = CreateObject("Wscript.Shell") MsgBox "WINRAR安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE/Soft... 阅读全文

摘要： “辗转相除法”求解最小公倍数 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 = ... 阅读全文

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

摘要： Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Sub main()Dim driveinfo As String, i As B... 阅读全文

摘要： 输入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 '请依次输... 阅读全文

摘要： Absolute deviation, 绝对离差Absolute number, 绝对数Ab... 阅读全文

摘要： Focus Listening 1http://edu.qd.sd.cn/audition/... 阅读全文

摘要： 今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免... 阅读全文

摘要： 求解多元一次方程组： 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... 阅读全文