下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。 例如:输入7685,则输出5 8 6 7;输入1000,则输出0 0 0 1。请填空。 Private Sub Commandl_Click()

admin2012-09-07  25

问题 下面的程序执行时,可以从键盘输入一个正整数,然后把该数的每位数字按逆序输出。
      例如:输入7685,则输出5 8 6 7;输入1000,则输出0 0 0 1。请填空。
    Private Sub Commandl_Click()
        Dim x As Integer
        x=InputBox(“请输入一个正整数”)
        While x>__________
            Print x Mod 10;
             x__________
        wend
    End Sub

选项

答案O x\10

解析 本题考查数据逆序的算法。数据逆序的基本思路就足不断地输出和10整除后的余数,题中输出x Mod 10,这样可以输出x的个位数。接下来取得此数除以10得到的商,本题就是x=x\10,一直到x变为0结束循环,这样从数据的各位开始,逐个输出x的每一位数据。
转载请注明原文地址:https://kaotiyun.com/show/PJhp777K
0

最新回复(0)