VB學習心得3.陣列

摘要:VB學習心得3.陣列

參考書目:VB2008程式設計學習教本

7-33頁

 

Array的vb寫法為Dim var() AS 變數
3.請撰寫一支程式,將列舉如下的6個字串,儲存至陣列strArray
(Visual,Basic,C#,NET,Framework,ASP.NET)
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strArray() As String = {"Visual", "Basic", "C#", "NET", "Framework", "ASP.NET"}
    End Sub
End Class
8.撰寫一支程式,用For Each迴圈將值取出,合併成單一字串,並用,分隔,輸出於畫面上
Dim myArray(3) AS string
myArray(0) = "Visual"
myArray(1) = "Basic"
myArray(2) = "ASP.NET"
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String
        Dim myArray(2) As String
        myArray(0) = "Visual"
        myArray(1) = "Basic"
        myArray(2) = "ASP.NET"
        For Each msg In myArray
            message += msg + ","
        Next
        label1.Text = message

    End Sub

9.承上題,改由for迴圈透過索引值取出陣列的值

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String
        Dim myArray(2) As String
        myArray(0) = "Visual"
        myArray(1) = "Basic"
        myArray(2) = "ASP.NET"
        Dim i As Integer
        For i = 0 To 2
            message += myArray(i) + ","
        Next
        label1.Text = message

    End Sub

 

10.設計一個範例,讓使用者能輸入指定的陣列長度,重新定義陣列
Public Class Form1
    Dim newArray(0) As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intlenth As Integer
        intlenth = CInt(TextBox1.Text)

        ReDim newArray(intlenth)
        label1.Text = "陣列長度:" + CStr(newArray.Length)
    End Sub
End Class
16.下表9個數字,請宣告3x3的二維陣列,儲存值
7,8,9
4,5,6
1,2,3
Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim newArray(2, 2) As Integer
        newArray(0, 0) = 7
        newArray(0, 1) = 8
        newArray(0, 2) = 9
        newArray(1, 0) = 4
        newArray(1, 1) = 5
        newArray(1, 2) = 6
        newArray(2, 0) = 1
        newArray(2, 1) = 2
        newArray(2, 2) = 3
    End Sub
End Class
 
17.承上題,用巢狀式迴圈取出值
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String
        Dim newArray(2, 2) As Integer
        newArray(0, 0) = 7
        newArray(0, 1) = 8
        newArray(0, 2) = 9
        newArray(1, 0) = 4
        newArray(1, 1) = 5
        newArray(1, 2) = 6
        newArray(2, 0) = 1
        newArray(2, 1) = 2
        newArray(2, 2) = 3
        For i As Integer = 0 To 2
            For j As Integer = 0 To 2
                message += CStr(newArray(i, j)) + " "
            Next
            message += vbCrLf
        Next
        label1.Text = message
    End Sub
End Class
 
19.將以下的字串,轉換成對應的字元陣列並逐行輸出
HELLO,VISUAL BASIC
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As String = "Hello,VISUAL BASIC"
        Dim cString As String
        Dim charArray() As Char = message.ToCharArray

        For Each c In charArray
            cString += (c + vbCrLf)
        Next
        label1.Text = cString
    End Sub
End Class