十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供鄒城網(wǎng)站建設(shè)、鄒城做網(wǎng)站、鄒城網(wǎng)站設(shè)計(jì)、鄒城網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、鄒城企業(yè)網(wǎng)站模板建站服務(wù),10年鄒城做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
Dim a(15) As Integer
Dim i As Integer
Dim tmpStr As String
Randomize()
For i = 0 To a.Length - 1
a(i) = Int(100 * Rnd() + 1)
Next
TextBox1.Text = ""
tmpStr = ""
For i = 0 To a.Length - 1
tmpStr = tmpStr a(i) " "
'在Textbox中每行顯示5個(gè)
If (i + 1) Mod 5 = 0 Then
TextBox1.AppendText(tmpStr vbCrLf)
tmpStr = ""
End If
Next
End Sub
1、點(diǎn)擊VS工具。
2、打開(kāi)后,新建一個(gè)Windows窗體應(yīng)用程序。
3、新建完畢后,如圖所示。
4、拖動(dòng)一個(gè)按鈕。
5、定義數(shù)組最常見(jiàn)的方法,如圖示。
6、運(yùn)行后,點(diǎn)擊按鈕,彈出提示正常。
7、定義數(shù)組第二種方法,屬于動(dòng)態(tài)的方法。
8、運(yùn)行后,點(diǎn)擊按鈕,數(shù)組成功輸出。
Dim TestItem() As String = New String() {"Pickle", "Pineapple", "Papaya"} '創(chuàng)建數(shù)組 并賦值
Dim TestShoppingList As String = Join(TestItem, " = ") 'Join 就是字符聯(lián)接函數(shù) 后面的 =號(hào) 可選 為空值就把所有的字符串在一起 本例用=號(hào) 就是把 所有數(shù)組的值用 =號(hào)聯(lián)接起來(lái)
MsgBox(TestShoppingList) '顯示結(jié)果值
'這例子 就一個(gè)函數(shù)可以解決 就不發(fā)圖片了
希望能幫到你 你慢慢研究吧 有問(wèn)題可以找我
看到的 愛(ài)好者 多頂我一下 謝謝呵呵
一: 利用錯(cuò)誤捕獲功能判斷
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "數(shù)組不為空"
End If
Exit Sub
z:
MsgBox "數(shù)組空"
End Sub
二、 Join方法:
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "為空"
Else
MsgBox "不為空"
End If
End Sub
是這么定義的:
數(shù)組中的第一個(gè)元素的下標(biāo)稱為下界,最后一個(gè)元素的下標(biāo)稱為上界,其余的元素連續(xù)地分布在上下界之間,且數(shù)組在內(nèi)存中也是用連續(xù)的區(qū)域來(lái)存儲(chǔ)的,所以數(shù)組每維的長(zhǎng)度不能超過(guò)Long數(shù)據(jù)類型的最大值,即264—1=263。
把VB.NET數(shù)組當(dāng)作一個(gè)對(duì)象來(lái)處理,就意味著數(shù)組類型是單個(gè)引用類型,數(shù)組變量包括指向構(gòu)成數(shù)組元素、數(shù)組維和數(shù)組長(zhǎng)度等數(shù)據(jù)的指針,數(shù)組之間互相賦值但僅僅是在相互復(fù)制指針,數(shù)組繼承了System名字空間的Array類。
VB.NET中的數(shù)組有兩種類型:定長(zhǎng)數(shù)組和動(dòng)態(tài)數(shù)組。
擴(kuò)展資料:
1、數(shù)組的使用
在’VB 6.0中,能夠用For Each來(lái)循環(huán)遍歷一個(gè)數(shù)組。
比如:
Dim?x?As?Integer
F0r?Each?x?In?arrayl
Console.WriteLine(x)
Next?
2、在VB.NET中能夠使用For循環(huán)和數(shù)組長(zhǎng)度來(lái)遍歷一個(gè)數(shù)組。
比如:
Dim?i?As工nteger? ?
F0r?i=0?T0??(arrayl.Length-1)
(此處空一行)
Console.WriteLine(arrayl(1)J
Next?i
剛剛在VS2012上將你的代碼試了一下:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim arr(4) As String
arr(0) = "a"
arr(1) = "b"
arr(2) = "c"
arr(3) = "d"
Dim i As Integer
For i = 0 To 3
Debug.WriteLine(arr(i))
Next
End Sub
顯示:
a
b
c
d
正常運(yùn)行,沒(méi)有報(bào)錯(cuò)。