编程!一个三位正整数,它的百位数小于十位数,且十位数小于个位数,求所有满足三位正整数的和
Private Sub 计算_Click()Dim x As interger,sum As Integer,a As Integer,b As Integer,c As IntegerFor x = 100 To 999a = Int(x) / 100b = Int(x) / 10 Mod 10c = Int(x) Mod 10 If a < b And b < c Then sum = sum + xNext xPrint sum
End Sub
这个打了以后没有任何反应,
这个因为是直接复制的没有转行....
人气:466 ℃ 时间:2020-06-03 20:06:10
解答
把你程序中的 Dim x As interger, 改成:Dim x As integer,
就能运行了.
运行结果是21750
没有问题呀?!
推荐
- VB:一个三位正整数,它的百位数小于十位数,且十位数小于个位数,例如:123,求满足上述条件的三位正整数的和
- 三位正整数,要求百位数大于十位数,十位数大于个位数 求有多少个这样的数
- 编程:输入一个3位正整数,正确分离出其个位、十位、百位数...
- VB有一个三位数abc和a 的积为一个四位正整数baac,编程求这一个三位数
- VB编程:一个三位整数,它的百位数字、十位数字以及个位数相加等于17.求满足上述条件的三位正整数的和.
- 关于失败与挫折的名言警句
- 把干燥纯净的10g高锰酸钾装入大试管中,加热制取氧气.反应一段时间后停止加热,待
- 4的m次方=3分之1,2的n次方=3,则4的2m+n次方等于?
猜你喜欢