作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 00:00:17
急求所有百位数大于十位数,十位数大于个位数的三位数的个数 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