1樓:雪海情緣
option base 1
private sub form_click()
dim a() as variant, b() as variant, c() as variant
a = array(2, 8, 7, 6, 4, 28, 70, 25)
b = array(79, 27, 32, 41, 57, 66, 78, 80)
redim c(1 to 8)
for i = 1 to 8
c(i) = a(i) + b(i)
print c(i);
next i
end sub
你開始的定義是動態陣列,在用array時,a和b兩個陣列都從新定義了,但是c陣列沒有定義大小,所以提示跨界!
2樓:
你沒有定義陣列大小啊。
redim a(1 to 8) as variantredim b(1 to 8) as variantredim c(1 to 8) as variant
3樓:匿名使用者
for i = 0 to 7
c(i) = a(i) + b(i)
print c(i);
next i試試
vb編寫一個程式,把上面兩組資料分別讀入兩個1、設有如下兩組資料:
4樓:刀成朝
private sub form_click()dim a, b, c() as double, i as integer
a = array(2, 8, 7, 6, 4, 28, 70, 25)
b = array(79, 27, 32, 41, 57, 66, 78, 80)
redim c(ubound(a))
for i = 0 to ubound(a)c(i) = a(i) + b(i)
print c(i);
next i
end sub
5樓:匿名使用者
dim a(8),b(8),c(8) ,i as integera(0)=2
a(1)=8
a(2)=7
a(3)=6
a(4)=4
a(5)=28
a(6)=70
a(7)=25
b(0)=79
b(1)=27
b(2)=32
b(3)=41
b(4)=57
b(5)=66
b(6)=78
b(7)=80
for i = 0 to 7
c(i)=a(i)+b(i)
next i
求助 vb程式設計題改錯
6樓:慶年工坊
第4行:k=len(s)-1
第13行:k=k-1
vb上機操作題
vb程式設計題改錯
7樓:聽不清啊
next j 這一行的上面少了一行: end if
8樓:匿名使用者
錯誤提示那一行上面加一句 end if
9樓:4573去
少了一個end if
上海初級會計電算化的excel操作題考試的時候是不是在桌面上的?還是在C盤開啟的
這些儲存的東西你都不用擔心,只要會電腦的基本操作和看清考試題目要求的儲存路徑就行了。接下來我就具體介紹一下考試的流程 我上週剛考過,所以比較清楚 考試前10分鐘左右到達考場,你也可以早點過去,在那裡有一間專門為考生準備的休息教室。快開考的時候會有一個工作人員進來,為你提供考試時存包的箱子 就是給你一...
vb程式設計題
dim a as integer dim i,j as integer dim temp as string 全部數字 for i 0 to 3 for j 0 to 3 temp temp a i,j tostring next temp temp chr 10 next richtextbox1...
vb程式設計題
private sub form load form1.caption vb程式 form1.forecolor h0000ff end sub private sub form click print vb程式設計基礎 end sub 如果要求只能用一條語句的話,那就在form click 裡面用...