7,762
社区成员
发帖
与我相关
我的任务
分享VB真破！！！！！！！！！！！！！！！！！！！！
DIM D1 AS DOUBLE
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE D1<>D2
D1=D1+0.001
LOOP
//死循环！！！！！！！！！！怎么回事！！！！！！！！！我要状告MICROSOFT!!!!!!!!!!!!!!!!!!!
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE D1<>D2
D1=D1+0.001
LOOP
//死循环！！！！！！！！！！怎么回事！！！！！！！！！我要状告MICROSOFT!!!!!!!!!!!!!!!!!!!
...全文
请发表友善的回复…
发表回复
maskzha 2004-02-03
- 打赏
- 举报
VB不行，就用.NET
davidlv 2004-02-03
- 打赏
- 举报
是浮点数比较出了问题，这样写吧，无可耐何的办法，我也是这样
DIM D1 AS DOUBLE
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE D1<>D2
val(str(D1)=val(stri(D1+0.001))
LOOP
DIM D1 AS DOUBLE
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE D1<>D2
val(str(D1)=val(stri(D1+0.001))
LOOP
pigpag 2004-02-03
- 打赏
- 举报
那个显然，因为可显示位数和存储位数是不同的，后者大一些
javateacher 2004-02-03
- 打赏
- 举报
Private Sub Form_Load()
Dim D1 As Double
Dim D2 As Double
Dim i As Integer
i = 0
D1 = 8
D2 = 8.008
Do While cstr(D1) <> cstr(D2)
D1 = D1 + 0.001
i = i + 1
Loop
MsgBox "run " & i & " times"
end sub
也可以！！！为什么？？
Dim D1 As Double
Dim D2 As Double
Dim i As Integer
i = 0
D1 = 8
D2 = 8.008
Do While cstr(D1) <> cstr(D2)
D1 = D1 + 0.001
i = i + 1
Loop
MsgBox "run " & i & " times"
end sub
也可以！！！为什么？？
danielpan 2004-02-03
- 打赏
- 举报
谁说的,只是你不够了解.
没作过移植的就不知道java有多可爱.
没作过移植的就不知道java有多可爱.
thriller 2004-02-03
- 打赏
- 举报
java更破。
danielpan 2004-02-03
- 打赏
- 举报
绝对不是vb破,vb也绝对不破.
不信你用vc这么做试试看,你一样叫破的.
不信你用vc这么做试试看,你一样叫破的.
yxwei 2004-01-28
- 打赏
- 举报
up
leeyun 2004-01-28
- 打赏
- 举报
验证：
Private Sub Form_Load()
Dim D1 As Double
Dim D2 As Double
Dim i As Integer
i = 0
D1 = 8
D2 = 8.008
Do While Val(D1) <> Val(D2)
D1 = D1 + 0.001
i = i + 1
Loop
MsgBox "run " & i & " times"
end sub
高，实在是高！
Private Sub Form_Load()
Dim D1 As Double
Dim D2 As Double
Dim i As Integer
i = 0
D1 = 8
D2 = 8.008
Do While Val(D1) <> Val(D2)
D1 = D1 + 0.001
i = i + 1
Loop
MsgBox "run " & i & " times"
end sub
高，实在是高！
leeyun 2004-01-28
- 打赏
- 举报
skyyiyang(伊扬) ( ) 信誉：100
DIM D1 AS DOUBLE
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE val(D1)<>val(D2)
D1=D1+0.001
LOOP
高，实在是高！
DIM D1 AS DOUBLE
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE val(D1)<>val(D2)
D1=D1+0.001
LOOP
高，实在是高！
liulu07 2004-01-28
- 打赏
- 举报
使用Currency 类型就可以了
renminribao 2004-01-28
- 打赏
- 举报
up
kmzs 2004-01-27
- 打赏
- 举报
呀呀。。。讨厌。。。C里难道不是循环。。。
zcm123 2004-01-27
- 打赏
- 举报
.......
kxyzjm 2004-01-27
- 打赏
- 举报
Private Sub Command1_Click()
Dim D1 As Currency
Dim D2 As Currency
D1 = 8
D2 = 8.008
Do While D1 <> D2
D1 = D1 + 0.001
Loop
Print "完成"
End Sub
这样试试
Dim D1 As Currency
Dim D2 As Currency
D1 = 8
D2 = 8.008
Do While D1 <> D2
D1 = D1 + 0.001
Loop
Print "完成"
End Sub
这样试试
hainer 2004-01-27
- 打赏
- 举报
VB还可以，把一门语言学精，什么都可以做
Didizyp 2004-01-27
- 打赏
- 举报
原来还有这种事！
skyyiyang 2004-01-27
- 打赏
- 举报
DIM D1 AS DOUBLE
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE val(D1)<>val(D2)
D1=D1+0.001
LOOP
如果你這樣加一個val()轉一下就OK了
DIM D2 AS DOUBLE
D1= 8
D2=8.008
DO WHILE val(D1)<>val(D2)
D1=D1+0.001
LOOP
如果你這樣加一個val()轉一下就OK了
whj668 2004-01-26
- 打赏
- 举报
真头疼阿！~~~~~~~~~~~~~~~
pigpag 2004-01-26
- 打赏
- 举报
我就遇到这个问题，现在没办法，只能这样了
if (degree==90)
throw(new ArgumentException);
if (degree==90)
throw(new ArgumentException);
加载更多回复（26）
