private sub command redim + preserve 怎么用? 举例说明.有什么作用?
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/04 10:20:27
private sub command redim + preserve 怎么用? 举例说明.有什么作用?
redim + preserve 怎么用? 举例说明.有什么作用?
redim + preserve 怎么用? 举例说明.有什么作用?
'Preserve 关键字,当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据.
Sub li()
Dim a() As Integer
ReDim a(0 To 1) As Integer
a(0) = 1
a(1) = 2
'使用Preserve可以保持数组a中原来的数据a(0)=1,a(1)=2,如果不使用Preserve,则a(0)=0,a(1)=0
ReDim Preserve a(0 To 3) As Integer
a(2) = 3
a(3) = 4
For i = 0 To 3
Debug.Print a(i)
Next i
End Su
Sub li()
Dim a() As Integer
ReDim a(0 To 1) As Integer
a(0) = 1
a(1) = 2
'使用Preserve可以保持数组a中原来的数据a(0)=1,a(1)=2,如果不使用Preserve,则a(0)=0,a(1)=0
ReDim Preserve a(0 To 3) As Integer
a(2) = 3
a(3) = 4
For i = 0 To 3
Debug.Print a(i)
Next i
End Su
private sub command redim + preserve 怎么用? 举例说明.有什么作用?
Private Sub Form_Click()和Private Sub Command1_Click()有什么区别?
private sub command 帮忙看下这个
VB里面Private Sub form_click()什么意思
private sub command()_click() for i=2 to10 for j=2 to
15、执行下面的程序,消息框的输出结果是______.Option Base 1 Private Sub Command
Private Sub Form_Click()
private sub score_lostfocus( )
Private Sub Command1_Click()
Private Sub Command_1Click()
vb Private Sub Command1_Click()
private sub command1_click()