vb中的数组
vb6的数组下标默认从0开始
dim a(9) as integer中a数组有10个元素,下标0~9
可以使用option base,改变数组的下标从1开始。
这样dim a(9) as integer中a数组有9个元素,下标1~9VB数组编写
1。
用For循环语句及InputBox()函数输入。
每次循环,由InputBox()函数弹出对话框等待用户输入数据。
如:
Dim a(1 to 4) as Integer
For i=1 to 4
a(i)=InputBox("请输入")
Next i
如果是二维数组,则用两层循环,类推。
2。
用Array()函数为数组元素赋值,格式:
数组变量名=Array(数组元素值)
如:
Static a as variant
a=array(1,2,3,4,5)
意思就是把1,2,3,4,5这5个数值赋给数组工的各个元素。
即a(0)=1...a(4)=5
希望楼主清楚了:)vb数组什么意思
Private Sub Command1_Click() Dim a(1 To 4一维数组只有一个下标,这样也便于理解 二、二维数组通常是指由两个下标的数组元素所组成的数组,我们建议大家无论是否需要,还是带上s= 0。
Private Sub Command1_Click() Dim a(100) As Integer Dim s As Integer For i = 1 To 100 a(i) = i Next i End Sub 说明:⑴为了养成编程的一些好的习惯,数学上形如数列{ai}表示的数据均可用一维数组来处理。
注意数组的输入与输出方法。
一个二维表格就是一个二维数组。
数学上形如矩阵{aij}表示的数据均可用二维数组来处理。
仍需注意数组的输入与输出方法vb 定义数组
假设你的数据是存在c盘的1.txt,且每行为1条数据..
新建工程,1个按钮,3个list,
我在代码中使用了3个数组,分别是tmp1,tmp2和tmp3,用来存放提取出来的数据..
在代码前部使用了
ReDim Tmp1(100)
ReDim Tmp2(100)
ReDim Tmp3(100)
这里我给了一个100的初值,你可以根据数据量给定一个初值的,大于你的数据量就行,多了也无所谓..这样做的好处是提高效率,不然后读取每行后,逐行来redim preserve数组的话,效率很低.
后面这个:
ReDim Preserve Tmp1(i - 1)
ReDim Preserve Tmp2(i - 1)
ReDim Preserve Tmp3(i - 1)
就是将数组中多余的无用数组删除..
我后面放了list显示的部分,只是演示提取效果,你在实际运用得到tmp1,tmp2,tmp3以后,可以不需要后面的代码了..
====================全部完整代码===================
Const Fgf$ = "VB妮可无敌分隔符"
Private Sub Command1_Click()
Dim a$, b, Tmp1$(), Tmp2$(), Tmp3$(), i%
ReDim Tmp1(100)
ReDim Tmp2(100)
ReDim Tmp3(100)
Open "c:1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
If a <> "" Then
a = LoveVb(a)
b = Split(a, Fgf)
Tmp1(i) = b(0)
Tmp2(i) = b(1)
Tmp3(i) = b(2)
i = i + 1
End If
Loop
Close #1
ReDim Preserve Tmp1(i - 1)
ReDim Preserve Tmp2(i - 1)
ReDim Preserve Tmp3(i - 1)
List1.Clear
List2.Clear
List3.Clear
For i = 0 To UBound(Tmp1)
List1.AddItem Tmp1(i)
List2.AddItem Tmp2(i)
List3.AddItem Tmp3(i)
Next
End Sub
Private Sub Form_Load()
Command1.Caption = "提取"
End Sub
Function LoveVb$(s$)
Dim i%, j%, m%
For i = 1 To Len(s)
m = Asc(Mid(s, i, 1))
If m < 0 Or m > 255 Then
j = i
m = Asc(Mid(s, j + 1, 1))
If m > 0 And m < 255 Then Exit For
End If
Next
s = Left(s, j) & Fgf & Right(s, Len(s) - j)
For i = Len(s) To 1 Step -1
m = Asc(Mid(s, i, 1))
If m < 0 Or m > 255 Then
j = i
m = Asc(Mid(s, j - 1, 1))
If m > 0 And m < 255 Then Exit For
End If
Next
j = j - 1
LoveVb = Left(s, j) & Fgf & Right(s, Len(s) - j)
End Function
呵呵,我的百度空间..经常关注哟.
官方网站:点击访问青果云官方网站活动方案:—————————–活动规则—————————1、选购活动产品并下单(先不要支付)2、联系我司在线客服修改价格或领取赠送时间3、确认价格已按活动政策修改正确后,支付订单,到此产品开设成功4、本活动产品可以升级,升级所需费用按产品原价计算若发生退款,按资源实际使用情况折算为产品原价再退还剩余余额! 美国洛杉矶CN2_GIACPU内存系统盘流量宽带i...
今天上午有网友在群里聊到是不是有新注册域名的海外域名商家的优惠活动。如果我们并非一定要在国外注册域名的话,最近年中促销期间,国内的服务商优惠力度还是比较大的,以前我们可能较多选择海外域名商家注册域名在于海外商家便宜,如今这几年国内的商家价格也不贵的。比如在前一段时间有分享到几个商家的年中活动:1、DNSPOD域名欢购活动 - 提供域名抢购活动、DNS解析折扣、SSL证书活动2、难得再次关注新网商家...
达州创梦网络怎么样,达州创梦网络公司位于四川省达州市,属于四川本地企业,资质齐全,IDC/ISP均有,从创梦网络这边租的服务器均可以备案,属于一手资源,高防机柜、大带宽、高防IP业务,一手整C IP段,四川电信,一手四川托管服务商,成都优化线路,机柜租用、服务器云服务器租用,适合建站做游戏,不须要在套CDN,全国访问快,直连省骨干,大网封UDP,无视UDP攻击,机房集群高达1.2TB,单机可提供1...
vb数组为你推荐
移动开发移动应用开发具体做什么,不要复制粘贴,说简单点,女生适合吗?网络地址分类A、B、C三类网络地址是如何划分的?请解释的通俗一点。注册电子邮件怎样注册电子邮箱高级工程师证书查询河北省高级工程师职称证书怎么查询真假?网络营销讲师谁能说说哪里有好的互联网营销培训讲师老师?2g内存条电脑里面的2G内存是做什么用的mysql数据库迁移怎样用命令行把MySQL数据库迁移到另一台Linux服务器什么是3g什么是3G网络?2000w数据怎么打开华为手机怎么打开移动数据终端设备电脑终端是什么意思
美国虚拟主机空间 域名服务器 如何注册中文域名 eq2 商务主机 河南服务器 域名转向 新天域互联 空间合租 息壤代理 google台湾 阿里云官方网站 hdsky globalsign ipower 卡巴斯基免费下载 遨游论坛 ssd 海尔t68驱动 次时代主机 更多