function newnum(x as double) as integer
If x> Int(x) Then
newnum=Int(Text1.Text) + 1
Else
newnum=Int(Text1.Text)
End If
end function
不好意思,类型少写几个字母,用惯了VC
fountion newnum(x as double) as integer
If x> Int(x) Then
newnum=Int(Text1.Text) + 1
Else
newnum=Int(Text1.Text)
End If
end fountion
不好意思,类型少写几个字母,用惯了VC