VB编程:一个三位整数,它的百位数字、十位数字以及个位数相加等于17.求满足上述条件的三位正整数的和.
人气：347 ℃ 时间：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...
- 如何验证氢氧化钙与氢氧化钠混合液
- 舒函同学下午6点多外出时,看手表上两只针的夹角是110度,下午7点前回家时发现手表的指针仍是110度,他外出多长时间?
- what about going swimming with me?what about go swimming with me?
猜你喜欢
