回复:使数字不胜逐渐上升的按钮

花O花

  • 帖子

    417
  • 精华

    0
  • 被关注

    37

论坛等级:侠圣

注册时间:2010-05-23

普通 普通 如何晋级?

发布于 2016-10-25 16:21:47

14楼

用VB

Dim xx, xxx

xx = 0

xxx = 0

For xx = 1 To 500000

xxx = xxx + 1

Next xx

If xxx < 5000 Or xxx < 0 Then

md = md + 1

end if

If xxx > 5000 Or xxx < 10000 Then

md = md + 10

End If

If xxx > 10000 Then

md = md + 100

End If


不退 不降 不悔
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-300/400

共有54706条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。