图2
图3
Private Sub Command1_Click()
Dim s As Integer, n As Integer
Dim a As Integer 'a表示百位数
Dim b As Integer 'b表示十位数
Dim c As Integer 'c表示个位数
n = 0:s = 123
List1.Clear
Do While s <= 999
a = '此为第①处代码填空,通过Mid函数实现不给分
b = s \ 10 Mod 10
c = s Mod 10
If a < b And b < c Then
List1.AddItem Str(s)
n = n + 1
End If
s = '此为第②处代码填空
Loop
Label1.Caption = "共有" + + "个数。" '此为第③处代码填空
End Sub
图a
图b