VB编程:一个三位整数,它的百位数字、十位数字以及个位数相加等于17.求满足上述条件的三位正整数的和.
人气：199 ℃ 时间：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...
- 已知关于x的分式方程1/x=m/（x+1）+m/（x-1）
- 小信未孚,神弗福也 信是什么意思
- 物理中的矢量中的分量问题
猜你喜欢
