Question

一个三位数 abc a>b>c 这样的三位数有几个 用VB语言写

Answer 1

Private Sub Command1_Click()

Dim num,i As Long

Dim a,b,c As Integer

For num = 100 To 999

a = num Mod 10

b = (num 10) Mod 10

c = num 100

If c > b And b > a Then i = i + 1

Next num

print i ' 显示多少个84个

End Su