王峰炬

摘要： Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Macro1()Dim i As IntegerFor i = 1 To 5 Sheet1.Range("D10").Select Act... 阅读全文

摘要： 没什么技术含量,一个余弦定理搞定: Function angle(ByVal a As Double, ByVal b As Double, ByVal c As Double)angle = (b * b + c * c - a * a) / (2 * b * c)angle = Atn(-an... 阅读全文

摘要： 方法1: '利用dir()循环: ------------------------------------ Option Explicit Private Sub Command1_Click()Dim s As Strings = "c:/program files/microsoft offi... 阅读全文