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

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

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

Dim?AA?As?String?????'模塊級(jí)變量

Private?Sub?Command1_Click()

Dim?XX?As?Single,?YY?As?Single????'過程級(jí)變量

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ù)點(diǎn)直接進(jìn)一位的函數(shù)?

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

'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大舍去以后向前一位進(jìn)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://chinadenli.net/article2/dsisgoc.html

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

廣告

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