阅读如下程序: Private Sub Form_Click() Dim num As Integer,digit As Integer num=InputBox("输入数据") Do While num <> 0

admin2009-02-13  29

问题 阅读如下程序:    Private Sub Form_Click()      Dim num As Integer,digit As Integer      num=InputBox("输入数据")      Do While num  <>  0        digit=num Mod 10        num=num\10        Print digit;      Loop    End Sub    程序运行后,如果从键盘上输入12345,则输出的结果为

选项 A、1  3  7  5  9
B、5  4  3  2  1
C、2  4  6  8  10
D、1  2  3  4  5

答案2

解析 本题使用了当循环,循环执行的条件是num不等于0。在循环体内,先用Mod运算符求出输入的数num的余数,接着用10对该数进行整除,将得到的商赋给num,最后输出余数。然后对整除后的num重复上述过程,直到num为0,结束循环。实际上该程序的功能是:从右至左,逐个读取num的位数,并将其赋值给digit,再在窗体上打印出来,即输出结果为:5、4、3、 2、1。
转载请注明原文地址:https://kaotiyun.com/show/Ob1p777K
0

最新回复(0)