VB.NET 判斷數(shù)組值是否全部相同

dim a(3)

成都創(chuàng)新互聯(lián)主要業(yè)務(wù)有網(wǎng)站營銷策劃、成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、微信公眾號(hào)開發(fā)、微信小程序開發(fā)、H5高端網(wǎng)站建設(shè)、程序開發(fā)等業(yè)務(wù)。一次合作終身朋友，是我們奉行的宗旨；我們不僅僅把客戶當(dāng)客戶，還把客戶視為我們的合作伙伴，在開展業(yè)務(wù)的過程中，公司還積累了豐富的行業(yè)經(jīng)驗(yàn)、全網(wǎng)營銷推廣資源和合作伙伴關(guān)系資源，并逐漸建立起規(guī)范的客戶服務(wù)和保障體系。 

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

在vb點(diǎn)虐 中怎么判斷兩個(gè)字符串相等

Dim A As String, B As String

A = "123456"

B = "123456"

If A = B Then GoTo xiangdeng

MsgBox "不相等"

GoTo buxiangdeng

xiangdeng:

MsgBox "相等"

buxiangdeng:

VB.NET 判斷一個(gè)數(shù)組里面的值是否全部相同, 然后再執(zhí)行下一步

在.NET 中微軟已經(jīng)為我們內(nèi)置了一些方法，我們可以直接使用該方法以快速達(dá)到我們的目的

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，這是一種高級(jí)用法；是.NET 程序員必知必會(huì)的東西，如果不懂怎么用可以按F1查看官方文檔

vb點(diǎn)虐 如何判斷兩個(gè)類的對(duì)象是否相等

If System.IO.File.ReadAllBytes(文件名1).SequenceEqual(System.IO.File.ReadAllBytes(文件名2)) Then

相等

Else

不相等

End If