锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net多维数组赋值 vb给数组赋值然后求和

IT技术方式

vb.net 如何给二维数组赋值 我要第一维存值，第二维存值的位置(像excel一样) 该怎么做，谢谢！Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Private Sub Command1_Click()
Dim I, J As Integer
Dim A(500, 2)
Set xlsApp = Excel.Application
xlsApp.Visible = False
'假设Excel文件在：D:\Book1.xls
Set xlsBook = xlsApp.Workbooks.Open("D:\Book1.xls")
For I = 1 To 500
【vb.net多维数组赋值 vb给数组赋值然后求和】For J = 1 To 2
A(I - 1, J - 1) = xlsapp.cells(I, J)
Next J
Next I
'以下是退出Excel
xlsBook.Close (False)
xlsApp.Quit
Set xlsApp = Nothing
'=================================
'Excel中的500×2的数据已读入到数组A()中，以下可以添加你要运算的代码 。
'=================================
End Sub
vb多维数组赋值楼上回答的什么?。?
真是看不下去，
简单问题复杂了
举个例子：二维数组赋值
Dim i1, i2
Dim a(10, 10)
For i1 = 0 To 10
For i2 = 0 To 10
a(i1, i2) = i2
Next
Next
vb中怎么赋值给数组？vb赋值给数组 ， 有以下几种方式：
第一种方式：
Private Sub Command1_Click()
Dim a(10) As Integer '定义数组a,下标最大值为10
For i = 0 To 10
a(i) = i'这里可以直接给数组赋值vb.net多维数组赋值了
Print "a("i")的值"a(i) '打印数组
Next
End Sub
第二种方式：
Private Sub Command1_Click()
Dim a() As Integer '定义数组a，这里未设置下标
For i = 0 To 10
ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目
a(i) = i'这里可以直接给数组赋值vb.net多维数组赋值了
Print "a("i")的值"a(i)
Next
End Sub
第三种方式：
Private Sub Command1_Click()
a = Array(1, 5, 2, 43, 222)
MsgBox "a(0)原来的值是："a(0)
a(0) = 100
MsgBox "a(0)赋值后的值是："a(0)
End Sub
vb.net多维数组赋值的介绍就聊到这里吧，感谢你花时间阅读本站内容 ， 更多关于vb给数组赋值然后求和、vb.net多维数组赋值的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：关于一个显卡用三年会怎么样的信息

    下一篇：在linux命令行参数，linux命令行参数是什么函数的参数