舉個例子
成都創(chuàng)新互聯(lián)公司是一家專業(yè)提供通道企業(yè)網(wǎng)站建設(shè),專注與成都做網(wǎng)站、網(wǎng)站制作、H5頁面制作、小程序制作等業(yè)務(wù)。10年已為通道眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進行中。
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
結(jié)果為b = 2.00
四舍五入保留兩位
用這個函數(shù)把
Math.Round 方法 (Decimal, Int32)
將小數(shù)值舍入到指定精度。
命名空間: System
程序集: mscorlib(在 mscorlib.dll 中)
語法
Visual Basic(用法)
Dim d As Decimal
Dim decimals As Integer
Dim returnValue As Decimal
returnValue = Math.Round(d, decimals)
參數(shù)
d
類型:System.Decimal
要舍入的小數(shù)。
decimals
類型:System.Int32
返回值中的小數(shù)位數(shù)(精度)。
返回值
類型:System.Decimal
精度等于 decimals,最接近 d 的數(shù)字。
Math.Round(3.4666666, 4) 結(jié)果是 3.4667.
將16進制數(shù)存在變量 a 中
b=mid(a,1,2) c = mid (a,3,2)
b就是AA c就是55
下面的程序測試過,運行正確, 加個命令鍵(command1)和一個標簽(label1),每點擊命令鍵一次,表簽上就顯示產(chǎn)生的4個數(shù)字, 而且保證是四個數(shù)字。
Private Sub Form_Load()
End Sub
Private Sub Command1_Click()
Dim a As Integer, strR As String
a = 1000 * (Rnd(10000))
strR = Str(a)
Select Case Len(strR) - 1
Case 1
strR = "000" + Right(strR, 1)
Case 2
strR = "00" + Right(strR, 2)
Case 3
strR = "0" + Right(strR, 3)
End Select
Label1.Caption = strR
End Sub
用vb實現(xiàn)在textbox中的數(shù)值自動保留4位小數(shù)的方法如下:
準備材料:電腦、excel
1、首先先打開電腦界面,然后找到桌面上面的一個表格文件,然后雙擊這個表格文件。
2、然后這個時候就可以打開了這個表格文件。
3、在打開的表格界面中,然后點擊一個單元格。
4、在這個單元格上面右鍵單擊,然后在出現(xiàn)的菜單中,選擇“設(shè)置單元格格式”選項。
5、在彈出的設(shè)置單元格格式的操作界面中,然后點擊“數(shù)值”選項卡。
6、在單元格格式的操作界面中,然后在“小數(shù)位數(shù)”的地方輸入數(shù)值,然后點擊“確定”按鈕。
7、返回到之前的表格界面中,就可以看到數(shù)值變成了帶有四位小數(shù)位的數(shù)值了。