作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/20 02:51:41
求所有百位数大于十位数,十位数大于个位数的三位数的个数 vb 语句
求所有百位数大于十位数,十位数大于个位数的三位数的个数 vb 语句
Private Sub Command1_Click()
Dim kk As Integer,sum As Integer
kk = 0
For i = 1 To 7
For j = i + 1 To 8
For k = j + 1 To 9
sum=sum+k*100+j*10+i
kk = kk + 1
Next
Next
Next
print "百位数大于十位数,十位数大于个位数的三位数 ,共" & kk & "个"
End Su