VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 04:06:08
VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位
求出共有几个以及sum
求出共有几个以及sum
Private Sub Command1_Click()
For i = 3210 To 9876
a = Mid(i, 1, 1)
b = Mid(i, 2, 1)
c = Mid(i, 3, 1)
d = Mid(i, 4, 1)
If a > b And b > c And c > d Then
total = total + 1
Sum = Sum + i
End If
Next i
Print total, Sum
End Su
For i = 3210 To 9876
a = Mid(i, 1, 1)
b = Mid(i, 2, 1)
c = Mid(i, 3, 1)
d = Mid(i, 4, 1)
If a > b And b > c And c > d Then
total = total + 1
Sum = Sum + i
End If
Next i
Print total, Sum
End Su
VB语言 要Do while 或 for next的 一个四位正整数 千位大于百位 百位大于十位 十位大于个位
在1000到10000的所有整数中满足千位大于百位大于十位大于个位或者个位大于十位大于百位大于千位的数有多少
12345五个数字不重复排列万位小于千位,千位大于百位,百位小于十位,十位大于个位.共有几个?位
用c语言编程:输入一个四位数,求出它的个位、十位、百位、千位
个位加十位等于百位,十位加百位等于千位,百位加千位等于万位
vb 将任意一个四位数的个位与千位对换,十位与百位对换,怎么做?只要一句表达式
有多少个四位数,满足个位上的数字比千位百位大,千位比百位大,百位数字比十位数字大
有一个四位数,个位数字与百位数字的和是12,十位数字与千位数字的和是9,如果个位数字与百位数字互换,千位数字与十位数字互
有一个四位数 个位数字与百位数字的和是12,十位数字与千位数字的和是9,如果个位数字与百位数字互换,千位数字与十位数字互
求一个C语言运算,输入3位整数,个位,十位,百位,数字之和的运算,
个位加十位等于百位,十位加百位等于千位,百位加千位等于万位,急
已知一个四位正整数满足下列条件:1,若同时将其个位数字与百位数字、十位数字与千位数字的位置互换,则其数值增加5940;2