Private Sub Form_Click()Dim M As SingleM = InputBox("自變數 X", "輸入", 0.5)Print "Mysin("; M; ") = "; Mysin(M)Print "Sin("; M; ") = "; Sin(M)End SubPrivate Function Mysin(ByVal X As Single) As SingleDim I As Integer, J As IntegerDim F As Double, Jc As DoubleI = -1DoI = I + 2F = X ^ IJc = 1For J = 1 To IJc = Jc * JNextMysin = Mysin + (-1) ^ ((I - 1) / 2) * F / JcLoop While Abs((-1) ^ ((I - 1) / 2) * F / Jc) >= 10 ^ -5Print IEnd Function。
最早這個公式可以追溯到普通的數學函式。
數學函式是MySQL中常用的一類函式。主要用於處理數字,包括整型、浮點數等。數學函式包括絕對值函式、正弦函式、餘弦函式、獲取隨機數的函式等。
ABS(X):返回X的絕對值
select ABS(-32);
MOD(N,M)或%:返回N被M除的餘數。
select MOD(15,7);
select 15 % 7;
CEILING(X):返回不小於X的最小整數值。
select CEILING(1.23);
select CEILING(-1.23);
ROUND(X) :返回引數X的四捨五入的一個整數。
select ROUND(1.58);
select ROUND(-1.58);
二、字串函式
ASCII(str):返回字串str的最左面字元的ASCII程式碼值。如果str是空字串,返回0。如果str是NULL,返回NULL。
select ASCII("2");
select ASCII(2);
select ASCII("dx")
CONCAT(str1,str2,...):返回來自於引數連結的字串。如果任何引數是NULL,返回NULL。可以有超過2個的引數。一個數字引數被變換為等價的字串形式。
select CONCAT("My", "S", "QL");
select CONCAT("My", NULL, "QL");
select CONCAT(14.3);
LENGTH(str):返回字串str的長度。
select LENGTH("text");
LOCATE(substr,str):返回子串substr在字串str第一個出現的位置,如果substr不是在str裡面,返回0.
select LOCATE("bar", "foobarbar");
select LOCATE("xbar", "foobar");
INSTR(str,substr):返回子串substr在字串str中的第一個出現的位置。
select INSTR("foobarbar", "bar");
select INSTR("xbar", "foobar");
LEFT(str,len):返回字串str的最左面len個字元。
select LEFT("foobarbar", 5);
RIGHT(str,len):返回字串str的最右面len個字元。
select RIGHT("foobarbar", 4);
SUBSTRING(str,pos):從字串str的起始位置pos返回一個子串。
select SUBSTRING("Quadratically",5);
select TRIM(" bar ");
select LTRIM(" barbar");
select RTRIM(‘barbar ’);
REPLACE(str,from_str,to_str):返回字串str,其字串from_str的所有出現由字串to_str代替。
select REPLACE("www.mysql.com", "w", "Ww");
REPEAT(str,count):返回由重複countTimes次的字串str組成的一個字串。如果count <= 0,返回一個空字串。如果str或count是NULL,返回NULL。
select REPEAT("MySQL", 3);
REVERSE(str):返回顛倒字元順序的字串str。
select REVERSE("abc");
mysin函式公式
INSERT(str,pos,len,newstr):返回字串str,在位置pos起始的子串且len個字元長的子串由字串newstr代替。
select INSERT(‘whatareyou", 5, 3, ‘is");
Private Sub Form_Click()Dim M As SingleM = InputBox("自變數 X", "輸入", 0.5)Print "Mysin("; M; ") = "; Mysin(M)Print "Sin("; M; ") = "; Sin(M)End SubPrivate Function Mysin(ByVal X As Single) As SingleDim I As Integer, J As IntegerDim F As Double, Jc As DoubleI = -1DoI = I + 2F = X ^ IJc = 1For J = 1 To IJc = Jc * JNextMysin = Mysin + (-1) ^ ((I - 1) / 2) * F / JcLoop While Abs((-1) ^ ((I - 1) / 2) * F / Jc) >= 10 ^ -5Print IEnd Function。