双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

【如何将VB中的数组初始化】

2002-05-16 10:11:19 2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

eion 墨衍会员 · AI 创作全网分发关注 + 加入社区

手把手教你用U盘给海信IP501H刷机：GK6323V100C芯片的4.4.2和9.0固件实战本文详细介绍了海信IP501H电视盒子基于GK6323V100C芯片的刷机实战指南，涵盖Android 4.4.2强刷和Android 9.0免拆刷机两种方案。从工具准备、短接操作到ADB调试，提供全流程解析和常见问题解决方案，帮助用户安全高效地完成刷机操作。阅读详情

我是做VC的，对VB一窍不通，有劳各位帮我解释解释：如何初始化VB数组
定义如下数组，该如何初始化？

Dim arr(10)

arr(1)="abc"
arr(2)="efg"
.................

该如何写？如果是二维的数组,又如何定义以及初始化？
谢谢
Vaiting Online

...全文

【Tableau】解决订阅报表PDF中文显示为乱码（方框）问题一、问题描述在tableau server网页端报表中文字符能正常显示，但在订阅后发送到邮箱时，以图片格式呈现的内容中中文字符显示为方框。网页端报表能正常显示中文字符：邮件中的报表不能正常显示中文字符：二、问题分析网页端字符显示情况是由html编码决定的，而tableau生成图片时是通过所部署的服务器的字体文件显示字体。因此可能是由于Linux服务器缺失相关的字体文件导致网页端选择的中文字体在服务器上缺失对应的字体文件导致的。则考虑在服务器引入对应的字体文件。三、问题解决 1、查看服务器现有阅读详情

eion

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

IsMe 2002-05-16

打赏
举报

接上面：
call InitArray("if", "else", "switch", "case","while","for","int","char","float")

IsMe 2002-05-16

打赏
举报

option explicit
dim AAA()as string
private sub InitArray(Paramarray Items())
dim I as integer
i=ubound(Items)
if i<0 then
erase aaa
exit sub
end sub
redim aaa(i)
for i=0 to i
aaa(i)=items(i)
next i

end sub

DownFree 2002-05-16

打赏
举报

帅！
看来Up真有用！

playyuer 2002-05-16

打赏
举报

Array("if", "else", "switch", "case","while","for","int","char","float")

aladings 2002-05-16

打赏
举报

你只能这么作了,没办法!或许我太笨,关注中!!!

kofkim 2002-05-16

打赏
举报

恭喜你~你终于觉悟VB的好处了！

DownFree 2002-05-16

打赏
举报

UP一下，我也被这个问题困扰着呢！

eion 2002-05-16

打赏
举报

难道VB不能初始化？
比如我要列举出所以得C的关键字如"if", "else", "switch", "case","while","for","int","char","float"....
是不是我只能一个一个赋值
keyw(1)="if"
keyw(2)="else"
....
keyw(100)="double"
那其不是累死了？
有没有简便一点的方法？

Greaitm 2002-05-16

打赏
举报

vb 跟 vc不同,你要做字符串数组只需要一维数组就行了
假如你要初始化二维数组既可以这样做:
dim arr(10,10)
arr(0,0) =...
arr(1,0)=...

bitsoft 2002-05-16

打赏
举报

dim i as long
dim s(9) as long

for i=0 to 9
s(i)=i
next

二维的数组的初始化类似，嵌套循环

eion 2002-05-16

打赏
举报

playyuer(26岁的人 62岁的心脏)的用法为

Dim Arr As Variant

Arr = Array("if", "else", "switch", "case", "break")
MsgBox Arr(3) + Arr(2) + Arr(1) + Arr(0)

输出： caseswitchelseif
注意：arr从0开始，根C一样

eion 2002-05-16

打赏
举报

谢谢各位：
我是这样用的【偷懒】
keyW = "if,else,switch,case,default,break,for,while,do," + _
"void,bool,char,int,float,double,signed,unsigned,short,long," + _
"new, delete, const, voliate, static, auto," + _
"struct, class,typedef, private, public, protected, template, " + _
"using, namespace, " + _
"return,"
然后再
num = 1
pos = InStr(1, keyW, ",", vbTextCompare)
Do While pos > 0
arr(num) = Trim(Left(keyW , pos-1 ))
num = num + 1
keyW = Right( keyW, Len(keyW)-pos )
pos = InStr(1, keyW, ",", vbTextCompare)
Loop
只是不能输入','

✦双11狂欢大促✦

【如何将VB中的数组初始化】

相关推荐

双11狂欢大促