Dim S As String()
網(wǎng)站設(shè)計(jì)制作過(guò)程拒絕使用模板建站;使用PHP+MYSQL原生開(kāi)發(fā)可交付網(wǎng)站源代碼;符合網(wǎng)站優(yōu)化排名的后臺(tái)管理系統(tǒng);成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)收費(fèi)合理;免費(fèi)進(jìn)行網(wǎng)站備案等企業(yè)網(wǎng)站建設(shè)一條龍服務(wù).我們是一家持續(xù)穩(wěn)定運(yùn)營(yíng)了10余年的成都創(chuàng)新互聯(lián)公司網(wǎng)站建設(shè)公司。
Dim j As Integer = 9
ReDim S(j)
For i = 0 To j
S(i) = i
Next
注: 指定數(shù)組上限才能對(duì)其賦值
你的數(shù)組引用n在哪里更改的呢?
更改之前要判斷一下是否超了界,
if nubound(music) then n=ubound(music)'如果走出范圍,取最大范圍
還有
Dim n As Integer = 100直接定義維數(shù),還是建議用動(dòng)態(tài)數(shù)組
i、j兩個(gè)變量在for循環(huán)結(jié)束后數(shù)值都是6,
所以你的a(i,j)=a(6,6),但是你定義是Dim a%(5, 5),所以才會(huì)提醒“索引超出了數(shù)組界限”的。
沒(méi)看明白你的TextBox1.text是來(lái)顯示什么的?
如果用來(lái)顯示a(5,5)的直接寫(xiě)TextBox1.Text = a(5, 5)就可以了呀
F(X)數(shù)據(jù)定義有問(wèn)題。X此時(shí)為0。
解決方法:使用動(dòng)態(tài)數(shù)組。
Dim F0, F1, F2, F3, F4, F() As Double 'F為動(dòng)態(tài)數(shù)組
x = Val(TextBox2.Text)
REDIM F(x) '重新定義