Imports System
Public Module Module1
Public Sub Main()
dim 資料, 陣列()as string
dim 筆數 as integer = 0
do
console.Write("請輸入資料:“)
資料 = console.ReadLine()
if 資料 = “” then exit do
redim preserve 陣列(筆數)
陣列(筆數)= 資料
筆數 = 筆數+1
loop
console.WriteLine("您一共輸入了“ & 筆數 & ” 筆資料。“)
console.ReadLine()
End Sub
End Module