VB 向上保留一位小數(shù)

VB有Round()函數(shù)，但是是四舍五入，你的這個需要編寫一個過程或函數(shù)：

創(chuàng)新互聯(lián)建站服務項目包括深圳網(wǎng)站建設、深圳網(wǎng)站制作、深圳網(wǎng)頁制作以及深圳網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構等提供互聯(lián)網(wǎng)行業(yè)的解決方案，深圳網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到深圳省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

Dim?AA?As?String?????'模塊級變量

Private?Sub?Command1_Click()

Dim?XX?As?Single,?YY?As?Single????'過程級變量

XX?=?Val(Text1.Text)

If?AA?=?"整數(shù)"?Then

If?XX?/?1?-?XX?\?1?=?0?Then???'判斷小數(shù)部分是否小于0.5

YY?=?Round(XX,?0)?+?1

ElseIf?XX?/?1?-?XX?\?1??0?Then???'判斷小數(shù)部分是否大于0.5

YY?=?Round(XX,?0)

End?If

ElseIf?AA?=?"小數(shù)"?Then

If?XX?/?1?-?XX?\?1?=?0?Then???'判斷小數(shù)部分是否小于0.5

YY?=?Round(XX,?1)?+?0.1

ElseIf?XX?/?1?-?XX?\?1??0?Then???'判斷小數(shù)部分是否大于0.5

YY?=?Round(XX,?1)

End?If

End?If

Text2.Text?=?YY

End?Sub

Private?Sub?Form_Load()

Option1(0).Value?=?True

End?Sub

Private?Sub?Option1_Click(Index?As?Integer)

If?Option1(0).Value?=?True?Then

AA?=?"整數(shù)"

Else

AA?=?"小數(shù)"

End?If

End?Sub

VB.net，小數(shù)點直接進一位的函數(shù)?

'自定義一個函數(shù)：功能是給小數(shù)直接進一位

'num 　要操作的小數(shù)

'n　保留幾位小數(shù)，

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

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

調(diào)用一下：

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

VB.NET 怎么樣保留后面的小數(shù)位

保留兩位小數(shù)的一般方法是四舍五入法。

保留兩位小數(shù)，看千分位。是4或比4小舍去；是5或比5大舍去以后向前一位進1。

如：3.425保留兩位小數(shù)就是3.43

3.421保留兩位小數(shù)就是3.42

又如： 3.4263保留兩位小數(shù)就是3.43

3.4233保留兩位小數(shù)就是3.42

再如：3.4保留兩位小數(shù)就是3.40

本文名稱：vb.net保留1位小數(shù),net保留兩位小數(shù)
網(wǎng)站地址：http://aaarwkj.com/article2/dsisgoc.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營銷、網(wǎng)站收錄、小程序開發(fā)、手機網(wǎng)站建設、網(wǎng)站設計、建站公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)