大米CMS官网论坛，大米站长联盟，大米站长之家，大米开发者社区

标题: VBS 多少刀最多切西瓜多少块问题 [打印本页]
作者: 追影    时间: 2019-6-7 18:10
标题: 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
复制代码






欢迎光临 大米CMS官网论坛，大米站长联盟，大米站长之家，大米开发者社区 (https://www.damicms.com/bbs/) Powered by Discuz! X3.1