module1.bas

来自「一个不仅可以进行常规运行(常规运算能一下计算一个多项式如:1.2*2-3*(3.」· BAS 代码 · 共 30 行

Attribute VB_Name = "Module1"
'用函数getNumber为将一个浮点数识别如格式:dddd.ddd+/-eddd,用来代替系统提供的函数Val来得一个数字
'一共分六步完成
'1.变量设置，N：尾数，P：指数，m:小数位计数器，e:指数符号,doubleNum:转化后的数字
'2:.一.初始化变量，令变量N=P=m=0,e=1
'   二.N=N+10*(d)
'   三.当遇到小数点时后，N=N+10*(d),m=m+1
'   四.当遇到字母E时，看后面是否有符号若为"-"则令e=-1,否则令e=1
'   五.当在第四步基础上遇到数时，p=p*10+d
'   六.当数字结束时，算出数字doubleNum=N*10^e*p-m
Public strSource As String
Public Function getNumber(ByVal s As String) As Double
Dim p As Integer
Dim doubleNum As Double
Dim e As Integer
Dim m As Integer
Dim N As Double











End Function