VB程序学习代码记录20160718（2）

abs函数

private sub form_click()
    print abs(50.3)
    print abs(-50.3)
end sub

exp函数

Private Sub Form_Click()
    Dim myangle, myhsin
    myangle = 1.3
    myhsin = (Exp(myangle) - Exp(-1 * myangle)) / 2
    Print myhsin
End Sub

sgn函数：指出参数的正负号

Private Sub form_click()
    Dim myvar1, myvar2, myvar3
    myvar1 = 28: myvar2 = -24: myvar3 = 0
    Print Sgn(myvar1)
    Print Sgn(myvar2)
    Print Sgn(myvar3)
End Sub

sqr函数（平方根）

Private Sub form_click()
    Print Sqr(4)
End Sub

len函数

Private Sub form_click()
    Print Len("mystring")
End Sub

left、right、mid函数

Private Sub form_click()
    Print Left("changchun university", 2)
    Print Left("changchun university", 12)
    Print Right("changchun university", 2)
    Print Right("changchun university", 6)
    Print Mid("changchun university", 1, 3)
    Print Mid("changchun university", 3, 3)
End Sub

trim、ltrim、rtrim函数

Private Sub form_click()
    Print Trim("    abcdefg    ")
    Print LTrim("    abcdefg    ")
    Print RTrim("    abcdefg    ")
End Sub

asc函数

Private Sub form_click()
    Print Asc("A")
    Print Asc("b")
    Print Asc("Apple")
End Sub

chr函数

Private Sub form_click()
    Print Chr(65)
    Print Chr(97)
    Print Chr(62)
End Sub

val函数

Private Sub form_click()
    Print Val("2457")
    Print Val("_2_45_7")
    Print Val("24 and 57")
End Sub

str函数

Private Sub form_click()
    Print Str(256)
    Print Str(-136.25)
    Print Str(432.01)
End Sub