1樓：南瓜蘋果
**如下：
private sub ***mand1_click()dim a(1 to 6, 1 to 6) as integerfor i = 1 to 5
for j = 1 to 5
tmp = 99
if i < tmp then
tmp = i
end if
if j < tmp then
tmp = j
end if
if 6 - i < tmp then
tmp = 6 - i
end if
if 6 - j < tmp then
tmp = 6 - j
end if
a(i, j) = tmp
next j
next i
for i = 1 to 5
for j = 1 to 5
picture1.print tab(j * 5); a(i, j);
next j
picture1.print
next i
end sub1
擴充套件資料陣列，是有序的元素序列。若將有限個型別相同的變數的集合命名，那麼這個名稱為陣列名。組成陣列的各個變數稱為陣列的分量，也稱為陣列的元素，有時也稱為下標變數。
用於區分陣列的各個元素的數字編號稱為下標。
陣列是在程式設計中，為了處理方便， 把具有相同型別的若干元素按無序的形式組織起來的一種形式。這些無序排列的同類資料元素的集合稱為陣列。
2樓：匿名使用者
dim a(25) as arr?? （記不清楚了，自己查一下，這裡是定義一個陣列）
dim i,j as intger
for i= 0 to 24
a(i)=i+1
next
for i = 1 to 5
for j= 1 to i
print a((i -1) * 5 + j-1)print " "
next j
print vbcrlf
next i
3樓：聽不清啊
所要求的程式如下，請採納：
private sub ***mand1_click()dim a(5, 5) as integerfor i = 1 to 5
for j = 1 to 5
a(i, j) = (i - 1) * 5 + jif j <= i then print a(i, j);
next j
next i
end sub
從1到300的自然數中完全不含3的數有多少
1全部1到300有300個自然數 個位數為3的情況 1到10有一個數字3,10到20有一個帶3的數字13 即每10個數字會有一個數字個位數為3.從1到300總共有300 10 30組，因此就有30個數字個位數為3.十位數為3的情況 30 31.39 有10個數字 130 131.139 有10個數字...
從1到100的這自然數的乘積的末尾有多少個連續的
就是5這個因子出現的個數。2因子足夠多 5 10 15 20 30 35 40 45 55 60 65 70 80 85 90 90每個 回數都有一答個5因子，共16個。25 50 75 100每個數由二個5因子，共2 4 8個。所以，末尾0的個數是24個。就是5這個bai因子出現的個du 數。2因...
1到10的自然數中，任意，有不能算出24點的嗎？？急
根據 1 1 2 1 2 1 3 1 3 1 4 1 4 1 5 1 5 1 6 1 6 1 7 1 7 1 8 1 8 1 9 1 9 1 10 1 1 10 所以 1 1 2 1 6 1 12 1 20 1 30 1 42 1 56 1 72 1 90 1 10 所以十個數是 2。6。10。12...