The funeral of Azeroth

Vb11.11 "函数"

1.
Dim a As Double
Private Sub Command1_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Fix(a)      "取整"

End Sub

Private Sub Command2_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Int(a)    "不大于数值(456.123)的整数部分"
End Sub

Private Sub Command3_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Abs(a)    "绝对值"
End Sub

Private Sub Command4_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Sgn(a)         "判断数值为正数(1)负数(-1)0(0)"
End Sub

Private Sub Command5_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Sqr(a)       "平方根"
End Sub

2.不知道是高中还是初中的东西，现在都记不起来了，百度了一下，还是一头雾水，

Dim a As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Log(a)   "对数"

End Sub

Private Sub Command2_Click()
a = Val(Text1.Text)                            "将字符串转为数值"
MsgBox "函数值为:" & Sin(a)         "正弦"

End Sub

Private Sub Command3_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Cos(a)     "余弦"
End Sub

Private Sub Command4_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Tan(a)        "正切"
End Sub

Private Sub Command5_Click()
a = Val(Text1.Text)
MsgBox "函数值为:" & Atn(a)     "余切"
End Sub

3.  Els val
Trim  删除空格      Ltrim  删除左空格  Rtrim   删除右空格     Left(s,6) 选取左六   Mid (s,2,6)   取指定位置的字符串   Right(s,6)  从右选6字符串
4.Dim a as Variant
len(a)  长度   Space (a)  空格为   UCase(a)  大写    LCase(a)  小写   a=Val(Text1.text)  数字   Str(a)  数字转字符
5.Dim a,b As String
Instr(a,b) 若字符串B是A的子串，结果为1，反之则为0
6.
Val 将字符串转为数字  Str 将数字转为字符串 Asc(a)  字符串首字的Ascii 码   Chr(a)得到以数字为Ascii码的字符
7.随机函数
Rnd(a)  a不变则随机值不变 CInt 将数字小数第一们4舍5入     CCur (a)  将小数后第五位4舍5入

posted on 2010-11-11 15:03 Herose 阅读(86) 评论(0)  编辑  收藏