建站
咨詢
售后
建站咨詢
新聞中心
vb如何合并兩個一維數(shù)組？
合并數(shù)組沒有簡單辦法，只能一維一維的取出來，放到一新數(shù)組中。新數(shù)組維數(shù)是原兩數(shù)組維數(shù)相加。
在成都網(wǎng)站制作、網(wǎng)站設(shè)計中從網(wǎng)站色彩、結(jié)構(gòu)布局、欄目設(shè)置、關(guān)鍵詞群組等細(xì)微處著手，突出企業(yè)的產(chǎn)品/服務(wù)/品牌，幫助企業(yè)鎖定精準(zhǔn)用戶，提高在線咨詢和轉(zhuǎn)化，使成都網(wǎng)站營銷成為有效果、有回報的無錫營銷推廣。成都創(chuàng)新互聯(lián)公司專業(yè)成都網(wǎng)站建設(shè)十年了，客戶滿意度97.8%，歡迎成都創(chuàng)新互聯(lián)客戶聯(lián)系。
比如兩個數(shù)組 A ,B
dim newAr() '如果兩個數(shù)組類型相同話 ，可以定義類型。
redim newAr(ubound(A)-lbound(A)+1+ubound(B)-lbound(B)+1-1) ‘由于數(shù)組定義只能用常數(shù)表達(dá)式定義維數(shù)，所以用動態(tài)數(shù)組。
把兩數(shù)組項(xiàng)目添加到newAr 中
dim Index as integer
dim i as integer
for i=LBound(A) to UBound(A)
newAr(Index)=A(i)
Index=Index+1
next
for i=LBound(B) to UBound(B)
newAr(Index)=B(i)
Index=Index+1
next
VB 怎樣加將兩個數(shù)組合并
Private Sub Command1_Click()
a = Array(1, 2, 4, 7, 9, 34, 65, 73, 78, 99, 234, 1234)
b = Array(0, 23, 33, 56, 78, 98, 99, 234, 1000, 9999)
Dim c(30)
i = 0
j = 0
k = 0
While i = UBound(a) And j = UBound(b)
If a(i) b(j) Then
c(k) = a(i)
i = i + 1
Else
c(k) = b(j)
j = j + 1
End If
k = k + 1
Wend
While i UBound(a)
c(k) = a(i)
i = i + 1: k = k + 1
Wend
While j UBound(b)
c(k) = b(j)
j = j + 1: k = k + 1
Wend
Print "原A數(shù)組："
For i = 0 To UBound(a)
Print a(i);
Next i
Print "原B數(shù)組："
For i = 0 To UBound(b)
Print b(i);
Next i
Print "合并后的c數(shù)組："
For i = 0 To k
Print c(i);
If i Mod 15 = 14 Then Print
Next i
End Sub
VB怎么把兩個數(shù)組合并
1. VB 怎樣加將兩個數(shù)組合并
你的問題 首先沒有定義全局變量，
你開始說你要把數(shù)組1,2合并到1里不是多此一舉，，開始全部寫到1里不就完了，
后來好了 把數(shù)組1,2 合并到另一個數(shù)組，，這個是可行的，，
越界，，，加了個全局變量就可以了，，
代碼在下面，，測試可行
Dim shuzu2(), shuzu1(), m, n As Double
Private Sub mand1_Click()
n = InputBox（""， "輸入數(shù)組1個數(shù)"）
ReDim shuzu1(1 To n)
For I = 1 To Val(n)
A = InputBox（""， "請輸入數(shù)字"）
shuzu1(I) = A
Text2 = Text2 shuzu1(I) ","
Next I
'數(shù)組2的輸入
m = InputBox（""， "輸入數(shù)組2個數(shù)"）
ReDim shuzu2(1 To m)
For I = 1 To Val(m)
A = InputBox（""， "請輸入數(shù)字"）
shuzu2(I) = A
Text1 = Text1 shuzu2(I) ","
Next I
End Sub
'將數(shù)組2合并到數(shù)組1
Private Sub mand3_Click()
ReDim HEBING(1 To m + n) As Integer
For I = 1 To n
HEBING(I) = shuzu1(I)
Text3 = Text3 HEBING(I)
Next I
For I = n + 1 To m + n
HEBING(I) = shuzu2(I - n) '在這里總說下標(biāo)越界。
Text3 = Text3 HEBING(I)
Next I
End Sub
2. VB 怎樣加將兩個數(shù)組合并
Private Sub mand1_Click() a = Array(1, 2, 4, 7, 9, 34, 65, 73, 78, 99, 234, 1234) b = Array(0, 23, 33, 56, 78, 98, 99, 234, 1000, 9999) Dim c(30) i = 0 j = 0 k = 0 While i = UBound(a) And j = UBound(b) If a(i) b(j) Then c(k) = a(i) i = i + 1 Else c(k) = b(j) j = j + 1 End If k = k + 1 Wend While i UBound(a) c(k) = a(i) i = i + 1: k = k + 1 Wend While j UBound(b) c(k) = b(j) j = j + 1: k = k + 1 Wend Print "原A數(shù)組e79fa5e98193e58685e5aeb931333337623437:" For i = 0 To UBound(a) Print a(i); Next i Print Print "原B數(shù)組：" For i = 0 To UBound(b) Print b(i); Next i Print Print "合并后的c數(shù)組：" For i = 0 To k Print c(i); If i Mod 15 = 14 Then Print Next i Print End Sub 。
3. 怎樣把兩個數(shù)組合并為一個
Private Sub mand1_Click()
Dim a(1 To 10), b(1 To 10), c(1 To 20)
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 100)
b(i) = Int(Rnd * 100)
Next i
For i = 1 To 9
For j = 10 To i + 1 Step -1
If a(i) a(j) Then d = a(i): a(i) = a(j): a(j) = d
If b(i) b(j) Then d = b(i): b(i) = b(j): b(j) = d
Next j, i
For i = 1 To 10
Print a(i);
Next i
For i = 1 To 10
Print b(i);
Next i
'下面就是合并過程
j = 1
For i = 1 To 10
Do
If a(i) k = k + 1
c(k) = a(i)
Exit Do
Else
k = k + 1
c(k) = b(j)
j = j + 1
If j 10 Then Exit For
End If
Loop
Next i
If i For n = i To 10
k = k + 1
c(k) = a(n)
Next n
End If
If j For n = j To 10
k = k + 1
c(k) = b(n)
Next n
End If
'合并結(jié)束
For i = 1 To 20
Print c(i);
Next i
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
End Sub
4. 怎么兩個數(shù)組合并一組數(shù),由大到小排列 vb
定義第三個數(shù)組，先把其中一個數(shù)組寫到第三個中，再把第二個數(shù)組添加到第三個尾部，再對第三個數(shù)組排序。
如：
Private Sub mand3_Click()
Dim a(1 To 5), b(1 To 6), c(1 To 11), i, j As Integer
For i = 1 To 5
a(i) = i
Print a(i);
Next
For i = 1 To 6
b(i) = i + 6
Print b(i);
Next
For i = 1 To 5
c(i) = a(i)
Next
For i = 1 To 6
c(i + 5) = b(i)
Next
For i = 1 To 11
Print c(i);
Next
End Sub
5. 用vb實(shí)現(xiàn)兩個數(shù)相加的問題
Private Sub mand3_Click()
Text1.Text = mand1.Caption mand3.Caption mand2.Caption "="
End Sub
Private Sub mand4_Click()
Text1.Text = mand1.Caption mand3.Caption mand2.Caption "=" CStr(Val(mand1.Caption) + Val(mand2.Caption))
End Sub
Private Sub Form_Load()
mand1.Caption = "1"
mand2.Caption = "2"
mand3.Caption = "+"
mand4.Caption = "="
End Sub
文章標(biāo)題：vb.net數(shù)組合并 vbnet 數(shù)組
當(dāng)前網(wǎng)址：http://www.ef60e0e.cn/article/ddccecj.html
