VB 向上保留一位小數

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

網站設計、網站制作介紹好的網站是理念、設計和技術的結合。成都創新互聯公司擁有的網站設計理念、多方位的設計風格、經驗豐富的設計團隊。提供PC端+手機端網站建設，用營銷思維進行網站設計、采用先進技術開源代碼、注重用戶體驗與SEO基礎，將技術與創意整合到網站之中，以契合客戶的方式做到創意性的視覺化效果。

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

Private?Sub?Command1_Click()

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

XX?=?Val(Text1.Text)

If?AA?=?"整數"?Then

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

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

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

YY?=?Round(XX,?0)

End?If

ElseIf?AA?=?"小數"?Then

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

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

ElseIf?XX?/?1?-?XX?\?1??0?Then???'判斷小數部分是否大于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?=?"整數"

Else

AA?=?"小數"

End?If

End?Sub

VB.NET 怎么樣保留后面的小數位

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

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

如：3.425保留兩位小數就是3.43

3.421保留兩位小數就是3.42

又如： 3.4263保留兩位小數就是3.43

3.4233保留兩位小數就是3.42

再如：3.4保留兩位小數就是3.40

vb點虐 怎么設置數字保留小數點位數

舉個例子

Dim a As Decimal = 1.999

Dim b As Decimal = Math.Round(a, 2)

結果為b = 2.00

四舍五入保留兩位

新聞名稱：vb點虐 保留一位小數 vb數據保留兩位小數
轉載注明：http://vcdvsql.cn/article24/ddsidce.html

成都網站建設公司_創新互聯，為您提供企業網站制作、品牌網站建設、軟件開發、關鍵詞優化、App設計、

廣告

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