vb.net补齐4位的简单介绍

请问在 vb.net 中如何读取一个文件的前几个字节？

    Dim fs As New System.IO.FileStream("D:\1.txt", IO.FileMode.Open, IO.FileAccess.Read)

        Dim buffer(3) As Char

        Dim re As New System.IO.BinaryReader(fs)

        re.Read(buffer, 0, 4)'表示从0位开始读4位

        MsgBox(buffer)

vb.net 怎样使计算结果只保留四位小数？

用这个函数把

Math.Round 方法 (Decimal, Int32)

将小数值舍入到指定精度。

命名空间： System

程序集： mscorlib（在 mscorlib.dll 中）

语法

Visual Basic（用法）

Dim d As Decimal

Dim decimals As Integer

Dim returnValue As Decimal

returnValue = Math.Round(d, decimals)

参数

d

类型：System.Decimal

要舍入的小数。

decimals

类型：System.Int32

返回值中的小数位数（精度）。

返回值

类型：System.Decimal

精度等于 decimals，最接近 d 的数字。

Math.Round(3.4666666, 4) 结果是 3.4667.

vb.net random（10000） 怎么样确保每次产生的数字都为4个数字 比如0100,0020,0002 这样子位数不满用0填充

下面的程序测试过，运行正确， 加个命令键（command1）和一个标签（label1），每点击命令键一次，表签上就显示产生的4个数字， 而且保证是四个数字。

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.NET制表符 vbTab 的奇怪现象

其实是起了作用的，只不过vbTab跟4个字符有关系，所以显示的列，8的倍数个字符和不是8的倍数个字符之间就显示得有差异了。

tab就是如果不够4个字符就补齐4个字符的位置。 超过的话就是补齐4的整倍数个字符。