一段代码,就不具体写了,
定义一个数组好比a(1 to 3),三个元素分别是2,5,9,
下面是代码的一部分
myubound = ubound(a)
mylbound = lbound(a)
centernum = (myubound + mylbound) \ 2 '这里centernum = 5
接着又出现了 a(centernum),我就晕了,这不是数组越界了么,请高手指点(代码是从正版教材上抄的)
定义一个数组好比a(1 to 3),三个元素分别是2,5,9,
下面是代码的一部分
myubound = ubound(a)
mylbound = lbound(a)
centernum = (myubound + mylbound) \ 2 '这里centernum = 5
接着又出现了 a(centernum),我就晕了,这不是数组越界了么,请高手指点(代码是从正版教材上抄的)
解决方案 »
- 我用trim(text1.text)向提交sql server数据,插入的字段后面多一个空格
- 高手帮帮忙!vb联access数据库的问题,很简单的,在线等待,急求帮助!
- 请教VB连接远程SQL SERVER的密码安全问题
- 大家帮着想想呀
- 为什么连接带密码的数据库时,会提示“工作组信息文件丢失,或被其他用户用独占方式打开”?
- SUM的返回直????
- 我有一个GIF的透明图版,透明区域是不规则的,请问怎么把它显示出来呢?我只想显示一个GIF,不想有其它任何东西
- 关于 无边框窗体(BorderStyle=0)?
- 一个准女程序员遇到的最后的问题。
- vb中使用windows98的dll问题
- 通过以太网连接,如何利用VB时实显示工业相机抓拍的图片?
- 如何可以将成绩表(总分)按学号填入学生表(总分)?
myubound =3
mylbound =1
centernum = (1+3)\2 =2a(centernum)= 5那个centernum = 5的注释是错误的。
myubound = ubound(a) '取数组上界 myubound =3
mylbound = lbound(a) '取数组下届 mylbound =1
centernum = (myubound + mylbound) \ 2 '这里centernum = 2
a(centernum)=5 ’a(2)=5
Dim a(1 To 3) As Long
Dim myubound As Long, mylbound As Long, centernum As Long
a(1) = 2: a(2) = 5: a(3) = 9
myubound = UBound(a)
mylbound = LBound(a)
centernum = (myubound + mylbound) \ 2 '这里centernum = 5
Debug.Print myubound, mylbound, centernum '结果为3,1,2
End Sub