( 9 ) 下面的程序执行时 , 可以从键盘输入一个正整数 , 然后把该数的每位数字按逆序输出 。 例如 : 输入 7685 ,则输出 5867 ,输入 1000 ,则输出 0001 。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox( “ 请输入一个正整数 ” )While x_ _[11] ___Print x Mod 10;x=x\10WendPrint__ [12] __End Sub

( 9 ) 下面的程序执行时 , 可以从键盘输入一个正整数 , 然后把该数的每位数字按逆序输出 。 例如 : 输入 7685 ,则输出 5867 ,输入 1000 ,则输出 0001 。请填空。

Private Sub Command1_Click()

Dim x As Integer

x=InputBox( “ 请输入一个正整数 ” )

While x>_ _[11] ___

Print x Mod 10;

x=x\10

Wend

Print__ [12] __

End Sub


相关考题:

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

从键盘输入任意一个自然数(不限位数),输出这个数字的反序。例如输入123456,则输出654321。

程序每次读入一个正3位数,然后输出按位逆序的数字。 输入格式:每个测试是一个3位的正整数。 输出格式:输出按位逆序的数。 输入样例:123 输出样例:321

给一个不多于3位的正整数,要求:①求出它是几位数;②分别打印出每一位数字;③按逆序打印出各位数字,例如原数为321,应输出123。

从键盘输入一个4位整数,按如下规则加密后输出。加密规则:每位数字都加上7,然后用和除以10的余数取代该数字;再把第一位与第三位交换,第二位与第四位交换。

如果一个正整数的所有因子之和等于该正整数,则称这个正整数为完全数,编写程序读入n ,输出不超过n 的全部完全数。 (提示:例如6=1+2+3是一个完数)。

从键盘输入一个3位数的正整数,将其反向输出(如输入123,输出321)。 提交要求: (1)把程序代码和运行结果并排显示,进行截图直接提交到“答案区”。 (2)把程序代码保存到一个文本文件中(如: 1.txt),并上传附件。

编写程序,从键盘输入一个5位正整数,然后求出它的个位数、十位数、百位数、千位数和万位数,并按下面的格式,打印出这五位数字的和。 例如, 输入: 12345 打印出: 15(1+2+3+4+5=15)。

编写一个程序,从键盘输入一个四位整数n,输出它的各位数字之和,并逆序输出。 例如:n=1203,则输出6,3021 n=3024,则输出9,4203