UC知道请问这段VB代码问题出在哪？急急急！
来源：百度知道 编辑：UC知道 时间：2024/05/31 12:10:16
我写了这段代码：
Dim count
For count = 1 To 10
Select Case count < 100
Case 1 < count < 10
Print "00" & Trim(Str(count))
Case 9 < count < 100
Print "0" & Trim(Str(count))
End Select
Next count
我期望的输出结果是：
001
002
003
004
005
006
007
008
009
010
但是这段代码给我的结果却是：
001
002
003
004
005
006
007
008
009
0010
请问问题出在哪里？感谢啊！
Dim count
For count = 1 To 10
Select Case count < 100
Case 1 < count < 10
Print "00" & Trim(Str(count))
Case 9 < count < 100
Print "0" & Trim(Str(count))
End Select
Next count
我期望的输出结果是：
001
002
003
004
005
006
007
008
009
010
但是这段代码给我的结果却是：
001
002
003
004
005
006
007
008
009
0010
请问问题出在哪里？感谢啊！
Private Sub Command1_Click()
Dim count As Integer
For count = 1 To 10
Print Format(count, "000")
Next
End Sub
输出结果：
001
002
003
004
005
006
007
008
009
010
Dim count
For count = 1 To 10
Select Case count
Case 1 To 9
Print "00" & Trim(Str(count))
Case 10 To 100
Print "0" & Trim(Str(count))
End Select
Next count