vb点虐 中iif的简单介绍

vb点虐 中三目运算符的写法？

iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)iif(Condition=true,1,0)

创新互联是一家专注于网站设计、成都网站建设与策划设计,镇原网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:镇原等地区。镇原做网站价格咨询:13518219792

VB点虐 ，小数点直接进一位的函数?

'自定义一个函数：功能是给小数直接进一位

'num 　要操作的小数

'n　保留几位小数，

Function getNumber(num As Double, n As Integer) As Double

Dim a As Double

a = Int(num * (10 ^ n)) / (10 ^ n)

If a = num Then

getNumber = a

Else

getNumber = a + 1 / (10 ^ n)

End If

End Function

-------------------------

调用一下：

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

vb编写一个函数，删除一个字符串中的特定字符

'定义一个find函数

Private Function find(s1 As String, s2 As String) As String

Dim i As Integer

For i = 1 To Len(s1)

If i = InStr(1, s1, s2, vbTextCompare) Then

find = Left(s1, i - 1) Right(s1, Len(s1) - Len(s2) - i + 1)

Exit Function

End If

Next i

find = s1

End Function

'将Text1.Text中的Text2.Text字符删除

Private Sub Command1_Click()

Dim s As String

s = find(Text1.Text, Text2.Text)

Text1.Text = s

End Sub