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

 找回密码
 注册大米会员

QQ登录

只需一步,快速开始

查看: 73|回复: 0

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

[复制链接]

362

主题

626

帖子

4981

积分

超级版主

Rank: 8Rank: 8

积分
4981

授权用户

发表于 2019-6-7 18:10:18 | 显示全部楼层 |阅读模式
  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
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册大米会员

本版积分规则

QQ|小黑屋|大米CMS社区 ( 蜀ICP备11002200号-2广告联系:广告联系 

Powered by 大米CMS

© 2010-2020 大米CMS Inc.

快速回复 返回顶部 返回列表