作业帮 > 综合 > 作业

高中信息技术(VB编程)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/25 03:49:13
高中信息技术(VB编程)
一个三位数x,百位数 > 十位数 > 个位数,求所有的数的和.
最好能用VB语境!= =急
Private Sub Form_Click()
Dim x As Integer, s As Long, n As Integer
x = 100
Do While x >= 100 And x (x \ 10 Mod 10) And (x \ 10 Mod 10) > (x Mod 10) Then
s = s + x
n = n + 1
End If
i = i + 1
Loop
Print "百位大于十位,十位大于个位的三位数的和:"; s
Print "百位大于十位,十位大于个位的三位数的个数:"; n
End Su