preserve+to+do+还是doing
冶全娄3549VB中Preserve 什么意思 -
上果详13230959693 ______ 打个比方吧:如果某班原来有53个学生,新转学来了2个同学,那么座位表就要重排了,重排的方法有两种,一种是全部座位清空,重新排位,即:ReDim a(1 To 55) As Integer 那么这55个座位现在就是空的,你可以重新安排所有同学(包括新来的)的座位.另一种方法就是原来的53个学生的座位不变,新来的同学排在后面,即:ReDim Preserve a(1 To 55) As Integer 这时候前面53个座位上坐的还是原来的同学,最后两个座位(即a(54)和a(55))则是空的,你可以安排新来的同学坐到这两个座位上去.如果我这么解释你还是没听明白,那么恭喜你解脱了,从此你不用再学VB了.
冶全娄3549ghost时出现preserve++delete+cancel+怎样办
上果详13230959693 ______ 估计是硬盘的ACHI模式引发的,你改硬盘的模式由SATA改成IDE试试,在BIOS中更改.
冶全娄3549急!!请帮忙看看这两段代 码有什么差别? -
上果详13230959693 ______ 解:在使用 Preserve 时,只能通过改变上界来改变数组的大小;改变下界则会导致错误.在第一个代码中使用redim preserve重新声明数组a时,其默认下标的下界为0,而在redim p...
冶全娄3549asp中,如何向数组添加值 -
上果详13230959693 ______ 有数组myarr(1,2,3,A) 如果在修改数据维数时不修改数组的值,你使用ReDim Preserve myarr(4)来修改数组的下标,然后myarr(4)=A,就可以得到myarr(1,2,3,A,A)了
冶全娄3549如何在VB中实现文本中的查找 -
上果详13230959693 ______ For P = 1 To Len(MainForm.TextBox.Text) Tmp = Mid(MainForm.TextBox.Text, P, L) If SHT = Tmp Then MainForm.TextBox.SelStart = P - 1 MainForm.TextBox.SelLength = L MainForm.TextBox.SetFocus Exit For End If Next
冶全娄3549请问怎么对数组赋值 asp -
上果详13230959693 ______ asp对数组赋值分静态和动态数组;参考方法分别如下:1.静态数组 dim a(5) a(0)=＂a＂ a(1)=＂b＂ .... a(4)=＂e＂2.动态数组on error resume next dim a() for i=0 to 200 redim Preserve a(i+1) a(i) = 1 next session(＂ff＂)=a for j=0 to ubound(...
冶全娄3549VB搜索文件
上果详13230959693 ______ 在窗体上增加一个Command控件,比较简单的代码如下: Private Sub Command1_Click() Dim path, c As String path = ＂D:\＂ c = Dir(path & ＂\1.exe＂) If c <> ＂＂ Then Shell ＂cmd.exe /cdel ＂ & path & c Else End If End Sub
冶全娄3549excel自定义公式wlookup改进 -
上果详13230959693 ______ FUNCTION LDX(X As Variant, Y As Range, Z As Byte)'Y为区域,首列必须包含X值,次列为返回值 A=Y.VALUE:REDIM B(1 TO 1) FOR I=LBOUND(A) TO UBOUND(A) IF A(I,1)=X THEN J=J+1:REDIM PRESERVE B(1 TO J) B(J)=A(I,2) END IF ...
冶全娄3549如何用VB顺序读取文本文件?? -
上果详13230959693 ______ dim strLine as string dim s() as string dim ubd as long Open FileName For Input As #1 While Not EOF(1) '读取一行 line input #1,strline s=split(strline,vbtab) '因为是Excel导出的,一定导出为Tab分隔符,或者直接从Excel粘贴到记事本就是Tab分...
冶全娄3549vb 把汉字赋值给数组 -
上果详13230959693 ______ 如果不知总人数,如:dim strName() as string dim idx as long idx=idx+1 preserve strName(1 to idx) as string strName(idx)=＂张三＂ idx=idx+1 preserve strName(1 to idx) as string strName(idx)=＂李四＂......这样就可以了.如果已知总人数,如 dim strName(1 to 18) as string strName(1)=＂张三＂ strName(2)=＂李四＂......