作业帮 > 综合 > 作业

急求所有百位数大于十位数,十位数大于个位数的三位数的个数 vb 语句

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/14 11:41:55
急求所有百位数大于十位数,十位数大于个位数的三位数的个数 vb 语句
急求所有百位数大于十位数,十位数大于个位数的三位数的个数 vb 语句
Dim n As Integer,s As Integer
For n = 100 To 999
If Left(n,1) > Mid(n,2,1) And Mid(n,2,1) > Right(n,1) Then s = s + 1
Next
Print "百位数大于十位数,十位数大于个位数的三位数的个数是"; s