私有子命令1_Click（）
將k設為整數
k = Val（text 1。文字）
對於i = 1到6
如果k & lt那麽是我
出口到
如果…就會結束
接下來我
對於j = 6至I步長-1
a（j+1）= a（j）
下壹個j
a（I）= k
For i = 1到7
打印a（壹）；
接下來我
打印
末端接頭
私有子命令2_Click（）
Dim k1為整數
k 1 = Val（text 1。文字）
For i = 1到7
如果k 1 = a（I），則退出
接下來我
對於j = i + 1到7
a（j-1）= a（j）
下壹個j
對於i = 1到6
打印a（壹）；
接下來我
末端接頭
私有子命令3_Click（）
ReDim a（1到7）為整數
對於i = 1到6
a（I）= Int（Rnd * 101）
接下來我
對於i = 6到2步長-1
對於j = 1至i - 1
如果a（j）》1；a（j+1）然後
t = a（j）
a（j）= a（j+1）
a（j+1）= t
如果…就會結束
下壹個j
接下來我
對於i = 1到6
打印a（壹）；
接下來我
打印
末端接頭
私有子窗體_Load（）
標簽1。Caption =“請輸入要刪除或插入的號碼“
Text1 =““
命令1。Caption =“插入“
命令2。Caption =“刪除“
命令3。Caption =“生成隨機序數“
末端接頭