摘要: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