从键盘输入一个正整数，将该数的各位分离出来。 请在___处填入适当的内容，完善程序。 Dim s, s1 As Integer s = Val（InputBox（“输入一个正整数：”）） Do While s > 0 s1 =____ s = s 10 MsgBox（s1） Loop（）

编一个程序， 从键盘输入 10 个实数， 存入一个数组， 用冒泡法对这个 数作升序排序 从键盘输入一个正整数n，编写程序计算1!-2!+3!-4!+...+（-1）n-1*n!的值并输出结果，要求定义和调用函数fact（n）计算n的阶乘。 getchar的功能是从键盘输入一个字符 如果一个正整数a是某一个整数b的平方，那么这个正整数a叫作完全平方数。若一个正整数(10000以内)加上100后是一个完全平方数，再加上168也是一个完全平方数，编程求该数： 编写程序：由键盘输入一个整数，判断其能否既被3整除又被5整除。 编一个程序，用while循环语句，从键盘输入10个数，要求找出最大数和次大数。 机器损坏保险是从（）中分离出来的一个险种。 求任意一个正整数的正整数因子 要求：用户任意输入一个int型的正整数，然后程序打印出此正整数的所有因子， 如：用户输入24，则打印出：1 2 3 4 6 8 12 24 设计一个SHELL程序，该程序能接收用户从键盘输入的10个整数，然后求出其总和、最大值及最小值 编写一个程序，从键盘输入m，输出大于m且紧随m的素数。 如果一个正整数a是某一个整数b的平方，那么这个正整数a叫作完全平方数。若一个整数(10000以内)加上100后是一个完全平方数，再加上168也是一个完全平方数，编程求该数。 输入一个10进制正整数，然后输出它所对应的八进制、十六进制数。 从键盘输入一个大写字母，要求改用小写字母输出 每一个确定的正整数a，都有一个确定的后继数a’，a’也是正整数（一个数的后继数就是紧接在这个数后面的数，例如，1的后继数是2，2的后继数是3等等）.那么1（）任何正整数的后继数 每一个确定的正整数a，都有一个确定的后继数a’，a’也是正整数（一个数的后继数就是紧接在这个数后面的数，例如，1的后继数是2，2的后继数是3等等）.那么1（）任何正整数的后继数 将十进制正整数m转换成k进制数（2≤k≤9）并输出（m，k从键盘输入）。例如，若输入8和2，则应输出1000（即十进制数8转换成二进制表示是1000）。 从键盘输入10个整数到数组中，采用冒泡算法从小到大排序后输出(编程语言不限)。 通过键盘输入一个高精度的正整数n（n的有效位数≤240），去掉其中任意s个数字后，剩下的数字按原左右次序将组成一个新的正整数。编程对给定的n和s，寻找一种方案，使得剩下的数字组成的新数最小。 【样例输入】 178543 S=4 【样例输出】 13 用键盘输入法输入汉字时，通常要敲击（）个键输入一个汉字。 编一个程序，输入一个正整数n，把它转换为二进制数，并输出。提示：应该利用数组。