在.NET 中微软已经为我们内置了一些方法，我们可以直接使用该方法以快速达到我们的目的
创新互联专注于中大型企业的网站设计制作、成都做网站和网站改版、网站营销服务，追求商业策划与数据分析、创意艺术与技术开发的融合，累计客户数千家，服务满意度达97%。帮助广大客户顺利对接上互联网浪潮，准确优选出符合自己需要的互联网运用，我们将一直专注成都品牌网站建设和互联网程序开发，在前进的路上，与客户一起成长！
Module Module1
Sub Main()
Dim a(3) As Int32
a(0) = 1
a(1) = 1
a(2) = 1
a(3) = 1
'推荐第一种方法
If a.Distinct().Count() = 1 Then
If a.All(Function(c) c = 1) Then
End If
End If
End Sub
End Module
第二种方法为LINQ，这是一种高级用法；是.NET 程序员必知必会的东西，如果不懂怎么用可以按F1查看官方文档
If 字符串1 = 字符串2 Then
'两个字符串相等
Else
'两个字符串不相等
End If
dim a(3)
a(0) = 1,a(1)=1,a(2)=1,a(3)=0
for i = 0 to 3
if a(i)a(0) then msgbox "有不同"
next
可以参考下面的代码：
str1="abcde"
str2=inputbox("请输入一个字符串!")
if str1=str2 then
msgbox "它们是一样的呀!"
else
msgbox "它们是不一样的!"
end if
扩展资料：
VB函数
And 运算符： 执行两个表达式的逻辑连接。
Array 函数： 返回含一数组的变体 。
Asc 函数： 返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=)：给变量或属性赋值。
Description 属性： 返回或者设置说明某个错误的字符串。
Dictionary 对象： 存储数据键、项目对的对象。
Dim 语句： 声明变量并分配存储空间。
除法运算符 (/)： 两数相除并以浮点数格式返回商。
参考资料来源：百度百科-Visual Basic
If System.IO.File.ReadAllBytes(文件名1).SequenceEqual(System.IO.File.ReadAllBytes(文件名2)) Then
相等
Else
不相等
End If
Dim A As String, B As String
A = "123456"
B = "123456"
If A = B Then GoTo xiangdeng
MsgBox "不相等"
GoTo buxiangdeng
xiangdeng:
MsgBox "相等"
buxiangdeng:
