重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'''这个函数功能就是用来把数组转为string的格式'''如byte()={1,2,3,4,5,6}转化后变为",1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}
威信网站建设公司成都创新互联公司,威信网站设计制作,有大型网站制作公司丰富经验。已为威信近千家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱,请找那个售后服务好的威信做网站的公司定做!
Dim b as byte()={2,3,4}
Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '这个index就是b数组在a数组的位置,下标从0开始,不过记得处理下逗号,因为这时候是字符串。'''如果index小于0说明没有匹配内容End Sub 现在说明下ByteArrayToString为什么要在字符串开头加个",",如果不加,可能出现a="1,23,4,5,6,", b="3,4,5,",结果导致查询位置错误,匹配了a的位置
sender就是你要的button了,不需要什么index,要计算index,则通过sender去判断
sub sub1(sender as object,e as eventargs)
sender.text="button1"’设置所点击button控件的text属性。
end sub
addhandler button.click, addressof sub1
如果是简单类型,可以用数组的indexof方法
Dim colXX As String() = New String() {"1", "2", "3", "4Dim colXX As String() = New String() {"1", "2", "3", "4"}
if (colXX.indexof("2") = 0) then
return true
end if
你是不是应该对最大值和最小值赋初值(比如把 r(1) 赋给最大值和最小值)呢?不然最小值默认初始值是‘0’,后面的判断就不起作用了。你可以加个断点试试,他们的初始值是多少。。。
在.NET 中微软已经为我们内置了一些方法,我们可以直接使用该方法以快速达到我们的目的
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查看官方文档
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