VB编程:一个三位整数,它的百位数字、十位数字以及个位数相加等于17.求满足上述条件的三位正整数的和.
人气：328 ℃ 时间：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...
- he was ___ (too much,much too) worried about his son.请问此处填啥?
- 一元二次方程kx2-（2k-1）x+k+2=0，当k为何值时，方程有两个不相等的实数根？
- 怎样让在地震中的房屋不容易倒塌
猜你喜欢
