VBS 多少刀最多切西瓜多少块问题

追影

1. aa = Inputbox("请输入切西瓜多少刀")
   
2. how_num = Clng(aa)
   
3. if how_num <=0 then
   
4. msgbox "请输入大于0的数"
   
5. else
   
6. total_num = 4
   
7. '1 2 4 7 11 16 22 29
   
8. '0 1 2 3 4   5 6 7
   
9. if how_num = 1 then
   
10. total_num=2
    
11. elseif how_num = 2 then
    
12. total_num = 4
    
13. else
    
14. start = 3
    
15. for i = 3 to how_num
    
16.   total_num = total_num  +   start + i - 3
    
17. next
    
18. end if
    
19. msgbox "总共最多分成块数:" & total_num
    
20. end if

复制代码