【单选题】从键盘输入一个正整数,将该数的各位分离出来。 请在_________处填入适当的内容,完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数:")) Do While s > 0 s1 = __________ s = s \ 10 MsgBox(s1) Loop
【单选题】从键盘输入一个正整数,将该数的各位分离出来。 请在_________处填入适当的内容,完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数:")) Do While s > 0 s1 = __________ s = s \ 10 MsgBox(s1) Loop
【单选题】从键盘输入一个正整数,将该数的各位分离出来。 请在_________处填入适当的内容,完善程序。 Dim s, s1 As Integer s = Val(InputBox("输入一个正整数:")) Do While s > 0 s1 = __________ s = s \ 10 MsgBox(s1) Loop