5. 火柴游戏：有n根火柴第1次取1根，第2次取2根第i次取i根，当剩余火柴数为0时不用添加火柴（即k=0），游戏结束如果剩余火柴数不为0，但不够下一次取此时添加k（k≥1）根火柴，在剩余火柴中再从1根开始取直到能取完为止，求k的最小值

例如：n=3时，第1次取1根第2次取2根，此时正好取完无须添加火柴，k=0；

例如：n=8时第1次取1根，第2次取2根第3次取3根，第4次要取4根但剩余2根不够取。则加上1根剩余3根，再从1根开始取即第4次取1根，第5次取2根剩余火柴为0，游戏结束得k=1。

又如：n=4时第1次取1根，第2次取2根第3次不够取，若加上1根剩余2根，再从1根开始取第3次取1根，剩余1根鈈够第4次取再加1根，又是剩余2根显然加1根永远不可能取完。所以改用每次加2根第1次取1根，第2次取2根第3次不够取，添加2根第3次取1根，第4次取2根恰好能取完，得k=2

编写一个VB程序可实现上述功能：在文本框Text1中输入火柴数量，单击“计算”按钮在文本框Text2中显示最少添加数量，程序运行界面如下图所示：

实现上述功能的程序代码如下：