vb中数组的初始化
发布时间:2020-12-17 07:51:32 所属栏目:百科 来源:网络整理
导读:vb中数组的初始化 问题: 计划使用数组存储以下值: "零分,班序,年名,序,组名,级名,总分3,总分5,总分9,总序,语序,数序,英序,物序,化序,政序,历序,地序,生序" 方法: 在vb中数组初始化比较麻烦 1.标准做法: dimfield(19)asstring'需要手工计算下标上限field(0)="
vb中数组的初始化 问题: 计划使用数组存储以下值: "零分,班序,年名,序,组名,级名,总分3,总分5,总分9,总序,语序,数序,英序,物序,化序,政序,历序,地序,生序" 方法: 在vb中数组初始化比较麻烦 1.标准做法: dimfield(19)asstring'需要手工计算下标上限 field(0)="零分"'逐行赋值 field(1)="班序" ... field(18)="生序" fori=0to19 debug.printfield(i) nexti 很?嗦,一句一行赋值语句. 2.改进一下: DimsFieldListAsString DimsField(1to19)AsString'需要手工计算下标上限 DimiAsInteger DimnBgnAsInteger,nLenAsInteger '注意尾部有',不可省略 sFieldList="零分,生序," nBgn=1 Fori=1To19 nLen=InStr(nBgn,sFieldList,",") sField(i)=Mid(sFieldList,nBgn,nLen-nBgn) nBgn=nLen+1 debug.printsField(i) nexti 上例将一个由","分隔的字符串构造出数组. 3.再改进一下: DimsFieldListAsString DimsField()AsString'动态数组 DimiAsInteger '注意尾部',可有可无 sFieldList="零分," sField=Split(sFieldList,") Fori=0ToUBound(sField)-1 debug.printsField(i) nexti 上例使用一个split函数构造出数组. 结论: 使用split函数构造数组的值,快速,简洁. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |