VB软件 For Nextt语句问题

[复制链接]
查看11 | 回复3 | 2012-10-6 14:20:08 | 显示全部楼层 |阅读模式
'告诉你一件事,"垂询"这个词是不能这样用的.垂询用于长辈对晚辈或上级对下级的询问.所以在请教别人问题时这样说是不礼貌的.请看代码:dim height as integer, jumptimes as integer,s as double,lastheight as doubleheight = 100 '下落高度jumptimes = 10 '指反弹次数s = 0 '在反弹完成瞬间走过的路程lastheight = 0 '最后一次反弹的高度for i = 0 to jumptimes s=s + 2 * height / 2 ^ i '(之所以乘二是因为要上去再下来走了两遍一样的路程.), 符号"^"表示乘...
回复

使用道具 举报

千问 | 2012-10-6 14:20:08 | 显示全部楼层
思路&代码如下:dim a as double,b as double'变量为双精度。a = 100
'起始高度为100for i = 1 to10
'循环十次
a = a / 2
'第i次弹起的高度为上一次高度a的1/2。...
回复

使用道具 举报

千问 | 2012-10-6 14:20:08 | 显示全部楼层
Dim startHeight As DoublestartHeight = 100Dim jump As IntegerFor jump = 1 To 10
Print "The ball drop down from :" & startHeight & " m;"
startHeight = startHeight * 0....
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行