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

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/07/14 21:50:19

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 Sub
再问：我问的不是a>b>c吗
再答：是呀,一样的,我的c是百位,a是个位.好看就改成如下 Private Sub Command1_Click() Dim num, i As Long Dim a, b, c As Integer For num = 100 To 999 c= num Mod 10 b = (num \ 10) Mod 10 a = num \ 100 If a > b And b > c Then i = i + 1 Next num print i ' 显示多少个84个 End Sub

一个三位数 abc a>b>c 这样的三位数有几个用VB语言写有一个三位数ABC,由A,B,C组成的所有三位数中,最大的三位数与最小的三位数的差恰好等于原来的三位数,求这三位数是多少 VB有一个三位数abc和a 的积为一个四位正整数baac,编程求这一个三位数 ABC是一个三位数,若这个三位数由A、B、C三个数字所组成的全体两位数的和,有哪些满足条件的三位数? 用数字1,3,5排列成一个三位数,这样的三位数有几个? 一个三位数ABC同时是2、3、5的倍数,其中B是5的倍数,A是奇数.这样的数有几个?答案是2个. 有一个三位数a.b.c abc cba=1333用代码求出 1、求这样的三位数,该三位数等于其每位数字的阶乘之和.即abc=a!+b!+c! c语言,求这样一个三位数,该三位数等于其每位数字的阶乘之和. 一个三位数百位数是A 十位数是B 个位数是C 求这个三位数我写的是abc 结果错了谁能讲讲? abc是一个三位数,由a,b,c三个数码组成的另外五个三位数之和等于2590.求三位数abc是多少? 一个三位数是一个三位数的九倍,这样的数有几个

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

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