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