私有子命令1_Click（）
暗淡排列（100）
對於i = 0到99
使不規則化
arr（I）= Int（Rnd * 90）+10
如果我模5 = 0，那麽
打印
如果…就會結束
打印arr（I），
然後
打印
將X設為整數
x = Val（InputBox（“請輸入壹個介於1和100之間的整數“）。
如果X = 0，則退出Sub
將j標註為整數
j = 0
刪除後打印“是:”
對於i = 0到99
if arr（I）& lt；& gt那麽x
如果j Mod 5 = 0，則
打印
如果…就會結束
打印arr（I），
j = j + 1
如果…就會結束
然後
打印
末端接頭