王峰炬

摘要： The following codes are from http://www.freevbcode.com/ShowCode.asp?ID=1214 'Add a form with commandbutton: Private Sub Command1_Click() Dim ret As... 阅读全文

摘要： '采用普遍的傅立叶级数展开方法pi = 3 + (1 * 1) / (2 * 3 * 4) * [ 3 + (3*3)/(4*5*4) *[ 3 + (5*5)/(6*7*4) * [ 3 + (7*7)/(8*9*4) * [ ... ] ] ] ] '输入：需计算的圆周率位数，理论精度约5万位... 阅读全文

摘要： 笔者在2004年曾写过一篇 递归方法巧解不定方程 。昨天在一位网友的启发下,对代码进行了重写，使其能够设置每个变量的取值范围。代码如下 Private Sub Command1_Click()Dim min(1 To 5) As Integer, max(1 To 5) As Integer, R... 阅读全文

摘要： '采用普遍的傅立叶级数展开方法 pi=2+1/3*(2+2/5*(2+3/7*(2+4/9*(2+5/11 .....)))))) '输入：需计算的圆周率位数，理论精度约30万位 'Add a commandbutton and textbox(multine=true,scrollbars=... 阅读全文

摘要： 'Add a commandbutton and a textbox( multiline=true) and copy the following codes to form1: Private Declare Function SendMessage Lib "user32" Alias "S... 阅读全文

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

摘要： Function fenshu(ByVal xiaoshu As Single, Optional ByVal jingdu As Integer = 3) As String '小数转换为分数，误差小于0.1^jingduDim i As LongDoi = i + 1Loop Until Ab... 阅读全文

摘要： 全国专业技术人员计算机应用能力考试 虚拟光驱下载位置： http://download.fsyyy.com/SoftView/SoftView_80.html ... 阅读全文