7,763
社区成员
发帖
与我相关
我的任务
分享d的值为多少?
代码如下：
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Single, d As Double
Dim T As Single
T = Timer
For a = 1 To 10000000
b = b + 1
c = 0
d = d + 0.1
Next
Label1.Caption = Timer - T
Debug.Print d
End Sub
Private Sub Command1_Click()
Dim a As Long, b As Long, c As Single, d As Double
Dim T As Single
T = Timer
For a = 1 To 10000000
b = b + 1
c = 0
d = d + 0.1
Next
Label1.Caption = Timer - T
Debug.Print d
End Sub
...全文
请发表友善的回复…
发表回复
xiamei 2004-07-08
- 打赏
- 举报
我自己当然运行过，只是时间过太久了，我都忘了问的初衷是什么了。
huangjianyou 2004-06-22
- 打赏
- 举报
999999.999838975
自己运行一下不就知道了。
自己运行一下不就知道了。
jinesc 2004-06-22
- 打赏
- 举报
10000000*0.1
xiamei 2004-06-22
- 打赏
- 举报
没人回。自己顶！
