UC知道新手求教：找三位升序数
来源：百度知道 编辑：UC知道 时间：2024/05/28 21:48:41
编写程序，找出所有三位的升序数。升序数就是，个位数大于十位数，十位数大于百位数，比如123。
刚开始学VB，掌握的语句还比较少，我写的代码如下：
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = i \ 100
b = (i Mod 100) \ 10
c = i Mod 10
If a < b < c Then
Print i
End If
Next i
End Sub
运行得不到我要的结果，但不知道问题出在哪，哪位可以帮我改改，别用太高深的语句，才学VB不久，老师讲过的也就那几个，最好是在原代码上稍加修改
刚开始学VB，掌握的语句还比较少，我写的代码如下：
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = i \ 100
b = (i Mod 100) \ 10
c = i Mod 10
If a < b < c Then
Print i
End If
Next i
End Sub
运行得不到我要的结果，但不知道问题出在哪，哪位可以帮我改改，别用太高深的语句，才学VB不久，老师讲过的也就那几个，最好是在原代码上稍加修改
If a < b and b < c Then
Private Sub Command1_Click()
For i = 100 To 999
'将值字符化
vstr = CStr(i)
'分别从左向右取第一位 第二位 第三位 比较
If Val(Mid$(vstr, 1, 1)) < Val(Mid$(vstr, 2, 1)) And Val(Mid$(vstr, 2, 1)) < Val(Mid$(vstr, 3, 1)) Then
Print i
End If
Next
End Sub
多条件不能用一排过的运行符运行的
要用and 组合条件
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = i \ 100
b = (i Mod 100) \ 10
c = i Mod 10
If a < b And b < c Then'就是这里错了
Print i
End If
Next i
End Sub