VB编程:一个三位整数,它的百位数字、十位数字以及个位数相加等于17.求满足上述条件的三位正整数的和.
人气：401 ℃ 时间：2020-06-13 02:41:49
解答
Private Sub Form_Click()Sum = 0For i = 100 To 999s = Trim(Str(i)) If Val(Left(s,1)) + Val(Right(s,1)) + Val(Mid(s,2,1)) = 17 Then Sum = i + Sum End IfNextPrint SumEnd Sub
推荐
- VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.
- VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数.输入一个整数判断其是否为水仙花数.
- 用vb编程在文本框输入一个三位数,单击窗体后,在窗本打印输出该数的个位数,十位数和百位数
- 编写vb：“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153＝1^3＋5^3＋3^3.编写程序,打印出
- (1/2)VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数,如153=1^3+5...
- 小学人教版二年级语文上册《我是什么.》教案
- 维生素C又名抗坏血酸，化学式为C6H806，可溶于水，主要存在于蔬菜和水果中，它能增强人体对疾病的抵抗能力． （1）请写出维生素C所属的物质类别：_． （2）某同学设计了两个实验来证明
- 1976年3月8日陨落在吉林的“吉林1号陨石”是（ ） A.石陨石 B.玻璃陨石 C.铁陨石 D.石铁陨石
猜你喜欢
- 一件衣服,第一次比原价降低了20%,第二次又在第一次降价的基础上降低了20%,现价是原价的（ ）
- 把x²-3x+1化成a（x+h）²+k的形式?
- 将12,14,21,75,6,100平均分成两组使每组中3个数的积相等如何分
- --what’s on TV tonight?Is there interesting?——I’afraid not.应该用anything还是something
- until now ___ ___ ___ nobody has really seen a UFO.
- 请帮忙写一篇运用托物言志的的手法,歌颂一种事物,定重谢!
- 用简便算法计算X=5时,f(x)=x^3-2x^2-3x+1的值
- 将少量菜油、醋、蔗糖、胡椒粉、味精粉分别加入水中、振荡,其中____________形成悬浊液,_____________形成乳浊液,____________形成溶液.
