私有子命令1_Click（）
Dim i As Integer，result As String定義了整型變量I和字符串變量result。
對於I = 1到Text1。text step 1‘循環過程開始將I的最小值和最大值限制為1和text1，步長為1。
結果=結果。InputBox（““）彈出InputBox並與前壹個InputBox合並並賦給result。
“下壹個”循環過程完成。
清除剪貼板。
剪貼板。“SetText result”將剪貼板內容設置為結果。
末端接頭
運行程序後，在文本框中輸入要彈出的輸入框的數量。