社区
VB基础类
帖子详情
redim问题
yoryor
2005-12-29 11:18:03
当我Dim Strtemp() As String后,如何实现ReDim Preserve后UBound(Strtemp) + 1,我是指第一次(ReDim Preserve Strtemp(UBound(Strtemp) + 1)当还没有redim时UBound是无法读取的)....谢谢大家!!!
...全文
137
3
打赏
收藏
redim问题
当我Dim Strtemp() As String后,如何实现ReDim Preserve后UBound(Strtemp) + 1,我是指第一次(ReDim Preserve Strtemp(UBound(Strtemp) + 1)当还没有redim时UBound是无法读取的)....谢谢大家!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
rainstormmaster
2005-12-30
打赏
举报
回复
当然,你在用ReDim Preserve Strtemp(UBound(Strtemp) + 1)之前判断一下数组是否被初始化也可以(需要写一个子函数,利用错误陷阱进行判断)
junki
2005-12-30
打赏
举报
回复
或者你在出始化时,
Redim Strtemp(0) As String
'当符合条件时
Redim Strtemp(0 To Num) As String
Strtemp(1) = "123"
'这样数组的有效数据是索引从1开始的
rainstormmaster
2005-12-29
打赏
举报
回复
先定义一个变量,用这个变量表示UBound(Strtemp) ,先给这个变量初值比如是-1:
Dim Strtemp() As String
dim i as long
i=-1
然后你在循环体中这么写:
if i=-1 then
redim Strtemp(你需要的数值)
你的其它语句
i=UBound(Strtemp)+1
else
ReDim Preserve Strtemp(i)
i=i+1
end if
Redim
的应用,VB6.0源代码,重定义数组.
Redim
的应用,VB6.0源代码,重定义数组.
ReDim
a(10) a(1) = "123"
ReDim
Preserve a(20) Text1.Text = a(1)
小米10 10 Pro 红米NOTE解锁BL插件软件K30 Pro
redim
10X图纸.7z解锁BL刷机平台
小米10 10 Pro 红米NOTE解锁BL插件软件K30 Pro
redim
10X图纸.7z解锁BL刷机平台
asp中使用
redim
、preserve创建动态数组实例
asp中
REDIM
的功能是动态定义数组长度 动态数组里面的一个语句,只能出现在过程里面,可以多次使用。可以改变数组大小,和维数。 格式:
REDIM
[Preserve] 数组名(下标1[下标2….]) Preserve 保留动态数组的内容(不用的话,每次执行
REDIM
语句,当前存储的语句会全部丢失) 例如: 代码如下: Dim DynArray() ‘定义数组DynArray()为动态数组
REDIM
Preserve DynArray(20)’为该数组分配元数个数 这样对编程中一些动态的改变数组是非常重要的,而且经常能用到,处理到,这
REDIM
深入了解第二电脑认为对自己的编程的
java 重定义数组的实现方法(与VB的
ReDim
相像)
java 重定义数组的实现方法(与VB的
ReDim
相像),需要的朋友可以参考一下
超速复制文件.rar
B = 10240 '这里可以改速度,数字越大,速度就越快,如果太快的话也有可能会卡主电脑的 i = FileLen(AppName) Mod B '算出速度的零头 N = FileLen(AppName) Open AppName For Binary As #1 '打开原文件 i2 = FreeFile '给新文件键个文件号 Open AppSizeName For Binary As #i2 '打开新文件
ReDim
BB(i) '规定BB只能容纳i这么多字节(BB i 速度的零头 Get #1, 1, BB '从原文件的(弟1字节至BB空间)读取到BB中(BB速度的零头 Put #i2, 1, BB '把BB写到新文件的(弟1字节至BB空间)(BB速度的零头 Do '用循环的方式来把文件一段一段的写入新文件中
ReDim
BB(B) '规定BB只能容纳(速度B)这么多字节 Get #1, i, BB '从原文件的(弟i字节至BB空间)读取到BB中 Put #i2, i, BB '把BB写到新文件后面
VB基础类
7,765
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章