重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim a(3, 3, 3)
创新互联于2013年创立,先为黄岩等服务建站,黄岩等地企业,进行企业商务咨询服务。为黄岩企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Dim b(3, 3), c(3, 3), d(3, 3)
Private Sub aaa()
' 对数组a(3,3,3)赋值
For i = 1 To 3
For j = 1 To 3
b(i, j) = a(1, i, j)
Next
Next
For i = 1 To 3
For j = 1 To 3
c(i, j) = a(2, i, j)
Next
Next
For i = 1 To 3
For j = 1 To 3
d(i, j) = a(3, i, j)
Next
Next
End Sub
没错!!
你的算法是:
1.定义三个变量,minValue(放最小值),X(放最小值的X坐标),Y(放最小值的Y坐标)。
2.遍历矩阵。在遍历过程中将最小值放在minValue中,最小值的X坐标放在X中,最小值的Y坐标放在X中。
'这是在vb6中的代码,在vb.net中基本差不多,你可以参考一下
Private Sub cmdCommand1_Click()
Me.AutoRedraw = True
Dim Grp
Grp = Array(1, 2, 3, 4, 5)
Dim i, j As Long
Dim StrPrt As String
For i = 0 To UBound(Grp)
'i为位移量
StrPrt = ""
For j = i To UBound(Grp)
StrPrt = StrPrt Grp(j)
Next j
For j = 0 To i - 1
StrPrt = StrPrt Grp(j)
Next j
Me.Print StrPrt
Next i
End Sub
猜你这代码是从vb6.0转过来的吧?那时候还用的是控件数组?在vb.net里面你要用
AddHandler 控件.事件, Address Of 对应方法来注册事件
然后点击才会生效,方法里面的sender as Label就是点击的控件