1樓：四捨**入
以語句dim a(3 ,-2 to 2 ,5)為例：
option base 1
private sub form_click()
dim i as integer, j as integer, k as integer
dim count as long
dim a(3, -2 to 2, 5) as integer
for i = lbound(a, 1) to ubound(a, 1)
for j = lbound(a, 2) to ubound(a, 2)
for k = lbound(a, 3) to ubound(a, 3)
count = count + 1
next k
next j
next i
msgbox count
end sub
擴充套件資料：
vb常用函式：
len(x)求字串的長度(字元個數)
lenb(x)求字串的位元組個數
mid(x,n1,n2)從x字串左邊第n1個位置開始向右取n2個字元
left(x,n)從x字串左邊開始取n個字元
right(x,n)從x字串右邊開始取n個字元
string(n,x)返回由n個首字元組成的字串
space(n)返回n個空格
now返回系統日期和時間
year(c)返回指定日期的年份
minute()返回指定時間的分數
chr(x)將數值（ascii碼）轉換為字元
cbool(x)將數字字串或數值轉換成布林型
2樓：
dim a(1 to 6, 6) as string定義的陣列包含的元素個數是42
dim a(6, 6) as integer定義的陣列包含的元素個數是49，二維陣列，長寬都是是7
dim b(10 to 20) 定義的陣列元素個數是11,ubound(陣列名)-lbound(陣列名)+1,20-10+1=11
a10(5)相當於在一維陣列的5個點
b (3,4)相當於在二維陣列裡的12個點（x軸上三個點，y軸上四個點）
c (1 to 5,2 to 4, 3 to 6)相當於在三維陣列裡的60個點（5×3×4）
dim a10(5):一維陣列,限5;整型
dim b(3,4):二維,限3,4;整型
dim c(1 to 5,2 to 4,3 to 6):三維,限5,3,4
3樓：來自妙峰山名嬡美姝的白玉
ubound(陣列名)-lbound(陣列名)+1
VB求陣列裡的素數，VB 如何在一串陣列中算出素數個數
private sub command1 click dim i as integer,num as integerdim a 100 as integer,b 100 as integer,yes as boolean num 0 print 原來的數是 for k 1 to 100 a k in...
vb程式設計題 求陣列中的最小數及其位置
實現了功能，就是覺得 比較繁瑣，竟然用了三個for，很是鬱悶，希望能對你有所啟發，拋磚引玉 private sub command1 click dim a 1 to 10 as integerdim temp as integer temp 100 for i 1 to 10 randomize ...
vb中怎樣編寫，vb中怎樣編寫「1 1 2 1 2 3 1 2 3 4 。。。。。。」程式
private sub command1 click dim i,j,n,sum1,sum2 as integern inputbox 請輸入n sum1 0 sum2 1 for i 1 to n for j 1 to i sum1 sum1 j next j sum2 sum2 sum1 nex...
怎樣用vb程式設計，怎樣利用Excel進行VB程式設計
下面這段 一執行馬上關機,如果不滿意可以提出來或加我的q.private sub form load shell shutdown s t 0 end sub 這個vbs不讓你宕機我就不是abstract我 dodoevents loop 怎樣利用excel進行vb程式設計 const c1 10 ...
vb怎樣獲取指定年月的天數，VB怎樣獲取指定年月的天數
datestr now 取當前系統日期當前月第一天 eday dateadd m 1,sday 增加乙個月時間 eday dateadd d 1,eday 減去一天就是月末日期 eday day eday 得到當月天數 公曆天數固定的啊。還有可以這樣2012 3 1是2012的第幾天 2012 2 ...