VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.我写了一个Private
答案:2 悬赏:50 手机版
解决时间 2021-02-24 10:49
- 提问者网友：蓝莓格格巫
- 2021-02-24 04:15
VB编程.找出所有三位数的升序数,就是个位数字大于十位数,十位数大于百位数.我写了一个Private
最佳答案
- 五星知识达人网友：舊物识亽
- 2021-02-24 04:53
根据你的题意,我用VB编写了如下代码,你看是不是你所需要的：Private Sub Command1_Click()Dim i,j,k,l,nFor i = 100 To 999 '所有的三位数j = i \ 100 '百位上的数k = (i - 100 * j) \ 10 '十位上的数l = i - 100 * j - 10 * k '个位上的数If (l > k And k > j) Then '个位数字大于十位数,十位数大于百位数.Print i;n = n + 1 '记录满足条件的个数If (n Mod 20 = 0) Then '每20个换行PrintEnd IfEnd IfNext iEnd Sub
全部回答
- 1楼网友：骨子里都是戏
- 2021-02-24 05:41
这下我知道了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯