vb.net 二进制比较

通过and判断

在府谷等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站建设、做网站 网站设计制作按需网站建设,公司网站建设,企业网站建设,成都品牌网站建设,全网营销推广,外贸网站制作,府谷网站建设费用合理。

a: 00000100 a: 00000010

and b: 00000010 and b: 00000110

00000000 00000010

结果： 假 真

Qbasic代码（Basic代码是怎样的，我忘记了，很少用，你修改一下，应该可以再VB。NET运行）：

a=4 '将二进制转换为十进制

b=2

c=6

if a and b then

print "a,b有同一个1"

else

print "a,b无同一个1"

end if

if b and c then

print "b,c有同一个1"

else

print "b,c无同一个1"

end if

end '不喜欢end就却掉吧

用VB.NET将二进制数转换为十进制数

.NET 程序写成你这样也算厉害了，好好看看下面的代码

Sub Main()

Console.WriteLine("请输入一个二进制数")

Console.WriteLine(bin2int(Console.ReadLine()))

Console.ReadKey()

End Sub

Function bin2int(ByVal bin As String) As Integer

Dim i As Long

For i = 1 To bin.Length

bin2int = bin2int * 2 + Val(Mid(bin, i, 1))

Next i

End Function

vb.net 二进制读取文件

VB.NET打开二进制文件用fileopen完成，打开二进制文件的形式为：openmode.binary

读取二进制文件用的是fileget方法，写入二进制文件用的是fileput方法。

应用示例：将一批随机数保存在一个dat文件中，然后再将其提取到文本框中。

二进制文件的读写一批随机数的存取，程序为：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

For i = 1 To 8

x = Int(Rnd() * 100)

s = s + Str(x)

FilePut(fn, x)

Next

FileClose(fn)

TextBox1.Text = s

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

Do While Not EOF(fn)

FileGet(fn, x)

s = s + Str(x) + " "

Loop

FileClose(fn)

TextBox1.Text = s

End Sub

vb.net二进制怎么读取文件？

一、二进制文件读写

1、写二进制数据到指定目录

==将barray字节数组中的数据创建在strFilename目录文件下，存储格式为二进制，False表示不添加，直接覆盖创建。

2、从指定路径下读取二进制数据到数组

==将目录中的文件读取到barry字节数组中，即读取二进制文件。

二、字符文件的读写

1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。

2、从srtFileName目录中的文件读取到txtFile控件

文章标题：vbnet二进制数 vb 二进制
文章URL：http://kswjz.com/article/ddoojsh.html