有一个byte类型数组:A(0 to max)然后创建了一个新的byte类型数组:B()
我想把其中的A(10 to max)赋值到B()中,即生成B(0 to max-10),请问如何实现?
我想把其中的A(10 to max)赋值到B()中,即生成B(0 to max-10),请问如何实现?
解决方案 »
- 取一组数据的最大值和最小值问题!
- 请问谁有繁体版的VB 5.0或者6.0下载?
- 请问vb怎么把那种下拉菜单设置成只能选择不能往里面写字的,比如Combo,listcombo
- 我用excel.application对象创建excel文件且用SetParent嵌入到窗体,但运行之后再用excel打开文件就会出现在任务栏上出现excel进程,我用
- 求助?关于Boolean问题
- 如何调用动态连接库 DLL ?
- 关于帮助文件请教!
- 怎样把一个文件生成一个可执行文件.exe
- 分,全部奉送,附加计算机工作岗位
- 如何将我的软件加入 托盘
- 表格控件MSHFlexgrid,为什么不显示库里的信息?
- 请问winsock如何getdata得到同一个缓冲区的不同类型的数据
Sub main()
Dim A() As Byte
Dim B() As Byte
Const MAX = 99
ReDim A(0 To MAX) '赋值语句略
ReDim B(0 To MAX - 10)
CopyMemory B(0), A(10), MAX - 10 + 1
End Sub
Private Sub Command1_Click()
Const Max As Integer = 19
Dim A(0 To Max) As Byte, i As Integer
For i = 1 To 20
A(i - 1) = i
Next
Dim B() As Byte
ReDim B(UBound(A) - 10)
For i = 0 To UBound(B)
B(i) = A(i + 10)
Next
End Sub
B=midb(a,10,lenb(a)-10)
不敢保证对,试试看吧。